poddb_client 0.1.0

data/NOTES

@@ -0,0 +1,10 @@
+
+------------------------------------------------------------------------
+Fri Sep  9 11:44:46 EDT 2011
+
+TODO
+
+- gemspec
+- OptionParser 
+
+

data/README.markdown

@@ -0,0 +1,6 @@
+# poddb
+
+Poddb is a podcast aggregator, fetcher, and discovery tool for Unix systems.
+
+
+

data/Rakefile

@@ -0,0 +1,70 @@
+require 'rake'
+require 'rake/testtask'
+require 'bundler'
+Bundler::GemHelper.install_tasks
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), 'lib')
+
+desc "release and build and push new website"
+task :push => [:release, :web]
+
+desc "Bumps version number up one and git commits"
+task :bump do
+  basefile = "lib/poddb_client/version.rb"
+  file = File.read(basefile)
+  oldver = file[/VERSION = '(\d.\d.\d)'/, 1]
+  newver_i = oldver.gsub(".", '').to_i + 1
+  newver = ("%.3d" % newver_i).split(//).join('.')
+  puts oldver
+  puts newver
+  puts "Bumping version: #{oldver} => #{newver}"
+  newfile = file.gsub("VERSION = '#{oldver}'", "VERSION = '#{newver}'") 
+  File.open(basefile, 'w') {|f| f.write newfile}
+  `git commit -am 'Bump'`
+end
+
+desc "build and push website"
+task :web => :build_webpage do
+  puts "Building and pushing website"
+  Dir.chdir "../project-webpages" do
+    `scp out/poddb_client.html zoe2@instantwatcher.com:~/danielchoi.com/public/software/`
+    `rsync -avz out/images-poddb_client zoe2@instantwatcher.com:~/danielchoi.com/public/software/`
+    `rsync -avz out/stylesheets zoe2@instantwatcher.com:~/danielchoi.com/public/software/`
+    `rsync -avz out/lightbox2 zoe2@instantwatcher.com:~/danielchoi.com/public/software/`
+  end
+  #`open http://danielchoi.com/software/poddb_client.html`
+end
+
+desc "build webpage"
+task :build_webpage do
+  `cp README.markdown ../project-webpages/src/poddb_client.README.markdown`
+  `cp coverage.markdown ../project-webpages/src/poddb_client.coverage.markdown`
+  Dir.chdir "../project-webpages" do
+    puts `ruby gen.rb poddb_client #{ViTunes::VERSION}`
+    `open out/poddb_client.html`
+  end
+end
+
+
+desc "git push and rake release bumped version"
+task :bumped do
+  puts `git push && rake release`
+  Rake::Task["web"].execute
+end
+
+desc "Run tests"
+task :test do 
+  $:.unshift File.expand_path("test")
+  require 'test_helper'
+  Dir.chdir("test") do 
+    Dir['*_test.rb'].each do |x|
+      puts "requiring #{x}"
+      require x
+    end
+  end
+
+  MiniTest::Unit.autorun
+end
+
+task :default => :test
+

data/bin/poddb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+require 'poddb_client'
+
+PoddbClient.new(ARGV).run
+

data/lib/interactive.vim

@@ -0,0 +1,233 @@
+let s:client_cmd = "ruby -Ilib bin/poddb"  
+let s:base_url = "http://localhost:3000"
+
+let s:download_and_play_cmd = s:client_cmd." --download-and-play "
+
+let s:poddb_cache_dir = $HOME."/.poddb/cache"
+call system("mkdir -p ".s:poddb_cache_dir)
+let s:favorite_podcasts_list = $HOME."/.poddb/favorites"
+
+let s:download_list = []
+
+autocmd VimLeave * :call <SID>write_download_list()<CR>
+
+function! PoddbStatusLine()
+  return "%<%f\ | Press ".g:mapleader."? for help. "."%r%=%-14.(%l,%c%V%)\ %P"
+endfunction
+
+" main_window() is a list of items, shown from search and by show_podcast_items()
+function! s:main_window()
+  let s:listbufnr = bufnr('')
+  setlocal cursorline
+  setlocal nowrap
+  setlocal textwidth=0
+  setlocal nomodifiable
+  setlocal statusline=%!PoddbStatusLine()
+  noremap <buffer> <cr> :call <SID>show_item()<cr>
+  noremap <buffer> l :call <SID>show_item()<cr>
+  noremap <buffer> d :call <SID>mark_for_download()<cr>
+  noremap <buffer> D :call <SID>download_and_play()<cr>
+  noremap <buffer> p :call <SID>show_podcast_items('')<cr>
+  noremap <buffer> <c-j> :call <SID>show_next_item(0)<CR> 
+  noremap <buffer> <c-k> :call <SID>show_next_item(1)<CR> 
+  noremap <buffer> f :call <SID>favorite_this_podcast()<CR> 
+  autocmd BufEnter <buffer> :setlocal nowrap
+  noremap <buffer> <Leader>? :call <SID>help()<CR>
+endfunction
+
+function! s:item_window() 
+  rightbelow split poddb-item-window
+  let s:itembufnr = bufnr('%')
+  setlocal buftype=nofile
+  noremap <buffer> <c-j> :call <SID>show_next_item(0)<CR> 
+  noremap <buffer> <c-k> :call <SID>show_next_item(1)<CR> 
+  noremap <buffer> d :call <SID>mark_for_download()<cr>
+  close
+endfunction
+
+function! s:show_item()
+  if s:is_podcast_list()
+    let podcastId = matchstr( matchstr(getline(line('.')), '\d\+\s*$'), '\d\+' )
+    call s:show_podcast_items(podcastId)
+    return
+  else
+    let itemId = matchstr(getline(line('.')), '\d\+$')
+  endif
+  if (itemId == '')
+    return
+  endif
+  let command = "curl -s '".s:base_url."/item/".itemId."'"
+  let res = system(command)
+  call s:focus_window(s:itembufnr)
+  silent! 1,$delete
+  silent! put! =res
+  normal 1G
+  wincmd p
+endfunc
+
+function! s:mark_for_download() range
+  if s:is_podcast_list()
+    return
+  end
+  call s:focus_window(s:listbufnr)
+  let itemId = matchstr( matchstr(getline(line('.')), '\d\+\s*$'), '\d\+' )
+  if itemId == ''
+    return
+  endif
+  setlocal modifiable
+  let lnum = a:firstline
+  while lnum <= a:lastline
+    let line = getline(lnum)
+    if (match(line, "^*") != -1)
+      let newline = substitute(line, '^*', ' ', '')
+      call filter(s:download_list, 'v:val == itemId')  
+    else
+      let newline = substitute(line, '^.', '*', '')
+      call add(s:download_list, itemId)
+    endif
+    call setline(lnum, newline)
+    let lnum += 1
+  endwhile
+  setlocal nomodifiable
+  write
+  redraw
+endfunc
+
+function! s:write_download_list() 
+  let outfile = s:poddb_cache_dir . "/download_list"
+  echo s:download_list
+  " sleep 1
+  call writefile(s:download_list, outfile)
+endfunc
+
+function! s:show_podcast_items(podcastId)
+  " Let user use p key from podcastlist and itemlist
+  " If p is pressed in podcastlist, podcastId will be blank, and we'll reuse
+  " s:show_item() to extract podcastId and call this method again.
+  if s:is_podcast_list() && a:podcastId == ''
+    call s:show_item()
+    return
+  end
+  if a:podcastId != ''
+    let podcastId = a:podcastId
+  else
+    let podcastId = matchstr( matchstr(getline(line('.')), '\d\+ |\s*\d\+$'), '\d\+' )
+  end
+  if (podcastId == '')
+    return
+  endif
+  let command = "curl -s '".s:base_url."/podcast/".podcastId."/items'"
+  let contents = system(command)
+  if contents =~ 'No matches\c'
+    echom "No items!"
+    return
+  endif
+  call s:focus_window(s:itembufnr)
+  close!
+  let outfile = s:poddb_cache_dir . "/podcast-" . podcastId . "-itemlist" 
+  call writefile(split(contents, "\n"), outfile)
+  exec "e+3 ".outfile
+  call s:main_window()
+endfunc
+
+function! s:is_podcast_list()
+  let top_line = getline(1)
+  return top_line =~ "xml_url"
+endfunct
+
+function! s:favorite_this_podcast()
+  let is_podcast_list = s:is_podcast_list()
+  if is_podcast_list
+    let podcastId = matchstr( matchstr(getline(line('.')), '\d\+\s*$'), '\d\+' )
+  else
+    let podcastId = matchstr( matchstr(getline(line('.')), '\d\+ |\s*\d\+$'), '\d\+' )
+  endif
+  if (podcastId == '')
+    return
+  endif
+  if !is_podcast_list
+    call system("grep '^".podcastId."$' ".s:favorite_podcasts_list." ||  echo ".podcastId." >> ".s:favorite_podcasts_list)
+    echom "Added this podcast to favorites"
+    return
+  end
+  let line = getline('.')
+  if (match(line, "^@") != -1)
+    let newline = substitute(line, '^@', ' ', '')
+    let tmp = tempname()
+    " alter favorites file 
+    call system("grep -v '^".podcastId."$' ".s:favorite_podcasts_list." | uniq > ".tmp."  &&  mv ".tmp." ".s:favorite_podcasts_list)
+  else
+    let newline = substitute(line, '^ ', '@', '')
+    " append to favorites file 
+    call system("echo ".podcastId." >> ".s:favorite_podcasts_list)
+  endif
+  setlocal modifiable
+  call setline(line('.'), newline)
+  setlocal nomodifiable
+  write!
+  normal 0
+endfunc
+
+function! s:download_and_play()
+  let itemId = matchstr( matchstr(getline(line('.')), '\d\+\s*$'), '\d\+' )
+  let outfile = s:poddb_cache_dir . "/download_and_play"
+  call system("echo ".itemId." > ".outfile)
+  call writefile(itemId, outfile)
+  qa!
+endfunc
+
+function! s:focus_window(target_bufnr)
+  if bufwinnr(a:target_bufnr) == winnr() 
+    return
+  end
+  let winnr = bufwinnr(a:target_bufnr) 
+  if winnr == -1
+    if a:target_bufnr == s:listbufnr
+      leftabove split
+    else
+      rightbelow split
+    endif
+    exec "buffer" . a:target_bufnr
+  else
+    exec winnr . "wincmd w"
+  endif
+endfunction
+
+function! s:show_next_item(previous)
+  if s:is_podcast_list()
+    return
+  end
+  let origbufnr = bufnr('%') 
+  let fullscreen = (bufwinnr(s:listbufnr) == -1) " we're in full screen message mode
+  if fullscreen
+    split
+    exec 'b'. s:listbufnr
+  else
+    call s:focus_window(s:listbufnr)
+  end
+  if a:previous
+    normal k
+  else
+    normal j
+  endif
+  call s:show_item()
+  normal zz
+  if origbufnr == s:itembufnr 
+    wincmd p
+  endif
+  normal 0 
+  redraw
+endfunction
+
+function! s:help()
+  " This just displays the README
+  let res = system(s:client_cmd." --key-mappings")
+  echo res  
+endfunction
+
+
+call s:main_window()
+call s:item_window()
+
+normal 3G
+

data/lib/poddb_client.rb

@@ -0,0 +1,179 @@
+require 'poddb_client/downloading'
+require 'cgi'
+require 'optparse'
+require 'net/http'
+
+class PoddbClient
+
+  # TODO: change to poddb.com
+  SERVER = "http://localhost:3000"
+
+  PODDB_DIR = "%s/.poddb" % ENV['HOME']
+  CACHE_DIR = "%s/.poddb/cache" % ENV['HOME']
+  `mkdir -p #{CACHE_DIR}`
+
+  VIMSCRIPT = "lib/interactive.vim"
+  ITEM_LIST_OUTFILE = "#{CACHE_DIR}/main.itemlist"
+  PODCAST_LIST_OUTFILE = "#{CACHE_DIR}/main.podcastlist"
+  FAVORITE_PODCASTS_FILE = "#{PODDB_DIR}/favorites"
+  DOWNLOAD_AND_PLAY_FILE = "#{CACHE_DIR}/download_and_play"
+
+  include PoddbClient::Downloading
+
+  def initialize(args)
+    @args = args
+    @options = {}
+    @outfile = ITEM_LIST_OUTFILE # changed only for podcast list
+    parse_options
+  end
+
+  def parse_options
+    OptionParser.new do |opts|
+      opts.banner = "Usage: poddb [options] [query]"
+      opts.separator ""
+      opts.on("-f", "--from-favorites", "Show all recent items from favorite podcasts") do
+        if ! File.size?(FAVORITE_PODCASTS_FILE)
+          puts "No podcasts found in #{FAVORITE_PODCASTS_FILE}"
+          exit
+        end
+        @items_from_favorites = true
+      end
+      opts.on("-a", "--add PODCAST_URL", "Add podcast with PODCAST_URL to the poddb database") do |podcast_url|
+        @add_podcast = podcast_url
+      end
+      opts.on("-l", "--list", "List all podcasts in the poddb database", "(If query is supplied, will return matching podcasts)") do 
+        @list_podcasts = true
+      end
+      opts.on("-F", "--favorite-podcasts", "Show favorite podcasts") do
+        if ! File.size?(FAVORITE_PODCASTS_FILE)
+          puts "No podcasts found in #{FAVORITE_PODCASTS_FILE}"
+          exit
+        end
+        @list_favorite_podcasts = true
+      end
+      opts.on("-t", "--type MEDIA_TYPE", "Return items of MEDIA_TYPE only (audio,video)") do |media_type|
+        @media_type_param = "&media_type=#{media_type}"
+      end
+      opts.on("--download-and-play ITEM_ID", "Download item and play with PODDB_MEDIA_PLAYER") do |item_id|
+        puts "Download and play #{item_id}"
+      end
+      opts.on("--key-mappings", "Show key mappings for Vim navigation interface") do
+        puts "KEYMAPPINGS"
+        exit
+      end
+      opts.on_tail("-h", "--help", "Show this message") do
+        puts opts
+        exit
+      end
+      opts.on_tail("-v", "--version", "Show version number") do
+        require 'poddb_client/version'
+        puts "poddb #{VERSION}"
+        exit
+      end
+    end.parse!(@args)
+    @query = CGI::escape(@args.join(' ').strip)
+  end
+
+  def run
+    cleanup
+    if @add_podcast
+      add_podcast
+    elsif @list_podcasts || @list_favorite_podcasts 
+      list_podcasts
+      interactive
+    elsif @items_from_favorites
+      items_from_favorites
+      interactive
+    else
+      search
+      interactive
+    end
+  end
+
+  def add_podcast
+    puts "Adding podcast..."
+    res = Net::HTTP.post_form(URI.parse("#{SERVER}/podcasts"),
+                              'url' => @add_podcast)
+    # TODO improve response
+    puts res.body
+  end
+
+  def interactive
+    if !STDOUT.tty?
+      puts @output
+      exit
+    end
+    if @output =~ /^No matches/i
+      puts @output
+      exit
+    end
+
+    File.open(@outfile, 'w') {|f| f.puts @output }
+    cmd = "vim -S #{VIMSCRIPT} #{@outfile} #{@poddb_env}"
+    puts cmd
+    system(cmd)
+    if download_and_play?
+      download_and_play
+    else
+      download_marked_items
+    end
+    cleanup
+  end
+
+  def list_podcasts
+    @outfile = PODCAST_LIST_OUTFILE
+    @output = if @list_podcasts
+                `curl -s #{SERVER}/podcasts?q=#{@query}`
+              elsif @list_favorite_podcasts 
+                `curl -s #{SERVER}/podcasts?podcast_ids=#{favorite_podcast_ids.join(',')}`
+              end
+    if File.size?(FAVORITE_PODCASTS_FILE)
+      @output = @output.split("\n").map {|line|
+        # podcast_ids here are strings
+        if (podcast_id = line[/\d+$/,0]) && favorite_podcast_ids.include?(podcast_id)
+          line.sub(/^ /, "@")
+        else
+          line
+        end
+      }.join("\n")
+    end
+  end
+
+  def items_from_favorites
+    @output = `curl -s '#{SERVER}/items?podcast_ids=#{favorite_podcast_ids.join(',')}#{@media_type_param}'`
+    mark_already_downloaded
+  end
+
+  def search
+    @output = `curl -s '#{SERVER}/search?q=#{@query}#{@media_type_param}'`
+    mark_already_downloaded
+  end
+
+  def cleanup
+    `rm -rf #{CACHE_DIR}/*`
+  end
+
+private
+
+  def favorite_podcast_ids
+    if File.size?(FAVORITE_PODCASTS_FILE)
+      File.readlines(FAVORITE_PODCASTS_FILE).map(&:strip).select {|x| x != ''}
+    else
+      []
+    end
+  end
+
+  def mark_already_downloaded
+    @downloaded_item_ids = Dir['*poddb*'].map { |f| f[/poddb(\d+)/,1] }.compact
+    @output = @output.split(/\n/).map {|line| 
+      item_id = line[/\d+$/,0] 
+      if @downloaded_item_ids.include?(item_id)
+        line.sub(/^ /, 'D')
+      else
+        line
+      end
+    }.join("\n")
+  end
+
+
+end

data/lib/poddb_client/downloading.rb

@@ -0,0 +1,55 @@
+require 'yaml'
+require 'uri'
+
+class PoddbClient
+  module Downloading
+
+
+    def titleize(s, maxlength=20) 
+      s.gsub(/\W+/, '-')[0,maxlength].sub(/-$/, '')
+    end
+
+    def download(item_id)
+      response = `curl -s #{SERVER}/item/#{item_id}/download`
+      data = YAML::load(response)
+      item = data[:item]
+      podcast = data[:podcast]
+      enclosure_url = item[:enclosure_url]
+      title_fragment = titleize item[:title], 50
+      podcast_fragment = titleize podcast[:title], 40
+
+      filename_suffix = File.extname(URI.parse(enclosure_url).path)
+
+      @filename = "%s.%s.poddb%s%s" % [podcast_fragment, title_fragment, item_id.to_s, filename_suffix]
+      puts "Downloading #{enclosure_url} as #{@filename}"
+      cmd = "wget -O #{@filename} '#{enclosure_url}' && touch #{@filename}"
+      `#{cmd}`
+    end
+
+    def download_marked_items
+      download_list_file = "#{CACHE_DIR}/download_list" 
+      return unless File.size?(download_list_file)
+      item_ids = File.readlines(download_list_file).
+        map {|line| line[/(\d+)\s*$/, 1]}.
+        compact.map {|x| x.to_i}
+      item_ids.each do |item_id| 
+        download item_id
+      end
+    end
+
+
+    def download_and_play?
+      File.size? DOWNLOAD_AND_PLAY_FILE
+    end
+
+    def download_and_play
+      item_id = File.read(DOWNLOAD_AND_PLAY_FILE).strip
+      abort("No item id found") if item_id !~ /\d/
+      download item_id
+      media_player_cmd = ENV['PODDB_MEDIA_PLAYER'] || 'mplayer'
+      exec("#{media_player_cmd} #@filename")
+    end
+  end
+end
+
+

data/lib/poddb_client/version.rb

@@ -0,0 +1,3 @@
+class PoddbClient
+  VERSION = '0.1.0'
+end

data/poddb_client.gemspec

@@ -0,0 +1,28 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "poddb_client/version"
+
+Gem::Specification.new do |s|
+  s.name        = "poddb_client"
+  s.version     = PoddbClient::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.required_ruby_version = '>= 1.8.6'
+
+  s.authors     = ["Daniel Choi"]
+  s.email       = ["dhchoi@gmail.com"]
+  s.homepage    = "http://danielchoi.com/software/poddb_client.html"
+  s.summary     = %q{Podcast aggregation from the command line}
+  s.description = %q{Podcast aggregation from the command line}
+
+  s.rubyforge_project = "poddb_client"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  message = "** Now please run poddb_client-install to install the Vim plugin **"
+  divider = "*" * message.length 
+  s.post_install_message = [divider, message, divider].join("\n")
+end
+

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification 
+name: poddb_client
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Daniel Choi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-09-13 00:00:00 -04:00
+default_executable: 
+dependencies: []
+
+description: Podcast aggregation from the command line
+email: 
+- dhchoi@gmail.com
+executables: 
+- poddb
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- NOTES
+- README.markdown
+- Rakefile
+- bin/poddb
+- lib/interactive.vim
+- lib/poddb_client.rb
+- lib/poddb_client/downloading.rb
+- lib/poddb_client/version.rb
+- poddb_client.gemspec
+has_rdoc: true
+homepage: http://danielchoi.com/software/poddb_client.html
+licenses: []
+
+post_install_message: |-
+  *******************************************************************
+  ** Now please run poddb_client-install to install the Vim plugin **
+  *******************************************************************
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.6
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: poddb_client
+rubygems_version: 1.6.1
+signing_key: 
+specification_version: 3
+summary: Podcast aggregation from the command line
+test_files: []
+