in_our_time 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: d9043f6f2dbe432df896bf146dd287d879aa5869
+  data.tar.gz: c1952b8d0ea58b5a4019a9842b1ad36078683bb3
+SHA512:
+  metadata.gz: 9e09695c6a2cbe9f8ee92220461bfb8d749be4c2edc469a16de2e18acecc3364aed07d482ae9d22b37a8917312b7a85f878e98b1e027613b3f5dc483dc6a569e
+  data.tar.gz: 9fba64691995283bce6b0737676056e118a68f413d380cb3a9001bfd4a1b65709d5e29148f756bd55992cbd65562d88500745e20647a1eecd3ce20510bb87280

data/.gitignore

@@ -0,0 +1,4 @@
+/audio/
+/rss/
+/in_our_time.org
+/config.yml

data/Gemfile

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+# A sample Gemfile
+source "https://rubygems.org"
+
+gemspec

data/Rakefile

@@ -0,0 +1,15 @@
+require 'bundler/gem_tasks'
+require 'rake/testtask'
+require 'rake/version_task'
+require 'yard'
+
+Rake::VersionTask.new
+
+Rake::TestTask.new do |t|
+  t.pattern = "test/test_*.rb"
+end
+
+YARD::Rake::YardocTask.new do |t|
+  t.files   = ['lib/**/*.rb']
+  t.options = ['--any', '--extra', '--opts']
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/bin/iot

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+
+puts Dir.pwd
+require 'lib/in_our_time.rb'

data/in_our_time.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+
+Gem::Specification.new do |spec|
+  spec.name        = 'in_our_time'
+  spec.version     = File.read('VERSION')
+  spec.date        = '2016-09-26'
+  spec.authors     = ["Martyn Jago"]
+  spec.email       = ["martyn.jago@btinternet.com"]
+  spec.description = "In Our Time Player"
+  spec.summary     = "Select, play, and download BBC \'In Our Time\' podcasts - all from the command line"
+  spec.homepage    = 'https://github.com/mjago/In_Our_Time'
+  spec.files       = `git ls-files`.split($/)
+  spec.executables = "iot"
+  spec.bindir      = 'bin'
+  spec.license     = 'MIT'
+
+  spec.require_paths = ["lib"]
+  spec.required_ruby_version = '>= 2.0.0'
+  spec.add_runtime_dependency 'nokogiri', '>= 1.6.8'
+  spec.add_development_dependency 'version', '>= 1.0.0'
+end

data/lib/in_our_time.rb

@@ -0,0 +1,4 @@
+require_relative 'iot/iot.rb'
+require_relative 'iot/colour_prompt.rb'
+
+InOurTime.new

data/lib/iot/colour_prompt.rb

