rbcurse 1.5.0 → 1.5.2

data/examples/appgcompose.rb

@@ -0,0 +1,315 @@
+require 'rbcurse/core/util/app'
+require 'gmail'
+
+# requires gmail gem
+
+def insert_file
+  str = ask("File?  ", Pathname)  do |q| 
+    q.completion_proc = Proc.new {|str| Dir.glob(str +"*").collect { |f| File.directory?(f) ? f+"/" : f  } }
+    q.helptext = "Enter start of filename and tab to get completion"
+  end
+  message "we got #{str} "
+end
+################
+# Allow a field to have gmail like completion
+# As a user types, a window highlights matches. Up and down arrow key may be used to select with Enter.
+# A user may type Multiple email ids in field (space or comma sep), and matches for last word will be 
+# displayed.
+# If you wish to use this in other ways:
+#    - match entire field not last word, then set matching to false or single
+#    - match_from_start will match your array values from start. If you want 
+#        the pattern to match anywhere in array, set to false.
+#    - set height, width, top and left in config hash
+#    - block is intended to allow caller to override matching TODO
+class GmailField
+  def initialize field, list=nil, config={}, &block
+    @field = field
+    @list = list
+    @config = config
+    @matching = config.fetch(:matching, :multiple)
+    @match_from_start = config.fetch(:match_from_start, true)
+    setup
+  end
+  def setup # gmailfield
+    @field.bind(:CHANGE) do |eve|
+      c = eve.source
+      text = c.getvalue
+      if text[-1] == " "
+        clear_list
+      else
+        pos = text.rindex(/, /)
+        if pos
+          text = text[pos+1..-1].strip if @matching == :multiple
+        end
+        @textsize = text.size
+        # \W instead of ^, will match start of word, lastname, emailid
+        patt = @match_from_start ?  %r{\W#{text}}i : %r{#{text}}i
+        matches = @list.grep patt
+        @matches = matches
+        if @matches.size == 1 && @matches.first == text
+          clear_list
+        else
+          #$log.debug "XXXX #{self.class}  matches #{matches} " if $log.debug? 
+          #@caller = app.config[:caller]
+          if !matches.empty? 
+            say " matches:  #{matches.size}: #{matches} "
+            @list_object = udisplay_list matches
+          else 
+            clear_list
+            #@caller.clear_list
+          end
+        end
+      end
+    end
+    @field.bind(:LEAVE) do |eve|
+      clear_list
+    end
+    @field.bind_key(KEY_DOWN) do
+      if @list_object
+        @list_object.press(KEY_DOWN)
+        #current_index = @list_object.current_index
+        @list_object.display_content
+      else
+        :UNHANDLED
+      end
+    end
+    @field.bind_key(KEY_UP) do
+      if @list_object
+        @list_object.press(KEY_UP)
+        #current_index = @list_object.current_index
+        @list_object.display_content
+      else
+        :UNHANDLED
+      end
+    end
+    @field.bind_key(13) do
+      #if @caller
+      if @list_object
+        @list_object.press(KEY_ENTER)
+        current_index = @list_object.current_index
+        if current_index > @matches.size-1
+          current_index = 0
+        end
+        sel = @matches[current_index]
+        if sel
+          #$log.debug "XXXX sel #{sel},  #{@textsize}  " if $log.debug? 
+          if @textsize
+            t = @field.getvalue
+            $log.debug "XXXX t #{t}:: matches:: #{@matches} " if $log.debug? 
+            t.slice!(-@textsize..-1)
+            t << sel
+
+            #t << sel[@textsize..-1]
+            @field.set_buffer(t)
+          else
+            @field.set_buffer(@matches[current_index])
+          end
+          @field.cursor_end
+        end # sel , otherwise matches was nil
+        # need to set cursor correctly.
+        clear_list
+      end
+      #end
+    end
+  end
+
+  def udisplay_list list1 # gmailfield
+    unless @commandwin
+      require 'rbcurse/core/util/rcommandwindow'
+      if @style == :old
+        h = @config.fetch(:height, 5)
+        w = @config.fetch(:width, Ncurses.COLS-1)
+        top = @config.fetch(:top, Ncurses.LINES-6)
+        left = @config.fetch(:left, 0)
+      else
+        hj = list1.size+2
+        hj = [hj, 10].min
+        h = @config.fetch(:height, hj)
+        w = @config.fetch(:width, list1[0].size+5)
+        top = @config.fetch(:top, @field.row+1 )
+        left = @config.fetch(:left, @field.col)
+      end
+      layout = { :height => h, :width => w, :top => top, :left => left }
+      rc = CommandWindow.new nil, :layout => layout, :box => :border #, :title => config[:title]
+      @commandwin = rc
+    end
+    begin
+      @commandwin.clear
+      @commandwin.udisplay_list list1
+    ensure
+      #rc.destroy
+      #rc = nil
+    end
+  end
+  def clear_list # gmailfield
+    if @commandwin
+      @commandwin.destroy
+      @commandwin = nil
+    end
+    @list_object = nil
+  end
+end
+module AppgCompose
+  class GmailCompose
+    def initialize gmail=nil, config={}
+      @gmail = gmail
+      @username = config[:username]
+      @password = config[:password]
+      @config = config
+      #@to = config[:to]
+      #@cc = config[:cc]
+      #@bcc = config[:bcc]
+      #@subject = config[:subject]
+      yield self if block_given?
+    end
+    def __udisplay_list list1 # gmailcompose
+      warn "is this used ?"
+      unless @commandwin
+        require 'rbcurse/core/util/rcommandwindow'
+        layout = { :height => 5, :width => Ncurses.COLS-1, :top => Ncurses.LINES-6, :left => 0 }
+        rc = CommandWindow.new nil, :layout => layout, :box => true #, :title => config[:title]
+        @commandwin = rc
+      end
+      begin
+        #w = rc.window
+        # may need to clear first
+        @commandwin.clear
+        @commandwin.udisplay_list list1
+      ensure
+        #rc.destroy
+        #rc = nil
+      end
+    end
+    def __clear_list # gmailcompose
+      warn "is this used"
+      if @commandwin
+        @commandwin.destroy
+        @commandwin = nil
+      end
+      @list_object = nil
+    end
+    def run
+      ss = self
+      #$log.debug "XXX self #{ss.class}  " if $log.debug? 
+      App.new(:caller => ss) do |app|
+        #@caller = app.config[:caller]
+        #$log.debug " inside XXX new app #{@caller} "
+        $log.debug " inside XXX new app config #{app.config} "
+        def get_commands
+          %w{ insert_file}
+        end
+        header = app.app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Compose Mail", :text_right =>"27% Stronger", :color => :black, :bgcolor => :white, :attr => :bold 
+        app.message "Press F10 to exit from here"
+        app.stack :margin_top => 2, :margin => 5, :width => 15 do |xxx|
+          fg = :white
+          bg = :blue
+          app.label :text => "To", :color => fg, :bgcolor => bg, :display_length => 10
+          app.label :text => "Subject", :color => fg, :bgcolor => bg, :display_length => 10
+          app.label :text => "Cc", :color => fg, :bgcolor => bg, :display_length => 10
+          app.label :text => "Body", :color => fg, :bgcolor => bg, :display_length => 10
+        end
+
+
+        ww = 80
+        app.stack :margin_top => 2, :margin => 25, :width => ww do |xxx|
+          file="contacts.yml"
+          to_list = []
+          if File.exists? file
+            require 'yaml'
+            contacts = YAML::load( File.open(file))
+            contacts.each { |e| to_list << "\"#{e[0]}\" <#{e[1]}>" }
+          else
+            to_list = ['"Matz " <matz@ruby.com>', '"James E Gray" <james@gmail.com>', '"Steve Jobs" <jobs@apple.com>', '"Bram Moolenar", <bmool@vim.com>', '"Mental Guy", <mentalguy@me.com>' ]
+          end
+          @to = app.field "to", :maxlen => 100, :bgcolor => :white, :color => :black
+          GmailField.new @to, to_list
+          @to.text = @config[:to]
+          @subject = app.field "subject", :maxlen => 100, :display_length => nil , :bgcolor => :white, :color => :black
+          @subject.text = @config[:subject]
+          @cc = app.field "cc", :maxlen => 100, :display_length => nil , :bgcolor => :white, :color => :black
+          GmailField.new @cc, to_list #, {:top => @cc.row+1, :left => @cc.col, :width => 40 }
+          @cc.text = @config[:cc]
+          @body = app.textarea :height => 10 do |e|
+            #e.source.get_text
+          end
+          app.hline :width => ww
+          app.flow do |xxx|
+            app.button "&Post" do
+              alert "To field is nil in button itself" if @to.nil?
+              app.message "posting letter"
+              #@caller = app.config[:caller]
+              status = post_letter(self, :to => @to, :subject => @subject, :body => @body)
+              app.message "posted email: status #{status} "
+            end
+            app.button "&Save" do
+              app.message "saving to file"
+            end
+          end
+
+        end # stack
+      end # app
+
+    end # run
+    # now we can access to and subject and body directly
+    # post an email
+    def post_letter app, config={}
+      #alert "i can access to directly. #{@to.getvalue} " if @to
+      to = config[:to]
+      subject = config[:subject]
+      body = config[:body]
+      if to.nil? 
+        alert "To is nil. Some programming error"
+        return false
+      end
+      unless @username
+        ww = ENV['GMAIL_USER'] 
+        #ww << "@gmail.com" if ww # suddnely giving frozen string error
+        ww = ww + "@gmail.com" if ww
+        @username = ask("Username: ") { |q| q.default = ww }
+      end
+      unless @password
+        ww = ENV['GMAIL_PASS']
+        @password = ask("Password: ") { |q| q.default = ww; q.echo ="*" }
+      end
+      if @username.nil? || @password.nil?
+        say_with_pause "Cannot proceeed without user and pass" 
+        return false
+      end
+      unless @gmail
+        say "Connecting to gmail..."
+        begin
+          @gmail = Gmail.connect!(@username, @password)
+        rescue => ex
+          @password = @username = nil
+          $log.debug( ex) if ex
+          $log.debug(ex.backtrace.join("\n")) if ex
+        end
+      end
+      unless @gmail
+        say_with_pause "Cannot proceeed without connection" unless @gmail
+        return false
+      end
+
+      body = body.get_text
+      to = to.getvalue
+      subject = subject.getvalue
+      say "Posting #{subject} to #{to} "
+      if body
+        @gmail.deliver do
+          to to
+          subject subject
+          body body
+        end
+      else
+        alert "Got no body"
+      end # body
+      true
+    end # post_letter
+
+  end # class
+end # module
+if __FILE__ == $PROGRAM_NAME
+  a = AppgCompose::GmailCompose.new
+  a.run
+end
+

data/examples/atree.rb

@@ -0,0 +1,64 @@
+require 'rbcurse/core/util/app'
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Tree Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press Enter to expand/collapse"
+      @form.bind_key(FFI::NCurses::KEY_F3) { 
+        require 'rbcurse/core/util/viewer'
+        RubyCurses::Viewer.view("rbc13.log", :close_key => KEY_RETURN, :title => "<Enter> to close")
+      }
+
+  stack :margin_top => 2, :margin => 5, :width => 30 do
+    tm = nil
+      atree = tree :height => 10, :title => "ruby way"  do
+        root "root" do
+          branch "hello" do
+            leaf "ruby"
+          end
+          branch "goodbye" do
+            leaf "java"
+            leaf "verbosity"
+          end
+        end
+      end
+      found=atree.get_node_for_path "goodbye"
+      atree.set_expanded_state(atree.root, true)
+      atree.set_expanded_state(found,true)
+
+      # using a Hash
+      model = { :ruby => [ "jruby", {:mri => %W[ 1.8.6 1.8.7]}, {:yarv => %W[1.9.1 1.9.2]}, "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
+      tree :data => model, :title => "Hash"
+
+  end # stack
+  stack :margin_top => 2, :margin => 40, :width => 30 do
+    
+      # using an Array
+      tree :data => %W[ ruby cobol jruby smalltalk fortran piethon purrl lithp ], :title=> "Array"
+
+      # long way ISO 9001 certifed, SEI CMM 5 compliant
+      #
+      root    =  TreeNode.new "ROOT"
+      subroot =  TreeNode.new "subroot"
+      leaf1   =  TreeNode.new "leaf 1"
+      leaf2   =  TreeNode.new "leaf 2"
+      model = DefaultTreeModel.new root
+      #model.insert_node_into(subroot, root,  0)  # BLEAH JAVA !!
+
+      # slightly better, since we return self in ruby
+      root << subroot
+      subroot << leaf1 << leaf2
+      leaf1 << "leaf11"
+      leaf1 << "leaf12"
+
+      # more rubyish way
+      root.add "blocky", true do 
+        add "block2"
+        add "block3" do
+          add "block31"
+        end
+      end
+
+      tree :data => model, :title => "legacy way"
+
+  end
+end # app

data/examples/common/file.rb

@@ -0,0 +1,40 @@
+# ----------------------------------------------------------------------------- #
+#         File: file.rb
+#  Description: some common file related methods which can be used across
+#              file manager demos, since we seems to have a lot of them :)
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: 2011-11-15 - 19:54
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: use ,,L
+# ----------------------------------------------------------------------------- #
+#
+
+require 'rbcurse/core/include/appmethods'
+module RubyCurses
+  def file_edit fp #=@current_list.filepath
+    #$log.debug " edit #{fp}"
+    editor = ENV['EDITOR'] || 'vi'
+    vimp = %x[which #{editor}].chomp
+    shell_out "#{vimp} #{fp}"
+  end
+
+  # TODO we need to move these to some common file so differnt programs and demos
+  # can use them on pressing space or enter.
+  def file_page fp #=@current_list.filepath
+    ft=%x[file #{fp}]
+    if ft.index("text")
+      pager = ENV['PAGER'] || 'less'
+      vimp = %x[which #{pager}].chomp
+      shell_out "#{vimp} #{fp}"
+    elsif ft.index(/zip/i)
+      shell_out "tar tvf #{fp} | less"
+    elsif ft.index(/directory/i)
+      shell_out "ls -lh  #{fp} | less"
+    else
+      alert "#{fp} is not text, not paging "
+      #use_on_file "als", fp # only zip or archive
+    end
+  end
+
+end # module
+include RubyCurses

data/examples/common/rmail.rb

@@ -0,0 +1,257 @@
+#!/usr/bin/env ruby -w
+# WARNING. This file is required by appemail.rb.
+#
+# Supply the path of any mbox file such as ~/mbox or ~/mail/read-mail
+# and see a listing of mails, then give a msg number and see body
+# You may run this with -EASCII-8BIT if it crashes with a UTF8 error.
+#require 'mailread' # i've copied it in here 2011-09-18 
+require 'date'
+
+# a sample mail formatter class
+# Does formatting just like alpine
+# Each message is passed in the format method, thus this is reused
+class MailFormatter 
+  attr_reader :message
+  attr_reader :header
+  def initialize #message
+    #@message  = message
+    #@header   = message.header
+  end
+
+  def date
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    date = Date.parse(m['Date'])
+    date = date.strftime("%b %d")
+  end
+
+  def from
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    match = m['From'].to_s.match(/\((.*)\)/)
+    from  = m['From']
+    if match
+      from = match[1]
+    else
+      match = m['From'].to_s.match(/(.*)</)
+      from = match[1] if match
+    end
+    from
+  end
+  def body
+    raise StandardError, "pass message first using format()" unless @message
+    @message.body
+  end
+
+  def subject
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    m['Subject']
+  end
+  def status
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    m['Status']
+  end
+
+  def format message, count
+    @header = message.header
+    #@message  = message
+    m = message.header
+    "%2s %2d %s %-25s %-s\n" % [ status, count, date, from, subject ]
+  end
+
+  def create_array message, count
+    @header = message.header
+    #@message  = message
+    m = message.header
+    #printf("#{attr}%2s %2d  %s |%-25s| %-s#{attre}\n", m['Status'], count, date, from, msg.header['Subject'])
+    row = [ status, count, date, from, m['Subject'] ]
+  end
+end # class
+# opens and maintains an mbox mailbox
+class Mbox
+  include Enumerable
+  attr_reader :folder
+  attr_reader :mails
+  attr_reader :unread_count
+  attr_reader :read_count
+
+  # takes a mailbox name, e,g., mbox
+  # Does not update, since this is just a demo
+  def initialize folder
+    raise ArgumentError, "#{folder} not a valid file. Pls supply correct path." if !File.exists? folder
+    @folder  = folder
+    @unread_count = 0
+    @read_count = 0
+    @mboxh = {}
+    @mbox_counts = {}
+    @mails = nil
+    @formatter = nil
+    parse
+  end
+  def parse &block # :yields: Mail
+    mbox = File.open(@folder)
+    count = lines = 0
+    unread_count = 0
+    read_count = 0
+    # array of mails
+    mails = []
+
+    # read up the warning message, we don't want it in our array
+    msg = Mail.new(mbox)
+
+    while !mbox.eof?
+      msg = Mail.new(mbox)
+      count += 1
+      s = msg.header['Status']
+      if s == "O"
+        unread_count += 1
+      else
+        read_count += 1
+      end
+      mails << msg
+      yield msg if block_given?
+    end
+    @mails = mails
+    #@mbox_counts[@folder] = [unread_count, read_count]
+    @unread_count, @read_count = unread_count, read_count
+    mbox.close
+  end
+  def each # :yields: message
+    parse unless @mails
+    @mails.each { |e| yield e }
+  end
+  def formatted_each &block
+    fmt = @formatter || MailFormatter.new
+    each_with_index do |msg, index|
+      yield fmt.format msg, index + 1
+    end
+  end
+  # returns an array for each entry which can be used with tabularwidget
+  def array_each &block
+    fmt = @formatter || MailFormatter.new
+    each_with_index do |msg, index|
+      yield fmt.create_array msg, index + 1
+    end
+  end
+  # set a formatter object, if you wish to override default one
+  def formatter fmt
+    @formatter = fmt
+  end
+end
+# opens and maintains a hash of mboxes
+# does not see to add any value other than being just a hash !
+class MboxManager
+  def initialize
+    @boxes = {}
+    @current_name = nil
+  end
+  def use folder
+    if !@boxes.has_key? folder
+      @mails = Mbox.new folder
+      @boxes[folder] = @mails
+    else
+      @mails = @boxes[folder]
+    end
+    @current_name = folder
+    @mails
+  end
+  def mails folder=@current_name
+    use folder
+    @mails
+  end
+end
+
+# The Mail class represents an internet mail message (as per RFC822, RFC2822)
+# with headers and a body. 
+class Mail
+
+  # Create a new Mail where +f+ is either a stream which responds to gets(),
+  # or a path to a file.  If +f+ is a path it will be opened.
+  #
+  # The whole message is read so it can be made available through the #header,
+  # #[] and #body methods.
+  #
+  # The "From " line is ignored if the mail is in mbox format.
+  def initialize(f)
+    unless defined? f.gets
+      f = open(f, "r")
+      opened = true
+    end
+
+    @header = {}
+    @body = []
+    begin
+      while line = f.gets()
+        line.chop!
+        # Added encode by RK since crashing with UTF-8 error
+        line = line.encode("ASCII-8BIT", :invalid => :replace, :undef => :replace, :replace => "?")
+        next if /^From /=~line	# skip From-line
+        break if /^$/=~line	# end of header
+
+        if /^(\S+?):\s*(.*)/=~line
+          (attr = $1).capitalize!
+          @header[attr] = $2
+        elsif attr
+          line.sub!(/^\s*/, '')
+          @header[attr] += "\n" + line
+        end
+      end
+
+      return unless line
+
+      while line = f.gets()
+        # Added encode by RK since crashing with UTF-8 error
+        line = line.encode("ASCII-8BIT", :invalid => :replace, :undef => :replace, :replace => "?")
+        #line = line.encode('ASCII-8BIT') # added RK
+        break if /^From /=~line
+        @body.push(line)
+      end
+    ensure
+      f.close if opened
+    end
+  end
+
+  # Return the headers as a Hash.
+  def header
+    return @header
+  end
+
+  # Return the message body as an Array of lines
+  def body
+    return @body
+  end
+
+  # Return the header corresponding to +field+. 
+  #
+  # Matching is case-insensitive.
+  def [](field)
+    @header[field.capitalize]
+  end
+end
+#puts mails.size
+if __FILE__ == $PROGRAM_NAME
+  MAILBOX = ARGV[0] ||  "mbox"
+  mx = Mbox.new MAILBOX
+  mx.formatted_each do |str|
+    puts str
+  end
+  mails = mx.mails
+BOLD       = "\e[1m"
+CLEAR      = "\e[0m"
+
+  # ask user for a number and print body for that
+  while true
+    print "Enter a mail number [1 to #{mails.size}]:"
+    n = STDIN.gets.chomp
+    break if n.nil? || n.empty? 
+    msg = mails[n.to_i-1]
+    body = msg.body
+    puts
+    string= "#{msg.header['Subject']}"
+    puts "#{BOLD}#{string}#{CLEAR}"
+    puts "-" * string.length
+    puts body
+  end
+end