rbcurse 1.2.0 → 1.3.0

data/examples/appemail.rb

@@ -5,6 +5,7 @@ require './rmail'
 # I've loaded it here ... http://gist.github.com/634166 with line encoding
 # You need to fix paths of local mbox files
 
+# this will go into top namespace so will conflict with other apps!
 def testchoose
   # list filters as you type
   $log.debug "called test1 " if $log.debug? 
@@ -15,7 +16,7 @@ def testnumberedmenu
   list1[0] = %w{ ruby ruby1.9 ruby1.8.x jruby rubinius ROR }
   str = numbered_menu list1, { :title => "Languages: ", :prompt => "Select :" }
   $log.debug "17 We got #{str.class} "
-  say "We got #{str} "
+  say "We got #{str} " # will get overwritten by message() as soon as repaint happens
 end
 def testdisplay_list
   # scrollable list
@@ -70,7 +71,7 @@ App.new do
   @tv = nil
   borderattrib = :reverse
   @header = app_header "rbcurse 1.2.0", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
-  message "Press F1 to exit ...................................................."
+  message "Press F10 to exit ...................................................."
 
 
   stack :margin_top => 1, :margin => 0, :width => :EXPAND do
@@ -106,6 +107,32 @@ App.new do
       $log.debug "called test1 " if $log.debug? 
       str = choose "*.rb", :title => "Files", :prompt => "Choose a file: "
     end
+    def help_text
+      <<-eos
+               APPEMAIL HELP 
+
+      This is some help text for appemail.
+      We are testing out this feature.
+
+      Alt-x    -   Command mode (<tab> to see commands and select)
+      :        -   Command mode
+      <Enter>  -   Display mail headers for mailbox
+                   Display body for selected header
+      F3       -   Enable sidebars in order to change size of windows (toggle)
+      F10      -   Quit application
+
+      Some commands for using bottom of screen as vim and emacs do.
+
+      testchoose       - filter directory list as you type
+      testdir          - vim style, tabbing completes matching files
+      testnumberedmenu - use menu indexes to select options
+      testdisplaylist  - display a list at bottom of screen
+      testdisplaytext  - display text at bottom
+
+      -----------------------------------------------------------------------
+      Hope you enjoyed this help.
+      eos
+    end
     @vim.set_left_component @dirs
 
     

data/examples/appemaillb.rb

@@ -245,7 +245,7 @@ App.new do
   @tv = nil
   borderattrib = :reverse
   @header = app_header "rbcurse 1.2.0", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
-  message "Press F1 to exit ...................................................."
+  message "Press F10 to exit ...................................................."
 
 
      

data/examples/appgcompose.rb

@@ -261,7 +261,8 @@ module AppgCompose
       end
       unless @username
         ww = ENV['GMAIL_USER'] 
-        ww << "@gmail.com" if ww
+        #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
@@ -274,7 +275,13 @@ module AppgCompose
       end
       unless @gmail
         say "Connecting to gmail..."
-        @gmail = Gmail.connect!(@username, @password)
+        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

data/examples/appmethods.rb

@@ -0,0 +1,69 @@
+module RubyCurses
+  module Utils
+    def _suspend clear=true
+      return unless block_given?
+      Ncurses.def_prog_mode
+      if clear
+        Ncurses.endwin 
+        # NOTE: avoid false since screen remains half off
+        # too many issues
+      else
+        system "/bin/stty sane"
+      end
+      yield if block_given?
+      Ncurses.reset_prog_mode
+      if !clear
+        # Hope we don't screw your terminal up with this constantly.
+        VER::stop_ncurses
+        VER::start_ncurses  
+        #@form.reset_all # not required
+      end
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+    end
+    def suspend
+      _suspend(false) do
+        system("tput cup 26 0")
+        system("tput ed")
+        system("echo Enter C-d to return to application")
+        system (ENV['PS1']='\s-\v\$ ') if ENV['SHELL']== '/bin/bash'
+        system(ENV['SHELL']);
+      end
+    end
+
+    def display_app_help help_array= nil
+      if help_array
+        arr = help_array
+      elsif respond_to? :help_text
+        arr = help_text
+      else
+        arr = []
+        arr << "    NO HELP SPECIFIED FOR APP #{self}  "
+        arr << "    "
+        arr << "     --- General help ---          "
+        arr << "    F10         -  exit application "
+        arr << "    Alt-x       -  select commands  "
+        arr << "    :           -  select commands  "
+        arr << "    "
+      end
+      case arr
+      when String
+        arr = arr.split("\n")
+      when Array
+      end
+      w = arr.max_by(&:length).length
+
+      require 'rbcurse/extras/viewer'
+      RubyCurses::Viewer.view(arr, :layout => [2, 10, [4+arr.size, 24].min, w+2],:close_key => KEY_RETURN, :title => "<Enter> to close", :print_footer => true) do |t|
+      # you may configure textview further here.
+      #t.suppress_borders true
+      #t.color = :black
+      #t.bgcolor = :white
+      # or
+      t.attr = :reverse
+      end
+    end
+  end # utils
+end # module RubyC
+include RubyCurses::Utils