@@ -0,0 +1,129 @@
+# ==========================================
+#   Unity Project - A Test Framework for C
+#   Copyright (c) 2007 Mike Karlesky, Mark VanderVoord, Greg Williams
+#   [Released under MIT License. Please refer to license.txt for details]
+# ==========================================
+
+if RUBY_PLATFORM =~/(win|w)32$/
+  begin
+    require 'Win32API'
+  rescue LoadError
+    puts "ERROR! \"Win32API\" library not found"
+    puts "\"Win32API\" is required for colour on a windows machine"
+    puts "  try => \"gem install Win32API\" on the command line"
+    puts
+  end
+  # puts
+  # puts 'Windows Environment Detected...'
+  # puts 'Win32API Library Found.'
+  # puts
+end
+
+class ColourCommandLine
+  def initialize
+    if RUBY_PLATFORM =~/(win|w)32$/
+      get_std_handle = Win32API.new("kernel32", "GetStdHandle", ['L'], 'L')
+      @set_console_txt_attrb =
+        Win32API.new("kernel32","SetConsoleTextAttribute",['L','N'], 'I')
+      @hout = get_std_handle.call(-11)
+    end
+  end
+
+  def change_to(new_colour)
+    if RUBY_PLATFORM =~/(win|w)32$/
+      @set_console_txt_attrb.call(@hout,self.win32_colour(new_colour))
+    else
+      "\033[30;#{posix_colour(new_colour)};22m"
+    end
+  end
+
+  def win32_colour(colour)
+    case colour
+    when :black then 0
+    when :dark_blue then 1
+    when :dark_green then 2
+    when :dark_cyan then 3
+    when :dark_red then 4
+    when :dark_purple then 5
+    when :dark_yellow, :narrative then 6
+    when :default_white, :default, :dark_white then 7
+    when :silver then 8
+    when :blue then 9
+    when :green, :success then 10
+    when :cyan, :output then 11
+    when :red, :failure then 12
+    when :purple then 13
+    when :yellow then 14
+    when :white then 15
+    else
+      0
+    end
+  end
+
+  def posix_colour(colour)
+    # ANSI Escape Codes - Foreground colors
+    # | Code | Color                     |
+    # | 39   | Default foreground color  |
+    # | 30   | Black                     |
+    # | 31   | Red                       |
+    # | 32   | Green                     |
+    # | 33   | Yellow                    |
+    # | 34   | Blue                      |
+    # | 35   | Magenta                   |
+    # | 36   | Cyan                      |
+    # | 37   | Light gray                |
+    # | 90   | Dark gray                 |
+    # | 91   | Light red                 |
+    # | 92   | Light green               |
+    # | 93   | Light yellow              |
+    # | 94   | Light blue                |
+    # | 95   | Light magenta             |
+    # | 96   | Light cyan                |
+    # | 97   | White                     |
+
+    case colour
+    when :black then 30
+    when :red, :failure then 31
+    when :green, :success then 32
+    when :yellow then 33
+    when :blue, :narrative then 34
+    when :purple, :magenta then 35
+    when :cyan, :output then 36
+    when :white, :default_white then 37
+    when :default then 39
+    when :dark_gray     then 90  # Dark gray
+    when :light_red     then 91  # Light red
+    when :light_green   then 92  # Light green
+    when :light_yellow  then 93  # Light yellow
+    when :light_blue    then 94  # Light blue
+    when :light_magenta then 95  # Light magenta
+    when :light_cyan    then 96  # Light cyan
+    when :White         then 97  # White
+
+    else
+      39
+    end
+  end
+
+  def out_c(mode, colour, str, out = :stdout)
+    buf = case out
+          when :stdout
+            $stdout
+          else
+            out = out
+          end
+    case RUBY_PLATFORM
+    when /(win|w)32$/
+      change_to(colour)
+      buf.puts str if mode == :puts
+      buf.print str if mode == :print
+      change_to(:default_white)
+    else
+      buf.puts("#{change_to(colour)}#{str}\033[0m") if mode == :puts
+      $stdout.print("#{change_to(colour)}#{str}\033[0m") if mode == :print
+    end
+  end
+end # ColourCommandLine
+
+def colour_puts(role,str, out = :stdout)  ColourCommandLine.new.out_c(:puts, role, str, out)  end
+def colour_print(role,str, out = :stdout) ColourCommandLine.new.out_c(:print, role, str, out) end

data/lib/iot/iot.rb

