psycamp: read out song titles after playing them

1 files changed, 27 insertions, 5 deletions

diff --git a/bin/psycamp b/bin/psycamp
index e472d00..778b979 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -154,7 +154,7 @@ my $screen = 0;
 
 MAIN: {
         if ($#ARGV >= 0) {
-                getopt('bMnsS');
+                getopt('AbMnsS');
         }
         $nick = $opt_n
              || $ENV{'PSYCNICK'}
@@ -238,6 +238,12 @@ X
 Cannot find ffmpeg. Will not know duration and bitrates of some tracks.
 
 X
+        if ($opt_A or $opt_V) {
+                print STDERR <<X unless $has_espeak = &which('espeak');
+Cannot find espeak. Cannot make spoken announcements.
+
+X
+        }
         &enqueue(@ARGV);
         if ($NS) {              # global var for number of enqueued tracks
             do {
@@ -511,8 +517,17 @@ sub open {
 }
 sub next {
         my $a = shift;
+        &sys($has_espeak, '-v', 'en-romanian', '-p', 33, '-k', 44, $opt_A)
+          if $has_espeak and $opt_A and $CurrentFile;
         &fade(43, $a) if $a and $VOL > 50;
         my $n = $file[$order[++$CS]]; # || $file[$CS];
+        if ($has_espeak and $opt_V and $CurrentFile) {
+#               $CurrentFile =~ m!/([^/]+)$!;
+                my $f = $1 || $CurrentFile;
+                &sys($has_espeak, '-v', 'en-german-5', '-p', 87, '-s', 203, $f);
+        }
+        &sys($has_espeak, '-v', 'en-romanian', '-p', 23, '-s', 87, '-k', 87, 'bullshit')
+          if $has_espeak and $opt_A;
         &exit(0) if !$n or ($n eq '') or !$NS or $CS >= $NS;
 #       return &next(0) if $opt_S and $n =~ /\b$KEEP\b/oi;
         &open( $n );
@@ -867,6 +882,10 @@ sub which {
         /^(\S+)\s*$/;
         return $1;
 }
+sub sys {
+        print BLUE, join(' ', @_), RESET, "\n" if $opt_v;
+        return system(@_);
+}
 
 sub sorttracks {
         my $style = shift;
@@ -1065,7 +1084,7 @@ sub ginparse {
                 }
                 return 0;
         }
-        if ($opt_V or DEBUG & 512) {
+        if ($opt_W or DEBUG & 512) {
  #{ !X
                 return if / supported but disabled$/;
                 return if /^(Configuration: --|CommandLine:|get_path)/;
@@ -1424,8 +1443,9 @@ __END__
 =head1 SYNOPSIS
 
  psycamp [<flags>] [-b <uniform>] [-n <nick>] [-s <sort-algorithm>]
-         [-M <UNI>] [-S <screen>] [<media-files|directories>]
+         [-M <UNI>] [-S <screen>] [-A <text>] [<media-files|directories>]
 
+        [-A]nnounce a message between each track using 'espeak'
         [-b]ind PSYC uniform and accept commands from both PSYC and stdin
         [-M] sends currently playing title to a monitoring entity via PSYC
         [-n]ickname to use for monitoring, otherwise a default will be used
@@ -1436,13 +1456,15 @@ __END__
         [-H] shows an explanation what this tool is good for, try it!
         [-r]andomize using a smart shuffle algorithm, much better than "-s r"
         [-v]erbose: shows some extra output
+        [-W]atch verbose messages from backend
         [-q]uiet: shows close to no output
         [-c]alculate cumulative duration of selections
         [-L]oad the tracks in the playlist only if they really exist
         [-x] will terminate perl and exec mplayer, use when short on memory
         [-j]ump to end of track: a way to scan through a playlist
-        [-d]elete files after playing if the path contains the word '$VOLATILE'.
-        [-D]elete files after playing unless the path contains the word '$KEEP'.
+        [-d]elete files after playing if the path contains the word '$VOLATILE'
+        [-D]elete files after playing unless the path contains the word '$KEEP'
+        [-V]oice each file name after playing it
 
  Without arguments, psycamp resumes from last run's playlist.