[Antiright-devel] antiright/src ACE

[Jeffrey Bedard]

CVSROOT:        /sources/antiright
Module name:    antiright
Branch:         
Changes by:     Jeffrey Bedard <address@hidden> 06/04/04 02:18:26

Modified files:
        src            : ACE 

Log message:
        Added a manual page browser.
        Provided link to manual page browser in lynx panel.
        Increased usage of ACE configuration environment.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/antiright/antiright/src/ACE.diff?tr1=1.69&tr2=1.70&r1=text&r2=text

Patches:
Index: antiright/src/ACE
diff -u antiright/src/ACE:1.69 antiright/src/ACE:1.70
--- antiright/src/ACE:1.69      Wed Mar 29 02:09:23 2006
+++ antiright/src/ACE   Tue Apr  4 02:18:26 2006
@@ -92,7 +92,7 @@
                if grep script $TMP; then
                        $@ &
                elif grep HTML $TMP; then
-                       xterm -e lynx $1 & 
+                       ACE Terminal lynx $1 & 
                elif grep text $TMP; then
                        ACE -A Text_Editor $1 &
                elif grep executable $TMP; then
@@ -135,6 +135,46 @@
 
        trap "rm $TMP* 2>/dev/null" 0   
 }
+Read_Man_Page()
+{
+       ACE Terminal -T $2 -e man $1 $2
+}
+rmp()
+{
+       Read_Man_Page $@
+}
+Man_Browse_Section()
+{
+       local tf=/tmp/mbs.$$
+       touch $tf
+       chmod og-rwx $tf
+       chmod u+x $tf
+       echo '#!/bin/sh' >> $tf
+       echo 'arshell -r 42 -W Manual\' >> $tf
+       cd /usr/share/man/man$1
+       echo " -Al 'Manual Section "$1"' \\" >> $tf
+       for file in $(ls | cut -d. -f1); do
+               echo " 'ACE -A rmp "$1 $file"' \\" >> $tf
+       done
+       echo " 'ACE -A Man_Browse_Section $1 # Back'" >> $tf
+       #cat $tf > /tmp/tf.out
+       $tf
+       rm -f $tf
+}
+mbs()
+{
+       Man_Browse_Section $@
+}
+Manual_Browser()
+{
+       arshell -Am -Al 'Manual section:' -r 3 'ACE -A mbs 1' 'ACE -A mbs 2'\
+               'ACE -A mbs 3' 'ACE -A mbs 4' 'ACE -A mbs 5'\
+               'ACE -A mbs 6' 'ACE -A mbs 7' 'ACE -A mbs 8' 'ACE -A mbs 9' 
+}
+Man_Page()
+{
+       rmp " " $1
+}
 Deb_Search()
 {
     keywords="$(arshell -At Keywords: | cut -d: -f2)"
@@ -176,6 +216,7 @@
        -Amv 'ACE -A Debian_Panel' \
        -Amv 'ACE -A File_System_Panel' \
        -Amv 'ACE -A Network_Panel' \
+       -Amv 'ACE -A Manual_Browser' \
        -r 6 \
        -AL \
        -W 'ACE Panel' \