#!/bin/env rubyrequire 'trollop'def fade(id, time, from, to)  #Fades pulse source given by id from 'from' percent to 'to' percent over 'time' in seconds  steps = (time / 0.05).ceil  d = (to - from) / steps.to_f  td = time / steps.to_f  steps.times do |i|    sleep(td)    set_volume(id, from + (d * (i+1)))  endenddef set_volume(id, percent)  #Given a pulse source id, sets volume of source to percent of max  #puts "pacmd set-sink-input-volume #{id} #{(percent / 100.0 * 65535).floor}"  `pacmd set-sink-input-volume #{id} #{(percent / 100.0 * 65535).floor}`enddef id_of(pid)  #Looks up pulse source id from pid  sink_inputs = `pacmd list-sink-inputs`  id = nil  sink_inputs.lines.each do |l|    id = l.split(":")[1].strip.to_i if l.strip.start_with?('index')    if( l.strip.start_with?('application.process.id') )      if l.split("=")[1].strip.delete('"').to_i == pid        return id      end    end  end  return nilenddef start_mplayer(arg)  # Starts mplayer with pulse output and volume normalization + args, returns pid  mplayer_cmd = "mplayer -ao pulse -af volnorm "  # (pid = fork) ? Process.detach(pid) : exec(mplayer_cmd + arg)  exec(mplayer_cmd + arg) unless (pid = fork)  return pidenddef say_time(volume, date_string='now', word='donk', word2=nil)  # Runs date_string through 'date' command, forms a sentence to say the date in 24hr format, and 'say's it  # volume is not used currently  # 0000 - midnight  # 0001 - oh oh oh 1  # 0015 - oh oh 15  # 0700 - oh seven hundred  # 1100 - eleven hundred  # 1101 - eleven oh one  time = `date '+%H%M' -d '#{date_string}'`.strip    word2 = word unless word2  oh = 'oh[[_:_]] '  say = ''  if time == ''    say = 'royaly screwed'  elsif time == '0000'    say = 'midnight'  else    if time[0] == '0'      say = oh      if time[1] == '0'        say += oh      else        say += time[1]      end    else      say = time[0..1]    end    say += ' '    if time[2] == '0'      if time[3] == '0'        say += 'hundred'      else        say += oh + time[3]      end    else      say += time[2..3]    end  end  `say "[[_:_:_:_:]]At the sound of the #{word}, the time will be #{say} .[[_:_:_:_:]] #{word2}."`  ## 'say' command handles this now (in largely the same way)  #  `espeak -a 200 -k 20 -s 140 -v mb-en1 -z "[[_:_:_:_:]]At the sound of the #{word}, the time will be #{say} .[[_:_:_:_:]] #{word2}." | mbrola -e /usr/share/mbrola/en1/en1 - time.wav`  #  `sox --norm time.wav timenorm.wav`  #  `paplay --volume=#{(volume / 100.0 * 65535).floor} timenorm.wav`endopts = Trollop::options do  version "alarm 0.0.2 (c) 2010 Joel Hough"  banner <<-EOSUsage: alarm [options] <date>  where <date> is a string suitable for the 'date' commandAn awesome alarm that suspends, plays music, and talks!EOS  opt :music_volume, "Music volume (percent of max)", :default => 40  opt :quiet_music_volume, "Music volume during voice (percent of max)", :default => 20  ## 'say' command doesn't support this yet  #opt :speech_volume, "Speech volume (percent of max)", :default => 90  opt :word, "At the sound of the <word>...", :default => "donk"  opt :word2, "... <word2>", :type => String  opt :dry_run, "No suspend, shorter timers. For testing speech, music, and volume", :short => "n"  opt :clock, "Make clock say this time. For testing clock vocalization edge cases, mainly", :default => 'now'endunless opts[:dry_run]  Trollop::die "must specify a date" unless ARGV[0]  time = `date '+%s' -d "#{ARGV[0]}"`.strip #Seconds since epoch  Trollop::die "must specify a valid date" if time == ''  `sudo sh -c "echo 0 > /sys/class/rtc/rtc0/wakealarm"` #Clear the RTC (setting it twice before triggered causes access violations)  `sudo sh -c "echo '#{time}' > /sys/class/rtc/rtc0/wakealarm"`  puts `head -n 4 /proc/driver/rtc` #Should display current date/time and alarm date/time  sleep 10  `sudo pm-suspend` #Sleepy time!end`shuf playlist > newlist`music_pid = start_mplayer('-playlist newlist')music_id = niluntil music_id = id_of(music_pid) #Slight delay before pulse source shows up  sleep 0.1endtime_to_fade_in = 60time_between_clock = 60 * 5if opts[:dry_run]  time_to_fade_in = 5  time_between_clock = 10endfade(music_id, time_to_fade_in, 5, opts[:music_volume])loop do  fade(id_of(music_pid), 2, opts[:music_volume], opts[:quiet_music_volume])  say_time(opts[:speech_volume], opts[:clock], opts[:word], opts[:word2])  sleep 0.5  fade(id_of(music_pid), 2, opts[:quiet_music_volume], opts[:music_volume])  sleep time_between_clockend

#!/usr/bin/env rubyrequire 'tmpdir'Dir.mktmpdir 'say' do |p|  file = File.join(p, 'speak.wav')  filenorm = File.join(p, 'speaknorm.wav')  `espeak -a 200 -k 20 -s 140 -v mb-en1 -z "#{ARGV[0]}" | mbrola -e /usr/share/mbrola/en1/en1 - #{file}`  `sox --norm #{file} #{filenorm}`  `paplay --volume=65535 #{filenorm}`end