rbcurse 1.4.0 → 1.4.1.pre2

data/examples/newtesttabp.rb

@@ -1,8 +1,5 @@
 # this is a test program, tests out tabbed panes. type F1 to exit
 #
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 #require 'rbcurse/newtabbedpane'

data/examples/qdfilechooser.rb

@@ -1,8 +1,5 @@
 # this is a test program, tests out messageboxes. type F1 to exit
 # a quick dirty file chooser in 2 lines of code.
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'ver/ncurses'
 require 'ver/window'

data/examples/rfe.rb

@@ -49,6 +49,7 @@ class FileExplorer
     @filter_pattern = '*'
     @prev_dirs=[]
     @inside_block = false
+    $entry_count = 0 # just for show... may not be accurate  after deletes etc
 
   end
   def title str
@@ -80,6 +81,7 @@ class FileExplorer
     end
   end
   def goto_previous_dir
+    #alert "Previous dirs contain #{@prev_dirs} "
     d = @prev_dirs.pop
     if !d.nil? and d == @wdir
       d = @prev_dirs.pop
@@ -94,6 +96,7 @@ class FileExplorer
   end
   def rescan
     flist = @dir.entries
+    $entry_count = flist.size # just for show... may not be accurate  after deletes etc
     flist.shift
     #populate @entries
     populate flist
@@ -110,6 +113,7 @@ class FileExplorer
     #list.list_data_model.insert 0, *fl
     list.list_data_model.insert 0, *flist
     list.set_form_row
+    #$entry_count = list.size # just for show... may not be accurate  after deletes etc
   end
   def sort key, reverse=false
     # remove parent before sorting, keep at top
@@ -227,6 +231,7 @@ class FileExplorer
     #  flist << format_string(f, stat)
     #}
     @entries = fl
+    $entry_count = @entries.size
     title = pwd()
     @wdir = title
     rfe = self
@@ -242,6 +247,7 @@ class FileExplorer
       title wdir
       #title_attrib 'reverse'
       cell_renderer RfeRenderer.new "", {"color"=>@color, "bgcolor"=>@bgcolor, "parent" => rfe, "display_length"=> wid-2}
+      KEY_ROW_SELECTOR 0 # C-space since space used for preview
     end
     @list = lista
     lista.bind(:ENTER) {|l| @rfe.current_list(self); l.title_attrib 'reverse';  }
@@ -266,6 +272,7 @@ class FileExplorer
   end
   def filepath ix=current_index()
     f = filename(ix)
+    return unless f
     if f[0,1]=='/'
       f
     else
@@ -479,6 +486,8 @@ class RFe
       fp = @current_list.filepath
       content = get_contents(fp)
       rescue => err
+        $log.debug err.to_s
+        $log.debug(err.backtrace.join("\n"))
         alert err.to_s
         return
       end
@@ -565,6 +574,10 @@ class RFe
     when 'x'
       str= "exec #{fp}"
       exec_popup fp
+    when 'p'
+      page fp
+    when 'q'
+      qlmanage fp
     end
   end
   def opt_dir c
@@ -639,7 +652,53 @@ class RFe
   end
   def edit fp=@current_list.filepath
     $log.debug " edit #{fp}"