@@ -0,0 +1,539 @@
+require 'nokogiri'
+require 'rss'
+require 'open-uri'
+require 'net/http'
+require 'open-uri'
+require 'yaml'
+require 'fileutils'
+
+class InOurTime
+  ROOT = File.expand_path '~/'
+  IN_OUR_TIME = File.join ROOT, '.in_our_time'
+  CONFIG          = File.join IN_OUR_TIME, 'config.yml'
+  UPDATE_INTERVAL = 604800
+  AUDIO_DIRECTORY = 'audio'
+  RSS_DIRECTORY   = 'rss'
+  PAGE_HEIGHT     = 20
+  PAGE_WIDTH      = 80
+
+  class KeyboardEvents
+
+    @arrow = 0
+
+    def input
+      sleep 0.001
+      begin
+        system("stty raw -echo")
+        str = STDIN.getc
+      ensure
+        system("stty -raw echo")
+      end
+
+      case @arrow
+      when 1
+        if str == "["
+          @arrow = 2
+        else
+          @arrow = 0
+        end
+
+      when 2
+        return :previous     if str == "A"
+        return :next         if str == "B"
+        return :page_forward if str == "C"
+        return :previous     if str == "D"
+        @arrow = 0
+      end
+
+      case str
+      when "\e"
+        @arrow = 1
+      when "l",'L'
+        :list
+      when ' '
+        :page_forward
+      when "q",'Q', "\u0003", "\u0004"
+        :quit
+      when 'p', 'P'
+        :previous
+      when 'n', 'N'
+        :next
+      when 's', 'S'
+        :stop
+      when 'x', 'X', "\r"
+        :play
+      when 'i', 'I'
+        :info
+      when '?', 'h'
+        :help
+      else
+        :unknown
+      end
+    end
+  end
+
+  def initialize
+    @programs, @selected = [], 0
+    setup
+    load_config
+    check_remote
+    parse_rss
+    sort_titles
+    run
+  end
+
+  def iot_print x, role = :default
+    colour_print(role, x) if @config[:colour]
+    print(x) unless @config[:colour]
+  end
+
+  def iot_puts x, role = :default
+    colour_puts(role, x) if @config[:colour]
+    puts(x) unless @config[:colour]
+  end
+
+  def now
+    Time.now.to_i
+  end
+
+  def setup
+    iot = IN_OUR_TIME
+    audio = File.join iot, AUDIO_DIRECTORY
+    pages = File.join iot, RSS_DIRECTORY
+    Dir.mkdir iot unless Dir.exist? iot
+    Dir.mkdir audio unless Dir.exist? audio
+    unless Dir.exist? pages
+      Dir.mkdir pages
+      local_rss.map{|f| FileUtils.touch(File.join pages, f)}
+    end
+  end
+
+  def update_remote?
+    now - @config[:update_interval] > @config[:last_update]
+  end
+
+  def new_config
+    {:last_update => now - UPDATE_INTERVAL - 1,
+     :update_interval => UPDATE_INTERVAL,
+     :colour => true,
+     :mpg_player => :afplay,
+     :sort => :age,
+     :show_count => true,
+     :page_height => PAGE_HEIGHT,
+     :page_width  => PAGE_WIDTH
+    }
+  end
+
+  def load_config
+    unless File.exist? CONFIG
+      save_config new_config
+    end
+    @config = YAML::load_file(CONFIG)
+    @line_count = @config[:page_height]
+  end
+
+  def save_config cfg = @config
+    File.open(CONFIG, 'w') { |f| f.write cfg.to_yaml}
+  end
+
+  def rss_addresses
+    host = 'http://www.bbc.co.uk/programmes'
+    [ "/b006qykl/episodes/downloads.rss",
+      "/p01drwny/episodes/downloads.rss",
+      "/p01dh5yg/episodes/downloads.rss",
+      "/p01f0vzr/episodes/downloads.rss",
+      "/p01gvqlg/episodes/downloads.rss",
+      "/p01gyd7j/episodes/downloads.rss"
+    ].collect{|page| host + page}
+  end
+
+  def local_rss
+    [
+      "culture.rss",
+      "history.rss",
+      "in_our_time.rss",
+      "philosophy.rss",
+      "religion.rss",
+      "science.rss"
+    ]
+  end
+
+  def fetch_uri uri, file
+    open(file, "wb") do |f|
+      open(uri) do |ur|
+        f.write(ur.read)
+      end
+    end
+  end
+
+  def filename_from_title title
+    temp = title.gsub(/[^0-9a-z ]/i, '').gsub(' ', '_').strip + '.mp3'
+    File.join(File.join IN_OUR_TIME, AUDIO_DIRECTORY, temp.downcase)
+  end
+
+  def download_audio program, addr
+    res = Net::HTTP.get_response(URI.parse(addr))
+    case res
+    when Net::HTTPOK
+      File.open(filename_from_title(program[:title]) , 'wb') do |f|
+        iot_print "writing #{filename_from_title(program[:title])}...", :yellow
+        f.print(res.body)
+        iot_puts " written.", :yellow
+      end
+      program[:have_locally] = true
+    else
+      iot_puts 'audio download failed. Retrying...', :yellow
+    end
+  end
+
+  def have_locally? title
+    filename = filename_from_title(title)
+    if File.exists?(filename)
+      return true
+    end
+    false
+  end
+
+  def rss_files
+    local_rss.map{|f| File.join IN_OUR_TIME, RSS_DIRECTORY, f }
+  end
+
+  def check_remote
+    if update_remote?
+      iot_print "checking rss feeds ", :yellow
+      local_rss.length.times do |count|
+        print '.'
+        fetch_uri rss_addresses[count], rss_files[count]
+      end
+      iot_puts ''
+      @config[:last_update] = now
+      save_config
+    end
+  end
+
+  def uniquify_programs
+    @programs = @programs.uniq{|pr| pr[:title]}
+    unless @programs.uniq.length == @programs.length
+      iot_puts "Error ensuring Programs unique!", :red
+      exit 1
+    end
+  end
+
+  def parse_rss
+    rss_files.each do |file|
+      @doc = Nokogiri::XML(File.open(file))
+      titles    = @doc.xpath("//item//title")
+      descs     = @doc.xpath("//item//description")
+      subtitles = @doc.xpath("//item//itunes:subtitle")
+      summarys  = @doc.xpath("//item//itunes:summary")
+      durations = @doc.xpath("//item//itunes:duration")
+      dates     = @doc.xpath("//item//pubDate")
+      links     = @doc.xpath("//item//link")
+
+      0.upto (titles.length - 1) do |idx|
+        program = {}
+        program[:title] = titles[idx].text
+        #    program[:description] = descs[idx]
+        program[:subtitle] = subtitles[idx].text
+        program[:summary]  = summarys[idx].text
+        program[:duration] = durations[idx].text
+        program[:date] = (dates[idx].text)[0..15]
+        program[:link] = links[idx].text
+        program[:have_locally] = have_locally?(titles[idx].text)
+        @programs << program
+      end
+    end
+    uniquify_programs
+  end
+
+  def select_program title
+    @programs.each do |pr|
+      if pr[:title].strip == title.strip
+        return pr
+      end
+    end
+    nil
+  end
+
+  def sort_titles
+    @sorted_titles = []
+    @sorted_titles = @programs.collect { |pr| pr[:title] }
+#    @sorted_titles = @sorted_titles.uniq{|x| x.downcase}
+    @sorted_titles = @sorted_titles.sort unless @config[:sort] == :age
+  end
+
+  def date
+    @programs.map {|pr| return pr[:date] if pr[:title] == @playing}
+  end
+
+  def pre_delay
+    x = DateTime.strptime("Mon, 20 Jun 2016", '%a, %d %b %Y')
+    y = DateTime.strptime(date, '%a, %d %b %Y')
+    y < x ? '410' : '435'
+  end
+
+  def player_cmd
+    case @config[:mpg_player]
+    when :mpg123
+      "mpg123 -qk#{pre_delay}"
+    else
+      "afplay"
+    end
+  end
+
+  def kill_cmd
+    "killall " +
+      case @config[:mpg_player]
+      when :mpg123
+        "mpg123"
+      else
+        "afplay"
+      end
+  end
+
+  def run_program prg
+    unless prg[:have_locally]
+      retries = 0
+      iot_puts "fetching #{prg[:title]}", :yellow
+      10.times do
+        res = Net::HTTP.get_response(URI.parse(prg[:link]))
+        case res
+        when Net::HTTPFound
+          iot_puts 'redirecting...', :yellow
+          @doc = Nokogiri::XML(res.body)
+          redirect = @doc.css("body p a").text
+          break if download_audio(prg, redirect)
+          sleep 2
+        else
+          iot_puts 'Error! Expected to be redirected!', :red
+          exit 1
+        end
+        retries += 1
+      end
+      if retries >= 10
+        iot_puts "Max retries downloading #{prg[:title]}", :red
+        exit 1
+      end
+    end
+    @play = Thread.new do
+      @playing = prg[:title]
+      system player_cmd + ' ' +
+             filename_from_title(@playing)
+      @playing = nil
+    end
+  end
+
+  def print_playing_maybe
+    iot_puts ''
+    if @playing
+      iot_puts "Playing '#{@playing}'"
+    elsif @started.nil?
+      @started = true
+      iot_puts "? or h for instructions"
+    else
+      iot_puts ''
+    end
+  end
+
+  def kill_audio
+    if @playing
+      system kill_cmd if @play
+      @play.kill if @play
+      @playing = nil
+    end
+  end
+
+  def idx_format idx
+    sprintf("%03d, ", idx + 1)
+  end
+
+  def show_count_maybe idx
+    if have_locally?(@sorted_titles[idx])
+      iot_print idx_format(idx), :cyan if @config[:show_count]
+    else
+      iot_print idx_format(idx), :yellow if @config[:show_count]
+    end
+  end
+
+  def draw_page
+    if @line_count <= @sorted_titles.length
+      @line_count.upto(@line_count + @config[:page_height] - 1) do |idx|
+        if idx < @sorted_titles.length
+          iot_print "> " if(idx == @selected) unless @config[:colour]
+          show_count_maybe idx
+          iot_puts @sorted_titles[idx],  :purple    if    (idx == @selected)
+          iot_puts @sorted_titles[idx],  :default unless(idx == @selected)
+        end
+      end
+    else
+      @line_count = 0
+      0.upto(@config[:page_height] - 1) do |idx|
+        iot_print "> " if(idx == @selected)
+        show_count_maybe(idx) unless @sorted_titles[idx].nil?
+        iot_puts @sorted_titles[idx] unless @sorted_titles[idx].nil?
+      end
+    end
+    @line_count += @config[:page_height]
+    print_playing_maybe
+  end
+
+  def display_list action
+    system 'clear'
+    case action
+    when :draw_page
+      draw_page
+    when :previous_page
+      if @line_count > 0
+        @line_count -= (@config[:page_height] * 2)
+      else
+        @line_count = @sorted_titles.length
+        @selected = @line_count
+      end
+      draw_page
+    when :same_page
+      @line_count -= @config[:page_height]
+      draw_page
+    end
+  end
+
+  def help
+    unless @help
+      system 'clear'
+      iot_puts ''
+      iot_puts " In Our Time Player (Help)   "
+      iot_puts ''
+      iot_puts " Next      - N (down arrow)  "
+      iot_puts " Previous  - P (up arrow)    "
+      iot_puts " Next Page -   (right arrow) "
+      iot_puts " Next Page -   (space)       "
+      iot_puts " Play      - X (return)      "
+      iot_puts " Stop      - S               "
+      iot_puts " List      - L               "
+      iot_puts " Info      - I               "
+      iot_puts " Help      - H               "
+      iot_puts " Quit      - Q               "
+      iot_puts ''
+      iot_puts " tl;dr:                      "
+      iot_puts ''
+      iot_puts "  Select: up/down arrows     "
+      iot_puts "  Play:   enter              "
+      18.upto(@config[:page_height] - 1) {iot_puts}
+      print_playing_maybe
+      @help = true
+    else
+      display_list :same_page
+      @help = nil
+    end
+  end
+
+  def reformat info
+    info.gsub('With ', "\nWith ")
+      .gsub('With: ', "\nWith: ")
+      .gsub('Producer', "- Producer")
+  end
+
+  def justify info
+    collect, top, bottom = [], 0, @config[:page_width]
+    loop do
+      if(bottom >= info.length)
+        collect << info[top..-1].strip
+        break
+      end
+      loop do
+        break unless info[top] == ' '
+        top += 1 ; bottom += 1
+      end
+      loop do
+        if idx = info[top..bottom].index("\n")
+          collect << info[top..top + idx]
+          bottom, top = top + idx + @config[:page_width] + 1, top + idx + 1
+          next
+        else
+          break if (info[bottom] == ' ')
+          bottom -= 1
+        end
+      end
+      collect << info[top..bottom]
+      bottom, top = bottom + @config[:page_width], bottom
+    end
+    collect
+  end
+
+  def info
+    if @info.nil?
+      system 'clear'
+      iot_puts ''
+      prg = select_program @sorted_titles[@selected]
+      iot_puts justify(prg[:subtitle].gsub(/\s+/, ' '))
+      iot_puts ''
+      iot_puts "Date Broadcast: #{prg[:date]}"
+      iot_puts "Duration:       #{prg[:duration].to_i/60} mins"
+      iot_puts "Availability:   " +
+               (prg[:have_locally] ? "Downloaded" : "Requires Download")
+      @info = 1
+    elsif @info == 1
+      system 'clear'
+      iot_puts ''
+      prg = select_program @sorted_titles[@selected]
+      info = prg[:summary].gsub(/\s+/, ' ')
+      iot_puts justify(reformat(info))
+      @info = -1
+    else
+      display_list :same_page
+      @info = nil
+    end
+  end
+
+  def run
+    display_list :same_page
+    key = KeyboardEvents.new
+    loop do
+      ip = key.input
+      @info = nil unless ip == :info
+      @help = nil unless ip == :help
+
+      case ip
+      when :list
+        @line_count = 0
+        @selected = 0
+        display_list :draw_page
+      when :page_forward
+        @selected = @line_count
+        display_list :draw_page
+      when :previous
+        @selected -= 1 if @selected > 0
+        if @selected >= @line_count -
+           @config[:page_height]
+          display_list :same_page
+        else
+          display_list :previous_page
+        end
+      when :next
+        @selected += 1
+        if @selected <= @line_count - 1
+          display_list :same_page
+        else
+          display_list :draw_page
+        end
+      when :play
+        kill_audio
+        title = @sorted_titles[@selected]
+        pr = select_program title
+        run_program pr
+        display_list :same_page
+      when :stop
+        kill_audio
+      when :info
+        info
+      when :help
+        help
+      when :quit
+        kill_audio
+        exit 0
+      end
+      sleep 0.001
+    end
+  end
+end
+
+InOurTime.new if __FILE__ == $0

metadata

@@ -0,0 +1,83 @@
+--- !ruby/object:Gem::Specification
+name: in_our_time
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Martyn Jago
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-09-26 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: nokogiri
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.6.8
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.6.8
+- !ruby/object:Gem::Dependency
+  name: version
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+description: In Our Time Player
+email:
+- martyn.jago@btinternet.com
+executables:
+- iot
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Rakefile
+- VERSION
+- bin/iot
+- in_our_time.gemspec
+- lib/in_our_time.rb
+- lib/iot/colour_prompt.rb
+- lib/iot/iot.rb
+homepage: https://github.com/mjago/In_Our_Time
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 2.0.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.6.6
+signing_key: 
+specification_version: 4
+summary: Select, play, and download BBC 'In Our Time' podcasts - all from the command
+  line
+test_files: []