data/examples/atree.rb

@@ -5,7 +5,8 @@ App.new do
   message "Press Enter to expand/collapse"
 
   stack :margin_top => 2, :margin => 5, :width => 30 do
-      tree :height => 10, :title => "ruby way"  do
+    tm = nil
+      atree = tree :height => 10, :title => "ruby way"  do
         root "root" do
           branch "hello" do
             leaf "ruby"
@@ -17,7 +18,6 @@ App.new do
         end
       end
 
-
       # 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"

data/examples/menu1.rb

@@ -34,7 +34,7 @@ require 'rbcurse/app'
         end
       end
     end # menubar
-    mb.toggle_key = KEY_F2
+    mb.toggle_key = FFI::NCurses::KEY_F2
     @form.set_menu_bar mb
     stack :margin_top => 10, :margin => 5 do
       field "a field", :attr => 'reverse', :block_event => :CHANGE do |e|

data/examples/newtesttabp.rb

@@ -2,7 +2,7 @@
 #
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 #require 'rbcurse/newtabbedpane'
@@ -27,7 +27,8 @@ class TestTabbedPane
         button_type :ok
       end
       @tab1 = @tp.add_tab "&Language" 
-      f1 = @tab1.form
+      #f1 = @tab1.form
+      f1 = @tp.form @tab1
       #$radio = Variable.new
       radio1 = RadioButton.new f1 do
         #variable $radio
@@ -60,7 +61,8 @@ class TestTabbedPane
         col 5
       end
       @tab2 = @tp.add_tab "&Settings"
-      f2 = @tab2.form
+      #f2 = @tab2.form
+      f2 = @tp.form @tab2
       r = 4
       butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
       bcodes = %w[ HTTP, FRAMES, SSL ]
@@ -74,7 +76,8 @@ class TestTabbedPane
         end
       end
       @tab3 = @tp.add_tab "&Editors"
-      f3 = @tab3.form
+      #f3 = @tab3.form
+      f3 = @tp.form @tab3
       butts = %w[ &Vim E&macs &Jed &Other ]
       bcodes = %w[ VIM EMACS JED OTHER]
       row = 4
@@ -106,7 +109,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new("rbc13.log")
     $log.level = Logger::DEBUG
     n = TestTabbedPane.new
     n.run

data/examples/qdfilechooser.rb

@@ -2,7 +2,7 @@
 # a quick dirty file chooser in 2 lines of code.
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'ver/ncurses'
 require 'ver/window'
@@ -59,10 +59,13 @@ class QDFileChooser
           default_button 0
           button_type :ok_cancel
         end
+        #$log.debug "MBOX :selected #{@listb.selected_item}, #{@listb[@listb.getvalue[0]]} "
         return @mb.selected_index == 0 ? :OK : :CANCEL
-        $log.debug "MBOX :selected #{@listb.selected_item}"
   end 
   def get_selected_file
-    return @mb.selected_index == 0 ? @listb.selected_item : nil
+    #return @mb.selected_index == 0 ? @listb.selected_item : nil
+    #return @mb.selected_index == 0 ? @listb[@listb.getvalue[0]]  : nil
+    # return either the selected_value or if user pressed okay, then focussed item
+    return @mb.selected_index == 0 ? @listb.selected_value || @listb.selected_item  : nil
   end
 end

data/examples/rfe.rb

@@ -109,6 +109,7 @@ class FileExplorer
     list.list_data_model.remove_all
     #list.list_data_model.insert 0, *fl
     list.list_data_model.insert 0, *flist
+    list.set_form_row
   end
   def sort key, reverse=false
     # remove parent before sorting, keep at top
@@ -494,13 +495,13 @@ class RFe
       footer_attrib 'bold'
     end
     #content = File.open(fp,"r").readlines
+    begin
     @textview.set_content content #, :WRAP_WORD
     @v_form.repaint
     @v_window.wrefresh
     Ncurses::Panel.update_panels
-    begin
     while((ch = @v_window.getchar()) != ?\C-q.getbyte(0) )
-      break if ch == KEY_F3
+      break if ch == FFI::NCurses::KEY_F3
       @v_form.handle_key ch
       @v_form.repaint
       ##@v_window.wrefresh
@@ -677,9 +678,10 @@ class RFe
     @form.bind_key(?\C-f){
       @klp.mode :file
       @klp.repaint
-      ## FIXME chr could fail !!
       while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
-        if "cmdsuvrex".index(ch.chr) == nil
+        if ch < 33 || ch > 126
+          Ncurses.beep
+        elsif "cmdsuvrex".index(ch.chr) == nil
           Ncurses.beep
         else
           opt_file ch.chr
@@ -692,9 +694,10 @@ class RFe
       @klp.mode :dir
       @klp.repaint
       keys = @klp.get_current_keys
-      ## FIXME chr could fail !!
       while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
-        if !keys.include?(ch.chr) 
+        if ch < 33 || ch > 126
+          Ncurses.beep
+        elsif !keys.include?(ch.chr) 
           Ncurses.beep
         else
           opt_dir ch.chr
@@ -714,28 +717,80 @@ class RFe
       rescue Interrupt
       end
     }
