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

Diff of /antiright/src/ACE

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

revision 1.35 by jefbed, Wed Dec 29 03:22:04 2004 UTC revision 1.36 by jefbed, Wed Dec 29 20:06:30 2004 UTC
# Line 287  KillJuke() Line 287  KillJuke()
287  }  }
288  Juke_Song()  Juke_Song()
289  {  {
290          # This was written by Bain <bain@barrysworld.com>          echo Playing $(grep Playing ~/.antiright_mp3s | tail -n 1 | cut -d ' ' -f 5-)
         perl -e 'my $a; while(<>) { next if(!/Playing/);($a)=$_=~/^(?:\b\w+\b|\s){8}(.*?).{3}$/ } print "Playing $a\n";'\  
         ~/.antiright_mp3s  
291  }  }
292  Install_BitchX()  Install_BitchX()
293  {  {
# Line 318  Juke() Line 316  Juke()
316          -Ai "$stop_play" $bmdir/antiright/stop.xbm\          -Ai "$stop_play" $bmdir/antiright/stop.xbm\
317          -Ai "$play_next" $bmdir/antiright/play.xbm\          -Ai "$play_next" $bmdir/antiright/play.xbm\
318          -geometry -0+0 -xrm "*overrideRedirect: True" &          -geometry -0+0 -xrm "*overrideRedirect: True" &
319          tail -F ~/.antiright_mp3s                tail -F ~/.antiright_mp3s
320            rm -f ~/.antiright_mp3s
321  }  }
322  Jukebox()  Jukebox()
323  {  {

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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