jugyo-termtter 0.7.7 → 0.8.0

data/lib/plugin/post_exec_hook_sample.rb

@@ -0,0 +1,9 @@
+# -*- coding: utf-8 -*-
+
+Termtter::Client.register_hook(
+  :name => :post_exec_hook_sample,
+  :points => [:post_exec_list],
+  :exec_proc => proc {|cmd, arg, result|
+    p result
+  }
+)

data/lib/plugin/pre_exec_hook_sample.rb

@@ -0,0 +1,9 @@
+# -*- coding: utf-8 -*-
+
+Termtter::Client.register_hook(
+  :name => :pre_exec_hook_sample,
+  :points => [:pre_exec_update],
+  :exec_proc => proc {|cmd, arg|
+    false if /^y?$/i !~ Readline.readline("update? #{arg} [Y/n] ", false)
+  }
+)

data/lib/plugin/primes.rb

@@ -1,3 +1,5 @@
+# -*- coding: utf-8 -*-
+
 def primes(n)
   table = []
   (2 .. n).each do |i|

data/lib/plugin/quicklook.rb

@@ -1,3 +1,5 @@
+# -*- coding: utf-8 -*-
+
 require 'uri'
 require 'open-uri'
 require 'pathname'

data/lib/plugin/reblog.rb

@@ -1,32 +1,34 @@
+# -*- coding: utf-8 -*-
+
 require 'rubygems'
 require 'tumblr'
 
 module Termtter::Client
