/[antiright]/antiright/src/ACE
ViewVC logotype

Diff of /antiright/src/ACE

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by jefbed, Sat Jan 29 11:44:50 2005 UTC revision 1.40 by jefbed, Sat Feb 12 17:55:58 2005 UTC
# Line 76  ACE_Panel() Line 76  ACE_Panel()
76      $ARSHELL -Am -r 6\      $ARSHELL -Am -r 6\
77          -AL\          -AL\
78          -W 'ACE Panel'\          -W 'ACE Panel'\
79          'ACE -A Jukebox'\          'ACE IRC'\
80          'ACE Alarm'\          'ACE Alarm'\
81          'ACE Calculator'\          'ACE Calculator'\
82          'ACE CD_Player'\          'ACE CD_Player'\
# Line 94  ACE_Panel() Line 94  ACE_Panel()
94          'ACE -A Settings'\          'ACE -A Settings'\
95          'ACE Command'          'ACE Command'
96  }  }
97    
98    Setup_Juke_Environment()
99    {
100        if [ ! -f ~/.antiright_bitchx_done ]; then
101                    touch ~/.antiright_bitchx_done
102                    $ARSHELL -Al "Install AntiRight's BitchX aliases?" \
103                    "ACE -A Install_BitchX \# Yes" "echo No" -E
104            fi
105            mp3player="$(ACE -r mp3_player)"
106            mp3dir="$(ACE -r mp3_dir)"
107            stop_play="killall $mp3player; rm -f ~/.antiright_mp3s;\
108     ACE -A create_fake_song_file"
109            play_next="killall $mp3player; $mp3player -Z $mp3dir/*.mp3\
110     2>> ~/.antiright_mp3s"
111            killjukebox="ACE -A KillJuke"
112    }
113    
114    create_fake_song_file()
115    {
116            echo 'Playing MPEG stream from http://www.nongnu.org/antiright'\
117                > ~/.antiright_mp3s
118    }
119    
120    KillJuke()
121    {
122        kill $(ps xa | grep JUKE | grep -v grep | awk '{print $1}')
123        kill $(ps xa | grep tail | grep ~/.antiright_mp3s | grep -v grep\
124            | awk '{print $1}') 1> /dev/null 2> /dev/null
125        rm -f ~/.antiright_mp3s
126        kill $(pidof mpg123) 1> /dev/null 2> /dev/null
127    }
128    
129    Juke_Song()
130    {
131        if [ ! -f ~/.antiright_mp3s ]; then
132            create_fake_song_file
133        fi
134        grep Playing ~/.antiright_mp3s | tail -n 1\
135            | cut -d ' ' -f 5- | tr ' ' '\n' | fgrep -v '...' | tr '\n' ' '\
136            | tr '.' '\n' | fgrep -v 'mp3' | fgrep -v 'wav' | fgrep -v 'ogg'\
137            | tr '\n' '.' | tr '_' ' '
138    }
139    
140    Juke_Playing()
141    {
142        echo Playing '-{' $(Juke_Song) '}-     '
143    }
144    
145    Next_Song()
146    {
147        killall -SIGINT mpg123 1> /dev/null 2> /dev/null
148        usleep 500000 1> /dev/null 2> /dev/null
149        Juke_Playing
150    }
151    
152    Install_BitchX()
153    {
154            echo '^alias amp {exec -o ACE -A Juke_Playing}' >> ~/.bitchxrc
155            echo '^alias amn {exec ACE -A Next_Song}' >> ~/.bitchxrc
156            echo '^alias amt {exec ACE -A Juke_Playing}' >> ~/.bitchxrc
157    }
158    
159  killdesk()  killdesk()
160  {  {
161      kill $(ps xa | grep DESKTOP | awk '{print $1}' | tr '\n' ' ')\      kill $(ps xa | grep DESKTOP | awk '{print $1}' | tr '\n' ' ')\
# Line 102  killdesk() Line 164  killdesk()
164    
165  Desktop()  Desktop()
166  {  {
167        Setup_Juke_Environment
168        create_fake_song_file
169      arbmdir=$bmdir/antiright      arbmdir=$bmdir/antiright
170      $ARSHELL -W DESKTOP -Ac -r 4\      $ARSHELL -W DESKTOP -Ac\
171          'ACE A.C.E.' 'ACE Lock'\          -UL 'ACE -A Juke_Song'\
172            -r 4\
173            "$play_next \# Play" 'ACE Lock'\
174          -Ai 'ACE Note' $arbmdir/knotes.xpm\          -Ai 'ACE Note' $arbmdir/knotes.xpm\
175          -Ai 'ACE Calculator' $arbmdir/kcalc.xpm\          -Ai 'ACE Calculator' $arbmdir/kcalc.xpm\
176          'vdesk 1' 'vdesk 2'\          "$stop_play \# Stop" 'ACE A.C.E.'\
177          -Ai 'ACE File_Manager' $arbmdir/kfm.xpm\          -Ai 'ACE File_Manager' $arbmdir/kfm.xpm\
178          -Ai 'ACE -A File_System_Panel File_Systems' $arbmdir/fileserver.xpm\          -Ai 'ACE -A File_System_Panel File_Systems' $arbmdir/fileserver.xpm\
179          'vdesk 3' 'vdesk 4'\          'vdesk 1' 'vdesk 2'\
180          -Ai 'ACE Terminal' $arbmdir/term.xpm\          -Ai 'ACE Terminal' $arbmdir/term.xpm\
181          -Ai 'ACE Load_Meter' $arbmdir/ksysguard.xpm\          -Ai 'ACE Load_Meter' $arbmdir/ksysguard.xpm\
182          'vdesk 5' 'vdesk 6'\          'vdesk 3' 'vdesk 4'\
183          -Ai 'ACE Editor' $arbmdir/kedit.xpm\          -Ai 'ACE Editor' $arbmdir/kedit.xpm\
184          -Ai 'ACE Browser' $arbmdir/www.xpm\          -Ai 'ACE Browser' $arbmdir/www.xpm\
185          'vdesk 7' 'vdesk 8'\          'vdesk 5' 'vdesk 6'\
186          -Ai 'ACE Background' $arbmdir/kcoloredit.xpm\          -Ai 'ACE Background' $arbmdir/kcoloredit.xpm\
187          -Ai 'ACE Mail' $arbmdir/mail.xpm\          -Ai 'ACE Mail' $arbmdir/mail.xpm\
188          'ACE Alarm' 'ACE Run' \          'ACE Alarm' 'ACE Run' \
# Line 281  CD_Player() Line 347  CD_Player()
347              "echo Exit"              "echo Exit"
348      fi      fi
349  }  }
350  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}')  
 }  
 Juke_Song()  
 {  
         echo Playing '-{' $(grep Playing ~/.antiright_mp3s | tail -n 1\  
             | cut -d ' ' -f 5- | tr ' ' '\n' | fgrep -v '...' | tr '\n' ' ')\  
             '}-'  
 }  
 Next_Song()  
 {  
     killall -SIGINT mpg123  
     usleep 500000  
     Juke_Song  
 }  
 Install_BitchX()  
 {  
         echo '^alias amp {exec -o ACE -A Juke_Song}' >> ~/.bitchxrc  
         echo '^alias amn {exec ACE -A Next_Song}' >> ~/.bitchxrc  
         echo '^alias amt {exec ACE -A Juke_Song}' >> ~/.bitchxrc  
 }  
 create_fake_song_file()  
 {  
         echo 'Playing MPEG stream from http://www.nongnu.org/antiright mp3'\  
             > ~/.antiright_mp3s  
 }  
 Juke()  
 {  
         if [ ! -f ~/.antiright_bitchx_done ]; then  
                 touch ~/.antiright_bitchx_done  
                 $ARSHELL -Al "Install AntiRight's BitchX aliases?" \  
                 "ACE -A Install_BitchX \# Yes" "echo No" -E  
         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 killjukebox="ACE -A KillJuke"  
         create_fake_song_file  
         $ARSHELL -W JUKE\  
         -Ai "$killjukebox" $bmdir/antiright/close.xbm\  
         -Ai "$stop_play" $bmdir/antiright/stop.xbm\  
         -Ai "$play_next" $bmdir/antiright/play.xbm\  
         -geometry -0+0 -xrm "*overrideRedirect: True" &  
         tail -F ~/.antiright_mp3s  
         rm -f ~/.antiright_mp3s  
 }  
 Jukebox()  
 {  
     xsetroot -solid darkgrey &  
     xterm -geometry 80x12-0+0\  
         -bg darkgrey -bd darkgrey\  
         -xrm "*overrideRedirect: True"\  
         -xrm ".xterm.vt100.background: darkgrey"\  
         -e ACE -A Juke &  
 }  
351  Calculate()  Calculate()
352  {  {
353      local input="$($ARSHELL -W Calculate -ADp Calculate:)"      local input="$($ARSHELL -W Calculate -ADp Calculate:)"

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26