[Antiright-devel] antiright/src ACE

[Jeffrey Bedard]

CVSROOT:        /cvsroot/antiright
Module name:    antiright
Branch:         
Changes by:     Jeffrey Bedard <address@hidden> 05/01/18 22:36:07

Modified files:
        src            : ACE 

Log message:
        Added appropriate titles to some panels.  Picked milder colors for the 
sticky notes.  Removed some redundant peer functions.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/antiright/antiright/src/ACE.diff?tr1=1.36&tr2=1.37&r1=text&r2=text

Patches:
Index: antiright/src/ACE
diff -u antiright/src/ACE:1.36 antiright/src/ACE:1.37
--- antiright/src/ACE:1.36      Wed Dec 29 20:06:30 2004
+++ antiright/src/ACE   Tue Jan 18 22:36:06 2005
@@ -75,6 +75,7 @@
 {
     $ARSHELL -Am -r 6\
        -AL\
+       -W 'ACE Panel'\
        'ACE -A Jukebox'\
        'ACE Alarm'\
        'ACE Calculator'\
@@ -128,8 +129,8 @@
 }
 return_pseudorandom_color()
 {
-    local colors="powderblue lavender pink wheat black darkgeay darkred\
- lightsteelblue gainsboro midnightblue"
+    local colors="powderblue lavender pink wheat azure antiquewhite\
+ lightsteelblue gainsboro thistle darkseagreen"
     local ones=$(date +%S | cut -c 2)
     echo $colors | awk '{print $'$(($ones+1))'}'
 }