-  add_help 'reblog ID', 'Tumblr Reblog a status'
-
-  add_command %r'^reblog\s+(\d+)(.*)$' do |m, t|
-    id = m[1]
-    comment = m[2].strip
-    statuses = public_storage[:log].select { |s| s.id == id }
-    unless statuses.empty?
-      status = statuses.first
-    else
-      status = t.show(id).first
-    end
-
-    Tumblr::API.write(configatron.plugins.reblog.email, configatron.plugins.reblog.password) do
-      quote("#{status.text}", "<a href=\"http://twitter.com/#{status.user_screen_name}/status/#{status.id}\">Twitter / #{status.user_name}</a>")
-    end
-  end
-
-  add_completion do |input|
-    case input
-    when /^(reblog)\s+(\d*)$/
-      find_status_id_candidates $2, "#{$1} %s"
-    else
-      %w(reblog).grep(/^#{Regexp.quote input}/)
-    end
-  end
+  register_command(
+    :name => :reblog, :aliases => [],
+    :exec_proc => proc {|arg|
+      if arg =~ /^reblog\s+(\d+)(.*)$/
+        id = $1.strip
+        comment = $2.strip
+        statuses = public_storage[:log].select { |s| s.id == id }
+        unless statuses.empty?
+          status = statuses.first
+        else
+          status = t.show(id).first
+        end
+    
+        Tumblr::API.write(configatron.plugins.reblog.email, configatron.plugins.reblog.password) do
+          quote("#{status.text}", "<a href=\"http://twitter.com/#{status.user_screen_name}/status/#{status.id}\">Twitter / #{status.user_name}</a>")
+        end
+      end
+    },
+    :completion_proc => proc {|cmd, args|
+      if args =~ /^(\d*)$/
+        find_status_id_candidates $1, "#{cmd} %s"
+      end
+    },
+    :help => ['reblog ID', 'Tumblr Reblog a status']
+  )
 end
 
 # reblog.rb

data/lib/plugin/reload.rb

@@ -1,3 +1,3 @@
-module Termtter::Client
-  add_macro /^reload$/, 'eval exec $0'
-end
+# -*- coding: utf-8 -*-
+
+Termtter::Client.register_macro :reload, "eval exec $0"

data/lib/plugin/say.rb

@@ -1,3 +1,5 @@
+# -*- coding: utf-8 -*-
+
 raise 'say.rb runs only in OSX Leopard' if /darwin9/ !~ RUBY_PLATFORM
 
 # say :: String -> String -> IO ()

data/lib/plugin/scrape.rb

@@ -1,43 +1,41 @@
-module Termtter::Client
-  def self.scrape_group(group, t)
-    members = configatron.plugins.group.groups[group] || []
-    members.map {|member|
-      t.get_user_timeline(member)
-    }.flatten
-  end
-
-  def self.scrape_groups(t)
-    groups = configatron.plugins.group.groups
-    groups.map {|group|
-      scrape_group(group, t)
-    }.flatten
-  end
-
-  add_help 'scrape_group GROUPNAME', 'Get the group timeline'
-  add_help 'scrape_groups', 'Get all groups timeline'
+# -*- coding: utf-8 -*-
 
-  add_command /^(?:scrape_group)\s+(.+)/ do |m, t|
-    group_name = m[1].to_sym
-    statuses = scrape_group(group_name, t)
-    call_hooks(statuses, :pre_filter, t)
-    puts "done"
-  end
-
-  add_command /^(?:scrape_groups)\s*$/ do |m, t|
-    statuses = scrape_groups(t)
-    call_hooks(statuses, :pre_filter, t)
-    puts "done"
-  end
+module Termtter::Client
 
-  add_completion do |input|
-    case input
-    when /^(scrape_group)?\s+(.+)/
-      find_group_candidates($2, "#{$1} %s") if defined? find_group_candidates
-    when /^(scrape_group)\s+$/
-      configatron.plugins.group.groups.keys
-    else
-      %w(scrape_group scrape_groups).grep(/^#{Regexp.quote input}/)
+  def self.scrape_members(members)
+    statuses = []
+    members.each_with_index do |member, index|
+      puts "member #{index+1}/#{members.size} #{member}"
+      statuses += Termtter::API.twitter.get_user_timeline(member)
     end
+    statuses
+  end    
+  
+  def self.scrape_group(group)
+    members = configatron.plugins.group.groups[group] || []
+    scrape_members(members)
   end
 
+  register_command(
+                   :name => :scrape_group,
+                   :exec_proc => proc{ |args|
+                     groups = args.split(' ').map{|g| g.to_sym}
+                     if groups.include? :all
+                       groups = configatron.plugins.group.groups.keys
+                       puts "get all groups..."
+                     end
+                     members = []
+                     groups.each do |group|
+                       members += configatron.plugins.group.groups[group]
+                     end
+                     statuses = scrape_members(members.uniq.compact.sort)
+                     call_hooks(statuses, :pre_filter)
+                   },
+                   :completion_proc => proc {|cmd, args|
+                     arg = args.split(' ').last
+                     prefix = args.split(' ')[0..-2].join(' ')
+                     find_group_candidates arg, "#{cmd} #{prefix} %s"
+                   },
+                   :help => ['scrape_group GROUPNAME(S)', 'Get the group timeline']
+                   )
 end

data/lib/plugin/screen.rb

@@ -1,3 +1,5 @@
+# -*- coding: utf-8 -*-
+
 module Termtter
   module Plugin
     module Screen

data/lib/plugin/shell.rb

@@ -1,4 +1,14 @@
+# -*- coding: utf-8 -*-
+
 module Termtter::Client
-  add_help 'shell,sh', 'Start your shell'
-  add_macro /^(?:shell|sh)\s*$/, "eval system ENV['SHELL'] || ENV['COMSPEC']"
+  register_command :name => :shell, :aliases => [:sh],
+    :help => ['shell,sh', 'Start your shell'],
+    :exec_proc => proc {|args|
+      begin
+        pause
+        system ENV['SHELL'] || ENV['COMSPEC']
+      ensure
+        resume
+      end
+    }
 end

data/lib/plugin/sl.rb

@@ -1,31 +1,48 @@
-module Termtter::Client
-  public_storage[:current] = ''
+# -*- coding: utf-8 -*-
 
-  add_macro /^sl\s*$/, 'eval system "sl"'
+module Termtter
 
-  add_help 'pwd', 'Show current direcroty'
-  add_macro /^pwd\s*$/, 'eval public_storage[:current]'
+  module Client
 
-  add_help 'ls', 'Show list in current directory'
-  add_command /^ls\s*$/ do |m, t|
-    call_commands "list #{public_storage[:current]}", t
-  end
+    public_storage[:current] = ''
+    public_storage[:orig_prompt] = configatron.prompt
+    configatron.prompt = "~/ #{public_storage[:orig_prompt]}"
 
-  add_help 'cd USER', 'Change current directory'
-  add_command /^(?:cd\s+|\.\/)(.*)/ do |m, t|
-    directory = m[1].strip
-    directory = '' if /\~/ =~ directory
-    public_storage[:current] = directory
-    puts "=> #{directory}"
-  end
-  add_macro /^cd$/, 'eval public_storage[:current] = ""'
-
-  add_completion do |input|
-    case input
-    when /^(cd\s+|\.\/)(.*)/
-      find_user_candidates $2, "#{$1.gsub(/\s+/, ' ')}%s"
-    else
-      %w[ sl ls cd pwd ./ ].grep(/^#{Regexp.quote input}/)
-    end
+    register_command(
+      :name      => :sl, :aliases => [],
+      :exec_proc => proc {|arg| system("sl") },
+      :help      => ['sl', 'The train pass in front of your screen']
+    )
+
+    register_command(
+      :name      => :pwd, :aliases => [],
+      :exec_proc => proc {|arg| public_storage[:current] },
+      :help      => ['pwd', 'Show current direcroty']
+    )
+
+    register_command(
+      :name => :ls, :aliases => [],
+      :exec_proc => proc {|arg|
+        call_commands("list #{arg.empty? ? public_storage[:current] : arg}", API.twitter)
+      },
+      :completion_proc => proc {|cmd, args|
+        find_user_candidates args, "#{cmd} %s"
+      },
+      :help => ['ls', 'Show list in current directory']
+    )
+
+    register_command(
+      :name => :cd, :aliases => [],
+      :exec_proc => proc {|arg|
+        public_storage[:current] =
+          (arg.nil? || /\~/ =~ arg) ? '' : arg
+        configatron.prompt = "~/#{public_storage[:current]} #{public_storage[:orig_prompt]}"
+      },
+      :completion_proc => proc {|cmd, args|
+        find_user_candidates args, "#{cmd} %s"
+      },
+      :help => ['cd USER', 'Change current directory']
+    )
   end
 end
+

data/lib/plugin/spam.rb

@@ -1,3 +1,5 @@
+# -*- coding: utf-8 -*-
+
 Termtter::Twitter.new(configatron.user_name, configatron.password).update_status('*super spam time*')
 module Termtter::Client
   clear_commands

data/lib/plugin/standard_plugins.rb

@@ -1,61 +1,108 @@
+# -*- coding: utf-8 -*-
+
 require 'erb'
 
 module Termtter::Client
 
   # standard commands
 
-  add_command /^(update|u)\s+(.*)/ do |m, t|
-    text = ERB.new(m[2]).result(binding).gsub(/\n/, ' ')
-    unless text.empty?
-      t.update_status(text)
+  register_command(
+    :name => :update, :aliases => [:u],
+    :exec_proc => proc {|arg|
+      text = ERB.new(arg).result(binding).gsub(/\n/, ' ')
+      Termtter::API.twitter.update_status(text)
       puts "=> #{text}"
-    end
-  end
+    },
+    :completion_proc => proc {|cmd, args|
+      if /(.*)@([^\s]*)$/ =~ args
+        find_user_candidates $2, "#{cmd} #{$1}@%s"
+      end
+    }
+  )
 
-  add_command /^(direct|d)\s+([^\s]+)\s+(.*)\s*$/ do |m, t|
-    user = m[2]
-    text = ERB.new(m[3]).result(binding).gsub(/\n/, ' ')
-    unless text.empty?
-      t.direct_message(user, text)
-      puts "=> to:#{user} message:#{text}"
-    end
-  end
+  register_command(
+    :name => :direct, :aliases => [:d],
+    :exec_proc => proc {|arg|
+      if arg =~ /^([^\s]+)\s+(.*)\s*$/
+        user, text = $1, $2
+        Termtter::API.twitter.direct_message(user, text)
+        puts "=> to:#{user} message:#{text}"
+      end
+    },
+    :completion_proc => proc {|cmd, args|
+      if args =~ /^([^\s]+)$/
+        find_user_candidates $1, "#{cmd} %s"
+      end
+    }
+  )
 
-  add_command /^(profile|p)\s+([^\s]+)/ do |m, t|
-    profile = t.get_user_profile(m[2])
-    if profile
-      %w[ name favourites_count url id description protected utc_offset time_zone screen_name notifications statuses_count followers_count friends_count profile_image_url location following created_at ].each do |key|
-        puts "#{key} : #{profile[key]}" if profile.key?(key)
+  register_command(
+    :name => :profile, :aliases => [:p],
+    :exec_proc => proc {|arg|
+      user = Termtter::API.twitter.get_user_profile(arg)
+      attrs = %w[ name screen_name url description profile_image_url location protected following
+          friends_count followers_count statuses_count favourites_count
+          id time_zone created_at utc_offset notifications
+      ]
+      label_width = attrs.map{|i|i.size}.max
+      attrs.each do |attr|
+        value = user.__send__(attr.to_sym)
+        puts "#{attr.gsub('_', ' ').rjust(label_width)}: #{value}"
       end
-    end
-  end
+    },
+    :completion_proc => proc {|cmd, arg|
+      find_user_candidates arg, "#{cmd} %s"
+    }
+  )
 
-  add_command /^(list|l)\s*$/ do |m, t|
-    statuses = t.get_friends_timeline()
-    call_hooks(statuses, :list_friends_timeline, t)
-  end
+  register_command(
+    :name => :list, :aliases => [:l],
+    :exec_proc => proc {|arg|
+      unless arg.empty?
+        call_hooks(Termtter::API.twitter.get_user_timeline(arg), :list_user_timeline)
+      else
+        call_hooks(Termtter::API.twitter.get_friends_timeline(), :list_friends_timeline)
+      end
+    },
+    :completion_proc => proc {|cmd, arg|
+      find_user_candidates arg, "#{cmd} %s"
+    }
+  )
 
-  add_command /^(list|l)\s+([^\s]+)/ do |m, t|
-    statuses = t.get_user_timeline(m[2])
-    call_hooks(statuses, :list_user_timeline, t)
-  end
+  register_command(
+    :name => :search, :aliases => [:s],
+    :exec_proc => proc {|arg|
+      call_hooks(Termtter::API.twitter.search(arg), :search)
+    }
+  )
 
-  add_command /^(search|s)\s+(.+)/ do |m, t|
-    call_hooks(t.search(m[2]), :search, t)
-  end
+  register_command(
+    :name => :replies, :aliases => [:r],
+    :exec_proc => proc {
+      call_hooks(Termtter::API.twitter.replies(), :replies)
+    }
+  )
 
-  add_command /^(replies|r)\s*$/ do |m, t|
-    call_hooks(t.replies(), :replies, t)
-  end
+  register_command(
+    :name => :show,
+    :exec_proc => proc {|arg|
+      id = arg.gsub(/.*:/, '')
+      call_hooks(Termtter::API.twitter.show(id), :show)
+    }
+  )
 
-  add_command /^show(s)?\s+(?:[\w\d]+:)?(\d+)/ do |m, t|
-    call_hooks(t.show(m[2], m[1]), :show, t)
-  end
+  register_command(
+    :name => :shows,
+    :exec_proc => proc {|arg|
+      id = arg.gsub(/.*:/, '')
+      call_hooks(Termtter::API.twitter.show(id, true), :show)
+    }
+  )
 
   # TODO: Change colors when remaining_hits is low.
   # TODO: Simmulate remaining_hits.
   register_command(
-    :name => :limit, :aliases => ['lm'],
+    :name => :limit, :aliases => [:lm],
     :exec_proc => proc {|arg|
       limit = Termtter::API.twitter.get_rate_limit_status
       remaining_time = "%dmin %dsec" % (limit.reset_time - Time.now).divmod(60)
@@ -83,11 +130,22 @@ module Termtter::Client
   )
 
   register_command(
-    :name => :exit, :aliases => ['e'],
+    :name => :exit, :aliases => [:e],
     :exec_proc => proc {|arg| exit},
     :help => ['exit,e', 'Exit']
   )
 
+  register_hook(
+    :name => :default_error_handler,
+    :points => [:on_error],
+    :exec_proc => proc {|e|
+      puts "Error: #{e}"
+      if configatron.debug == true
+        puts e.backtrace.join("\n")
+      end
+    }
+  )
+
   add_command /^(help|h)\s*$/ do |m, t|
     # TODO: migrate to use Termtter::Command#help
     helps = [
@@ -166,7 +224,7 @@ module Termtter::Client
   end
 
   def self.find_user_candidates(a, b)
-    if a.empty?
+    if a.nil? || a.empty?
       public_storage[:users].to_a
     else
       public_storage[:users].grep(/^#{Regexp.quote a}/i)
@@ -177,14 +235,6 @@ module Termtter::Client
   add_completion do |input|
     standard_commands = %w[exit help list pause profile update direct resume replies search show limit]
     case input
-    when /^(list|l)?\s+(.*)/
-      find_user_candidates $2, "#{$1} %s"
-    when /^(update|u)\s+(.*)@([^\s]*)$/
-      find_user_candidates $3, "#{$1} #{$2}@%s"
-    when /^(direct|d)\s+(.*)/
-      find_user_candidates $2, "#{$1} %s"
-    when /^(profile|p)\s+(.*)/
-      find_user_candidates $2, "#{$1} %s"
     when /^show(s)?\s+(([\w\d]+):)?\s*(.*)/
       if $2
         find_status_id_candidates $4, "show#{$1} #{$2}%s", $3