-    @form.bind_key(KEY_F3){
-      view()
+    @form.bind_key(FFI::NCurses::KEY_F3){
+      begin 
+        view()
+      rescue => err
+        alert err.to_s
+      end
+    }
+    @form.bind_key(FFI::NCurses::KEY_F1){
+      #Io.view(["this is some help text","hello there"])
+      arr = []
+      arr << "  FILE BROWSER HELP  "
+      arr << "           "
+      arr << " <tab>   - switch between windows"
+      arr << " <enter> - open dir"
+      arr << " F3      - view file/dir/zip contents (toggle) "
+      arr << " F4      - edit file content"
+      arr << " <char>  - first file starting with <char>"
+      arr << "           "
+      arr << " < > ^ V - move help window "
+      arr << "           "
+      w = arr.max_by(&:length).length
+      #arr = ["this is some help text","hello there"]
+
+      require 'rbcurse/extras/viewer'
+      RubyCurses::Viewer.view(arr, :layout => [10,10, 4+arr.size, w+2],:close_key => KEY_RETURN, :title => "<Enter> to close", :print_footer => false) do |t|
+      # you may configure textview further here.
+      #t.suppress_borders true
+      #t.color = :black
+      #t.bgcolor = :white
+      # or
+      t.attr = :reverse
+      #t.bind_key(KEY_F1){ alert "closing up!"; throw :close }
+      # just for kicks move window around
+      t.bind_key('<'){ f = t.form.window; c = f.left - 1; f.hide; f.mvwin(f.top, c); f.show;
+        f.reset_layout([f.height, f.width, f.top, c]); 
+      }
+      t.bind_key('>'){ f = t.form.window; c = f.left + 1; f.hide; f.mvwin(f.top, c); 
+        f.reset_layout([f.height, f.width, f.top, c]); f.show;
+      }
+      t.bind_key('^'){ f = t.form.window; c = f.top - 1 ; f.hide; f.mvwin(c, f.left); 
+        f.reset_layout([f.height, f.width, c, f.left]) ; f.show;
+      }
+      t.bind_key('V'){ f = t.form.window; c = f.top + 1 ; f.hide; f.mvwin(c, f.left); 
+        f.reset_layout([f.height, f.width, c, f.left]); f.show;
+      }
+    end
     }
-    @form.bind_key(KEY_F4){
+    @form.bind_key(FFI::NCurses::KEY_F4){
       edit()
     }
-    @form.bind_key(KEY_F6){
+    @form.bind_key(FFI::NCurses::KEY_F6){
       selected_index, sort_key, reverse, case_sensitive = sort_popup
       if selected_index == 0
         @current_list.sort(sort_key, reverse)
       end
     }
-    @form.bind_key(KEY_F5){
+    @form.bind_key(FFI::NCurses::KEY_F5){
       filter()
     }
-    @form.bind_key(KEY_F7){
+    @form.bind_key(FFI::NCurses::KEY_F7){
       grep_popup()
     }
-    @form.bind_key(KEY_F8){
+    @form.bind_key(FFI::NCurses::KEY_F8){
       system_popup()
     }
-    @form.bind_key(?\C-m){
+    # will no longer come here. list event has to be used
+    #@form.bind_key(?\C-m){ # listbox has eaten it up
+    @lista.list.bind(:PRESS){
+      dir = @current_list.filepath
+      if File.directory? @current_list.filepath
+        @current_list.change_dir dir
+      end
+    }
+    @listb.list.bind(:PRESS){
       dir = @current_list.filepath
       if File.directory? @current_list.filepath
         @current_list.change_dir dir
@@ -997,8 +1052,8 @@ if $0 == __FILE__
   begin
     # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    #$log = Logger.new("view.log")
-    $log = Logger.new(ENV['LOGDIR'] || "" + "view.log")
+    #$log = Logger.new("rbc13.log")
+    $log = Logger.new(ENV['LOGDIR'] || "" + "rbc13.log")
 
     $log.level = Logger::DEBUG
 

data/examples/rmail.rb

@@ -1,14 +1,12 @@
 #!/usr/bin/env ruby -w
+# WARNING. This file is required by appemail.rb.
 #
-# this will only work in 1.8.7, since mailread.rb is not present after that
-# supply the path of any mbox file such as ~/mbox or ~/mail/read-mail
+# 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'
+#require 'mailread' # i've copied it in here 2011-09-18 
 require 'date'
 
-#BOLD       = "\e[1m"
-#CLEAR      = "\e[0m"
 # a sample mail formatter class
 # Does formatting just like alpine
 # Each message is passed in the format method, thus this is reused
@@ -82,13 +80,14 @@ class Mbox
   # 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" if !File.exists? 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
@@ -163,14 +162,84 @@ class MboxManager
     @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 "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