@@ -200,7 +201,7 @@
 {
     ACE_Check_Configuration_File
     TMP=${TMPDIR:-/tmp}/ACE.$$
-    echo "$ARSHELL -Am -r 18"\\ > $TMP
+    echo "$ARSHELL -W Settings -Am -r 18"\\ > $TMP
     for title in $(ACE_record_titles)
       do
       echo " \"ACE -A Settings_Node $title\""\\ >> $TMP
@@ -283,11 +284,13 @@
 KillJuke()
 {
     kill $(ps xa | grep JUKE | grep -v grep | awk '{print $1}')
-    kill $(ps xa | grep tail | grep ~/.antiright_mp3s | grep -v grep | awk 
'{print $1}')
+    kill $(ps xa | grep tail | grep ~/.antiright_mp3s | grep -v grep\
+       | awk '{print $1}')
 }
 Juke_Song()
 {
-       echo Playing $(grep Playing ~/.antiright_mp3s | tail -n 1 | cut -d ' ' 
-f 5-)
+       echo Playing $(grep Playing ~/.antiright_mp3s | tail -n 1\
+           | cut -d ' ' -f 5-)
 }
 Install_BitchX()
 {
@@ -296,7 +299,8 @@
 }
 create_fake_song_file()
 {
-       echo 'Playing MPEG stream from http://www.nongnu.org/antiright mp3' > 
~/.antiright_mp3s
+       echo 'Playing MPEG stream from http://www.nongnu.org/antiright mp3'\
+           > ~/.antiright_mp3s
 }
 Juke()
 {
@@ -307,8 +311,10 @@
        fi
        local mp3player="$(ACE -r mp3_player)"
        local mp3dir="$(ACE -r mp3_dir)"
-       local stop_play="killall $mp3player; rm -f ~/.antiright_mp3s; ACE -A 
create_fake_song_file"
-       local play_next="killall $mp3player; $mp3player -Z $mp3dir/*.mp3 2>> 
~/.antiright_mp3s"
+       local stop_play="killall $mp3player; rm -f ~/.antiright_mp3s;\
+ ACE -A create_fake_song_file"
+       local play_next="killall $mp3player; $mp3player -Z $mp3dir/*.mp3\
+ 2>> ~/.antiright_mp3s"
        local killjukebox="ACE -A KillJuke"
        create_fake_song_file
        $ARSHELL -W JUKE\
@@ -321,11 +327,11 @@
 }
 Jukebox()
 {
-    xsetroot -solid slategrey &
+    xsetroot -solid darkgrey &
     xterm -geometry 80x12-0+0\
-       -bg slategrey -bd slategrey\
+       -bg darkgrey -bd darkgrey\
        -xrm "*overrideRedirect: True"\
-       -xrm ".xterm.vt100.background: slategrey"\
+       -xrm ".xterm.vt100.background: darkgrey"\
        -e ACE -A Juke &
 }
 Calculate()
@@ -387,12 +393,13 @@
 }
 Administration_Panel()
 {
-    $ARSHELL -W Administration -Am -r 4\
+    $ARSHELL -W Administration -Am -r 5\
        'ACE Fix_File_Permissions'\
        'ACE Root_Shell'\
        'ACE See_All_Processes'\
        'ACE See_All_Users'\
        'ACE See_Disk_Info'\
+       'ACE SysV_Init'\
        'ACE See_Open_Ports'\
        'ACE See_User_Processes'\
        'ACE System_Monitor'\
@@ -401,16 +408,20 @@
        "$ARSHELL -Am -UL uptime -xrm '*fontList: fixed' & # Uptime"\
        "$ARSHELL\
  -W 'I/O Statistics' -Am -UL iostat -xrm '*fontList: fixed' & # 
I/O_Statistics"\
-       'ACE -A Load_Meter'
+       'ACE -A Load_Meter'\
+           'ACE -A System_Accounting'\
+           "xload -bg red4 -fg yellow -hl yellow & # X_Load"
+}
+System_Accounting()
+{
+    sar | $ARSHELL\
+       -Am -Aw -p -W System_Accounting\
+       -xrm "*XmText.fontList: fixed"
 }
 Fix_File_Permissions()
 {
     chmod og-rwx ~/.*/*
 }
-Root_Shell()
-{
-    xterm -e su
-}
 See_All_Processes()
 {
     ps xau | $ARSHELL -W 'All Processes' -Am -Aw -p
@@ -487,25 +498,33 @@
 {
     ACE_peer_operation 'xhost +'
 }
-Open_URL()
-{
-    ACE -L 'Open URL' xterm -e lynx
-}
-FTP()
+Show_Runlevel_Information()
 {
-    ACE_peer_operation ftp
+    runlevel=$($ARSHELL -At "Runlevel:" | cut -d : -f 2)
+    $ARSHELL -Al "$(ls /etc/init.d.d/rc${runlevel}.d)" -E "echo Dismiss"
 }
-Telnet()
+SysV_Delete_Service()
 {
-    ACE_peer_operation telnet
+    local runlevel=$($ARSHELL -At Runlevel:)
+    rm /etc/init.d/rc${runlevel}.d/*${1}
 }
-SSH()
+SysV_Service()
 {
-    ACE_peer_operation ssh
+    local order=$($ARSHELL -Al "Enter 'runlevel:order'"\
+       -At "$1:" "ACE -A Show_Runlevel_Information"\
+       "ACE -A SysV_Delete_Service $1" | cut -d : -f 2-)
+    local runlevel=$(echo $order | cut -d : -f 1)
+    local order=$(echo $order | cut -d : -f 2)
+    cp /etc/init.d/$1 /etc/init.d/rc${runlevel}.d/S${order}${1}
 }
-SFTP()
+SysV_Init()
 {
-    ACE_peer_operation sftp
+    local service=$(ls /etc/init.d | grep -v '.d' | $ARSHELL -Am\
+       -Aw -p -At Modify: | cut -d : -f 2)
+    if [ "$service" != "" ] && [ "$service" != "Dismiss" ]; then
+       SysV_Service $service &
+       SysV_Init &
+    fi
 }
 
 ACE_show_usage_and_exit()
@@ -514,29 +533,6 @@
        [+-A ARG] [--] ARGS..."
     exit 2
 }
-Manual_Menu()
-{
-    $ARSHELL 'xterm -e man ACE' 'xterm -e man arcd' 'xterm -e system.antiright'
-}
-Help_Menu()
-{
-    $ARSHELL 'ACE -A Manual_Menu \# Manuals'\
-       -Al 'AntiRight is a lightweight_desktop environment.'\
-       -Al 'Copyright 2004, Jeffrey_Bedard'\
-       -Al 'Licensed under the GNU General Public License'\
-       -Al 'There is NO Warranty, Use at your own risk.'\
-       -geometry 300x100+0+0
-}
-View_Menu()
-{
-    $ARSHELL 'ACE A.C.E' 'ACE -A Administration_Panel'\
-       'ACE -A File_System_Panel' 'ACE -A Network_Panel'\
-       'ACE -A Theme_Panel'
-}
-File_Menu()
-{
-    $ARSHELL 'ACE File_Manager'
-}
 
 while getopts :ctp:r:L:V:A: OPT; do
     case $OPT in