rbcurse 1.4.1 → 1.5.0.pre1

data/examples/appgcompose.rb

@@ -1,315 +0,0 @@
-require 'rbcurse/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/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/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

@@ -1,64 +0,0 @@
-require 'rbcurse/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/extras/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

@@ -1,40 +0,0 @@
-# ----------------------------------------------------------------------------- #
-#         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/common/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

@@ -1,257 +0,0 @@
-#!/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