-    shell_out "/opt/local/bin/vim #{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 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
+  def qlmanage fp=@current_list.filepath
+      begin
+        a=%x[which qlmanage]
+        if a != ""
+          cmd="qlmanage -p #{@current_list.filepath} 2>/dev/null"
+          %x[#{cmd}]
+        else
+          alert "qlmanage not present on your system. Trying pager"
+          page fp
+        end
+      rescue Interrupt
+      rescue => err
+        alert err.to_s
+      end
+  end
+  # also if calling program gives output but does not stop
+  # or take control, then nothing will show up
+  def use_on_file prog, args, fp=@current_list.filepath
+    vimp = %x[which #{prog}].chomp
+    if vimp != ""
+      alert "using #{prog} "
+      shell_out "#{vimp} #{args } #{fp}"
+    else
+      alert "could not locate #{prog} "
+    end
   end
   def stopping?
     @stopping
@@ -688,7 +747,7 @@ class RFe
       while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
         if ch < 33 || ch > 126
           Ncurses.beep
-        elsif "cmdsuvrex".index(ch.chr) == nil
+        elsif "cmdsuvrexpq".index(ch.chr) == nil
           Ncurses.beep
         else
           opt_file ch.chr
@@ -717,12 +776,11 @@ class RFe
     @form.bind_key(127){
       @current_list.goto_previous_dir
     }
+    # form gives this to list which consumes it for selection.
+    # need to bind to list's LIST_SELECTION_EVENT
     @form.bind_key(32){
-      begin
-      cmd="qlmanage -p #{@current_list.filepath} 2>/dev/null"
-      %x[#{cmd}]
-      rescue Interrupt
-      end
+      fp = @current_list.filepath
+      page fp
     }
     @form.bind_key(FFI::NCurses::KEY_F3){
       begin 
@@ -733,17 +791,30 @@ class RFe
     }
     @form.bind_key(FFI::NCurses::KEY_F1){
       #Io.view(["this is some help text","hello there"])
+      color0 = get_color($promptcolor, 'black','green')
+      color1 = get_color($reversecolor, 'green','black')
+      color2 = get_color($reversecolor, 'magenta','black')
       arr = []
-      arr << "  FILE BROWSER HELP  "
+      #arr << "  FILE BROWSER HELP  "
+      arr << [color0,"        FILE BROWSER HELP      ", FFI::NCurses::A_NORMAL]
       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 << [[color1," <tab>   ",nil],[color2, "- switch between windows", nil]]
+      arr << [[color1," <enter> ",nil],[color2, "- open dir", nil]]
+      arr << [[color1," F3      ",nil],[color2, "- view file/dir/zip contents (toggle) ", nil]]
+      arr << [[color1," F4      ",nil],[color2, "- edit file content", nil]]
+      arr << [[color1," <char>  ", nil],[color2, "first file starting with <char>",nil]]
+      #arr << "         VIM MODE                              "
+      arr << [color0,"         VIM MODE  ", FFI::NCurses::A_NORMAL]
+      arr << [[color1," M",nil],[color2, "-v     - Vim like bindings for navigation (toggle)", nil]]
+      arr << "   jk gg G up down motion, C-n C-p, Alt-0, Alt-9           "
+      arr << [[color1,"   p or Space ",nil],[color2, "- use pager on current file", nil]]
+      arr << [[color1,"   q      ",nil],[color2, "- use qlmanage on file ",nil],[$promptcolor, " (OSX)", nil]]
+      arr << [[color1,"   f<char> ",nil],[color2, "- first file starting with <char>", nil]]
+
       arr << "           "
       arr << " < > ^ V - move help window "
       arr << "           "
+      # next line does not work due to chunks
       w = arr.max_by(&:length).length
       #arr = ["this is some help text","hello there"]
 
@@ -754,7 +825,8 @@ class RFe
       #t.color = :black
       #t.bgcolor = :white
       # or
-      t.attr = :reverse
+      #t.attr = :reverse
+      t.attr = :normal
       #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;
@@ -789,6 +861,13 @@ class RFe
     @form.bind_key(FFI::NCurses::KEY_F8){
       system_popup()
     }
+    # will work if you are in vim mode
+    @form.bind_key(?p){
+      page
+    }
+    @form.bind_key(?q){
+      qlmanage
+    }
     # 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){
@@ -803,7 +882,11 @@ class RFe
         @current_list.change_dir dir
       end
     }
+    gw = get_color($reversecolor, 'green', 'black')
+    bw = get_color($datacolor, 'blue', 'black')
     @klp = RubyCurses::KeyLabelPrinter.new @form, get_key_labels
+    @klp.footer_color_pair = bw
+    @klp.footer_mnemonic_color_pair = gw 
     @klp.set_key_labels get_key_labels(:file), :file
     @klp.set_key_labels get_key_labels(:view), :view
     @klp.set_key_labels get_key_labels(:dir), :dir
@@ -811,13 +894,32 @@ class RFe
     @window.wrefresh
     Ncurses::Panel.update_panels
     begin
+      chunks=["File","Key"]
+      color0 = get_color($promptcolor, 'black','cyan')
+      color1 = get_color($datacolor, 'white','cyan')
+
       ## qq stops program, but only if M-v (vim mode)
     while(!stopping? && (ch = @window.getchar()) != ?\C-q.getbyte(0) )
       s = keycode_tos ch
-      status_row.text = "Pressed #{ch} , #{s}"
+      #status_row.text = "|  Pressed #{ch} , #{s}"
       @form.handle_key(ch)
 
-      @form.repaint
+      # the following is just a test of show_colored_chunks
+      #count = @current_list.list.size
+      count1 = @lista.list.size
+      count2 = @listb.list.size
+      x, y = FFI::NCurses::getyx @window.get_window
+      chunks[0]=[color0, "%-30s" % status_row.text, FFI::NCurses::A_BOLD]
+      chunks[1]=[color1, "%-18s" % " |   #{ch}, #{s} |", FFI::NCurses::A_NORMAL]
+      chunks[2]=[color0, "   Total: #{count1}, #{count2}"]
+      @window.wmove(Ncurses.LINES-3,0)
+      @window.color_set(color0, nil)
+      @window.print_empty_line
+      @window.wmove(Ncurses.LINES-3,0)
+      @window.show_colored_chunks chunks
+      @window.wmove(x,y)
+
+      #@form.repaint
       @window.wrefresh
     end
     ensure
@@ -847,12 +949,13 @@ def get_key_labels categ=nil
   key_labels = [
     ['C-q', 'Exit'], ['C-v', 'View'], 
     ['C-f', 'File'], ['C-d', 'Dir'],
-    ['C-x','Select'], nil,
+    ['C-Sp','Select'], ['Spc', "Preview"],
     ['F3', 'View'], ['F4', 'Edit'],
     ['F5', 'Filter'], ['F6', 'Sort'],
     ['F7', 'Grep'], ['F8', 'System'],
     ['M-0', 'Top'], ['M-9', 'End'],
-    ['C-p', 'PgUp'], ['C-n', 'PgDn']
+    ['C-p', 'PgUp'], ['C-n', 'PgDn'],
+    ['M-v', 'Vim Mode'], ['BSpc', 'PrevDir']
   ]
   elsif categ == :file
   key_labels = [
@@ -944,6 +1047,10 @@ def filter
   @current_list.filter_pattern = f
   @current_list.rescan
 end
+
+# ask user for pattern to grep through files
+#  and display file names in same list
+
 def grep_popup
   last_regex = @last_regex || ""
   last_pattern = @last_pattern || "*"
@@ -990,16 +1097,25 @@ def grep_popup
     flags=""
     flags << " -i "  if mform.by_name["case insensitive"].value==true
     flags << " -R " if mform.by_name["Recurse"].value==true
+    # sometimes grep pukes "No such file or directory if you specify some
+    #  filespec that is not present. I don't want it to come in filestr
+    #  so i am not piping stderr to stdout
     cmd = "cd #{@current_list.cur_dir()};grep -l #{flags} #{inp} #{fp}"
     filestr = %x[ #{cmd} ]
     files = nil
     files = filestr.split(/\n/) unless filestr.nil?
     #view filestr
+    if !files || files.empty?
+      alert "Sorry! No files for regex #{inp}"
+      return
+    end
     @current_list.title "grep #{inp}"
     @current_list.populate files
+    # Use backspace to go back
   end
   return mb.selected_index, mform.by_name["regex"].getvalue, mform.by_name["filepattern"].getvalue, mform.by_name["Recurse"].value, mform.by_name["case insensitive"].value
 end
+
 def system_popup
   deflt = @last_system || ""
   options=["run in shell","view output","file explorer"]

data/examples/rfe_renderer.rb

@@ -10,9 +10,54 @@ module RubyCurses
       @orig_bgcolor = @bgcolor
       @orig_color = @color
       @orig_attr = @attr
+      # we need to refer to file types, executable, dir, link, otherwise we'll go crazy 
+      @color_hash = {
+        '.rb' =>      [get_color($datacolor, 'red', 'black'), 0],
+        '.txt' =>     [get_color($datacolor, 'white', 'black'), 0],
+        '.gemspec' => [get_color($datacolor, 'yellow', 'black'), 0],
+        '.gem' => [get_color($datacolor, 'yellow', 'black'), 0],
+        '.c' =>       [get_color($datacolor, 'green', 'black'), 0],
+        '.py' =>      [get_color($datacolor, 'green', 'black'), 0],
+        '.tgz' =>     [get_color($datacolor, 'red', 'black'), get_attrib('bold')],
+        '.gz' => [get_color($datacolor, 'red', 'black'), 0],
+        '.zip' => [get_color($datacolor, 'red', 'black'), 0],
+        '.jar' => [get_color($datacolor, 'red', 'black'), 0],
+        '.html' => [get_color($datacolor, 'green', 'black'), get_attrib('reverse')],
+        "" => [get_color($datacolor, 'yellow', 'black'), get_attrib('bold')],
+        '.jpg' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.png' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.sh' => [get_color($datacolor, 'red', 'black'), 0],
+        '.mp3' => [get_color($datacolor, 'cyan', 'blue'), 0],
+        '.bak' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.tmp' => [get_color($datacolor, 'black', 'blue'), 0],
+        '.pl' => [get_color($datacolor, 'green', 'black'), 0],
+        '.java' => [get_color($datacolor, 'cyan', 'blue'), 0],
+        '.class' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.pyc' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.o' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.a' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.lib' => [get_color($datacolor, 'magenta', 'black'), 0]
+      } 
+    end
+
+    # override parent method to set color_pair and attr for different kind of files
+    def select_colors focussed, selected 
+      ext = File.extname(@path)
+      c = @color_hash[ext]
+      c = [$datacolor, FFI::NCurses::A_NORMAL] unless c
+      if File.directory? @path
+        c = [get_color($datacolor, 'blue', 'black'), FFI::NCurses::A_BOLD] 
+      end
+      @color_pair, @attr = *c
+      if selected
+        #@attr = FFI::NCurses::A_UNDERLINE | FFI::NCurses::A_BOLD # UL not avaible on screen
+        @attr = FFI::NCurses::A_REVERSE | FFI::NCurses::A_BOLD
+        @color_pair = $datacolor
+      end
+      if focussed
+        @attr = FFI::NCurses::A_REVERSE # | FFI::NCurses::A_BOLD
+      end
     end
-    ##
-    ##
     # 
     def repaint graphic, r=@row,c=@col, row_index=-1, value=@text, focussed=false, selected=false
 
@@ -26,6 +71,7 @@ module RubyCurses
       else
         path = @parent.cur_dir()+"/"+value 
       end
+      @path = path # i need it in select_color
       begin
       stat = File.stat(path)
       if File.directory? path

data/examples/sqlc.rb

@@ -1,4 +1,5 @@
 ## rkumar, 2009
+#
 #DEPRECATED. See sqlm.rb or sqlt.rb in which i use a TabularWidget instead of Table.
 #AVOID USING TabbedPane till its rewritten 1.3.2 or so.
 
@@ -167,7 +168,7 @@ class Sqlc
   end
   def run
     title = "rbcurse"
-    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client using TabbedPane and Table (see sqlm.rb instead) "}
+    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client using deprecated TabbedPane and Table (see sqlm.rb instead) "}
     status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>70}
     @status_row = status_row
     # setting ENTER across all objects on a form

data/examples/sqlm.rb

@@ -7,8 +7,6 @@
 # This is an offshoot of sqlc.rb -- this demo uses a multicontainer for tables
 # instead of a tabbed panes. 
 #
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'sqlite3'
 require 'rbcurse'

data/examples/table1.rb

@@ -1,13 +1,7 @@
 require 'rbcurse/app'
 
 if $0 == __FILE__
-  #app = App.new
-  #window = app.window
-  #window.printstring 2, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
-  #app.logger.info "beforegetch"
-  #window.getch
-  #app.close
-  # this was the yield example, but now we've moved to instance eval
+  # NOTE try using the readonly tabular or tabular widget instead, see term2.rb
   App.new do 
     @window.printstring 1, 30, "Demo of Table - rbcurse", $normalcolor, 'reverse'
     @window.printstring 2, 30, "Hit F1 to quit", $datacolor, 'normal'

data/examples/term2.rb

@@ -16,7 +16,10 @@ App.new do
     #list_box :list => t.to_s.split("\n")
     list_box :list => t.render
   end # stack
-  r = `df -gh`
+  r = `/bin/df -gh`     # stock BSD df
+  #r = `df -gh`   # I've installed brew, the df (maybe coreutils gives an error due to g option"
+  
+  raise "df -gh not returning anything. correct command here. Try removing g option" if r == ""
   # on my system there are extra spaces so i need to remove them, or else
   # there'll be a mismatch between headers and columns
   r.gsub!("Mounted on", "Mounted_on")

data/examples/test1.rb

@@ -5,12 +5,7 @@
 #  TERM=xterm-color does but does not trap F1, f2 etc
 #  TERM=xterm does not but other things are fine.
 #
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
-#require 'lib/rbcurse/mapper'
-#require 'lib/rbcurse/keylabelprinter'
 require 'rbcurse'
 require 'rbcurse/rmessagebox'