hackercli 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: b99813316a49a7f734835aaf0d913f0e7f318fe5
-  data.tar.gz: 7ef92b17ffc21396553663a3ec8471f0220ef1a6
+  metadata.gz: 75c4a562ea1421cb25e6e931f248fe548dca1455
+  data.tar.gz: 5eae9a7fae225f5466ce8c3e821cc3a438d72fad
 SHA512:
-  metadata.gz: 9317754f66a17e8e6158aa0f61adaab78ed833959fd042f362f8964eb20ffb3c86eb4b171685a12657d7bd982c04b977ee099b3f48f779f1c7bbf54566ac70db
-  data.tar.gz: cf74fa1d7c328e73bd433f1d4cae0857dab48270368899ebda3f9adf9b389861ac7d35af257472b555958cac2899b2e9cbb8afd38ddf5a500c19dc1d8d399096
+  metadata.gz: ecaef63610e4e8337bd71b3073c71f979c50b00e2629c3528125844ca2c3bf4b0fc5dd7744b63855ec4315e8ac937f831cb1b48764dcd5e96289eca07a080648
+  data.tar.gz: 0016e69972886d8ec5ed937019b48e326b2f56cfa3105bb31014ceab1c4e9b7d3538b5ef39e7402e90f5d843daabaab259b59d2329520f406e3589ab27afe837

data/README.md

@@ -6,51 +6,94 @@ provided. May be used as a filter for other commands.
 This is a single file and so may be placed anywhere in the path. Also, one may include it in a project
 and get the array of hashes for each article and use as per requirements.
 
-This is NOT dependent on any other gem as it uses and parses the simple RSS feed using +String.scan+ only.
+This is NOT dependent on any other gem as it uses and parses the simple RSS feed using `String.scan` only.
 
 The feed used for Hacker News is:
 
-    https://news.ycombinator.com/bigrss
+        https://news.ycombinator.com/bigrss
 
 The feed used for Reddit News is (replace ruby with any other subreddit):
 
         http://www.reddit.com/r/ruby/.rss
 
 Please click these links and check if they are working if there is any problem.
+To see current options:
 
-hackercli.rb --help
+        hackercli.rb --help
 
 
 ## Installation
 
-Or install it yourself as:
-
     $ gem install hackercli
 
 ## Usage
 
     hackercli.rb --help
 
-To view hacker news titles and info.
+To view hacker news titles and urls
 
     hackercli.rb 
+
+    hackercli.rb slashdot
+
+Pipe to other commands (default separatar is a TAB)
+
+    hackercli.rb | cut -f1,2 | nl | sort -n -r
     
 
 To view only titles:
 
     hackercli.rb -t
 
+
+To view description column also (this is normally not printed since it can be long):
+
+    hackercli.rb -v
+
 To view reddit ruby:
 
-    hackercli.rb -s ruby
+    hackercli.rb ruby 
+
+    hackercli.rb <subreddit> 
 
 Present the URL of some other RSS feed:
 
-    hackercli.rb -u https://someurl.com/.rss
+    hackercli.rb -u http://feeds.arstechnica.com/arstechnica/index
+
+    hackercli.rb -u http://feeds.boingboing.net/boingboing/iBag
+
+Save output to a YML file:
+
+    hackercli.rb -y ruby.yml ruby 
+
+Please try the `--help` option to see current feeds supported, and latest options.
 
 NOTE: this has been tested only with Hackernews bigrss and reddit news' RSS, so I cannot gaurantee
 how it will behave with others. Some tags such as item, title and link are expected to be present.
 
+## Changes
+
+### 0.0.2
+
+-  Earlier the `-s` option was used to specify subforum. Now, it is not an option. subforum is passed
+as an argument.
+
+-  Save to YML. I would prefer to use this in a client program rather than use tabbed output. 
+   The YML file contains descriptive field which some callers may require.
+   The tabbed output does not contain description.
+
+-  Several other RSS feeds have been checked out such as **slashdot** and **arstechnica**.
+   You may pass "*ars:open-source*" or "*ars:software*" as an argument.
+   Check `--help` for latest options and features.
+
+## Upcoming
+
+I've added a curses frontend to the generated yml files in bin named `hackman`, which depends on the
+curses library `canis`. I am making it key-binding compliant with `corvus`, so one may switch from one
+to the other without problems.
+
+Should store the files in given location, read up forum list and other things from an info file.
+(Perhaps share with corvusinfo).
 
 ## Testing and debugging
 
@@ -62,11 +105,17 @@ the program.
 
 ## See Also:
 
+### rubygems
+
+https://rubygems.org/gems/hackercli
+
 ### hacker-curse
 
-This uses nokogiri to parse the actual Hackernews (or reddit) page, and can print on the CLI as well as 
+hacker-curse uses nokogiri to parse the actual Hackernews (or reddit) page, and can print on the CLI as well as 
 be used as a library for another application. hacker-curse also provides a curses interface for viewing titles 
-and comments, and launching the article or comments page in the GUI browser.
+and comments, and launching the article or comments page in the GUI browser. Currently, the frontend is being 
+developed. The library is ready and is on github. It contains a non-curses client named `corvus` which you should 
+try.
 
 ## Contributing
 
@@ -75,3 +124,6 @@ and comments, and launching the article or comments page in the GUI browser.
 3. Commit your changes (`git commit -am 'Add some feature'`)
 4. Push to the branch (`git push origin my-new-feature`)
 5. Create a new Pull Request
+
+Please let me know if you find this useful, or write a front-end for this. I'd like to know how to make this more
+useful, and include a link to your repo.

data/bin/hackercli.rb

@@ -1,6 +1,6 @@
 #!/usr/bin/env ruby
 # ----------------------------------------------------------------------------- #
-#         File: bigrss.rb
+#         File: hackercli.rb 
 #  Description: reads Hacker News bigrss feed and prints out
 #               Also works with reddit's rss feed 
 #
@@ -8,15 +8,18 @@
 #               titles and connecting to the page. HN's rss does not provide any info
 #               such as points/age etc. Reddit provides a little more but has to be parsed.
 #
-#               Currently saves downloaded file as "last.rss" so you may rerun queries on it
+#               Currently saves downloaded file as "<forum>.rss" so you may rerun queries on it
 #               using the "-u" flag.
 #
+#               Caveats: fails if newlines in rss feed as in case of arstechnical
+#               We need to join the lines first so that scan can work
+#
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2014-07-20 - 11:37
 #      License: MIT
 #  Last update: 2014-07-21 17:50
 # ----------------------------------------------------------------------------- #
-#  bigrss.rb  Copyright (C) 2012-2014 j kepler
+#  hackercli.rb  Copyright (C) 2012-2014 j kepler
 
 require 'open-uri'
 require 'cgi'
@@ -31,16 +34,28 @@ class Bigrss
     #instance_eval &block if block_given?
   end
 
+  # # returns a hash containing :articles array, and one or two outer fields such as page_url and time
+  # returns an array containing a hash for each article
+  # The hash contains :title, :url, :comments_url and in some case :pubdata and comments_count
   def run
+    page = {}
+
     resp = []
     filename = @options[:url]
+    page[:page_url] = filename
+    now = Time.now
+    page[:create_time_seconds] = now.to_i
+    page[:create_time] = now.to_s
+    page[:articles] = resp
     f = open(filename)
-    content = f.read
+    outfile = @options[:subreddit] || "last"
+    # ars technical sends in new lines
+    content = f.read.delete("\n")
     content.gsub!('&#x2F;',"/")
     content.gsub!('&#x27;',"'")
     content.gsub!('&#x34;','"')
     content = CGI.unescapeHTML(content)
-    File.open("last.rss","w") {|ff| ff.write(content) }
+    File.open("#{outfile}.rss","w") {|ff| ff.write(content) }
     items = content.scan(/<item>(.*?)<\/item>/)
     items.each_with_index do |e,i|
       e = e.first
@@ -48,6 +63,8 @@ class Bigrss
       title = e.scan(/<title>(.*?)<\/title/).first.first
       h[:title] = title
       url = e.scan(/<link>(.*?)<\/link/).first.first
+      # in the case of hacker news this is the article url
+      # In the case of reddit, this is the comment url along with comment url
       h[:url] = url
       comment_url = ""
       # HN has comments links in a  tag
@@ -73,7 +90,7 @@ class Bigrss
       end
       #puts " #{title}#{sep}#{url}#{sep}#{comment_url}"
     end
-    return resp unless block_given?
+    return page unless block_given?
   end
   def extract_part e, tag, hash
     if e.index("<#{tag}>")
@@ -103,6 +120,12 @@ end
 
 
 
+def to_yml outfile, arr
+  require 'yaml'
+  File.open(outfile, 'w' ) do |f|
+    f << YAML::dump(arr)
+  end
+end
 
 
 
@@ -111,11 +134,40 @@ end
 if true
   begin
     url = nil
+    ymlfile = nil
     # http://www.ruby-doc.org/stdlib/libdoc/optparse/rdoc/classes/OptionParser.html
     require 'optparse'
     options = {}
+    appname = File.basename $0
     OptionParser.new do |opts|
-      opts.banner = "Usage: #{$0} [options]"
+      opts.banner = 
+        %Q{ 
+Usage: #{$0} [options]
+ Examples:
+  Display Hacker News titles and urls:
+    #{appname} 
+    #{appname} hacker
+  Display subreddits from reddit.com:
+    #{appname} programming
+    #{appname} ruby
+  Display info from other sites:
+    #{appname} ars                # index from arstechnica
+    #{appname} ars:software       # software from arstechnica
+    #{appname} ars:open-source    # open-source from arstechnica
+    #{appname} slashdot   
+  Display info from a saved rss file:
+    #{appname} -u ruby.rss
+  Save info from reddit ruby to a YML file:
+    #{appname} -y ruby.yml ruby
+  Display info from another url: 
+    #{appname} -u http://feeds.boingboing.net/boingboing/iBag
+    #{appname} -u http://www.lifehacker.co.in/rss_tag_section_feeds.cms?query=productivity
+    #{appname} -u http://rss.slashdot.org/Slashdot/slashdot
+    #{appname} -u http://feeds.arstechnica.com/arstechnica/open-source
+    #{appname} -u http://feeds.arstechnica.com/arstechnica/software
+    
+
+}
 
       opts.on("-v", "--[no-]verbose", "Print description also") do |v|
         options[:verbose] = v
@@ -129,10 +181,13 @@ if true
       opts.on("-d SEP", String,"--delimiter", "Delimit columns with SEP") do |v|
         options[:delimiter] = v
       end
-      opts.on("-s SUBREDDIT", String,"--subreddit", "Get articles from subreddit named SUBREDDIT") do |v|
-        options[:subreddit] = v
-        url = "http://www.reddit.com/r/#{v}/.rss"
+      opts.on("-y yml path", String,"--yml-path", "save as YML file") do |v|
+        ymlfile = v
       end
+      #opts.on("-s SUBREDDIT", String,"--subreddit", "Get articles from subreddit named SUBREDDIT") do |v|
+        #options[:subreddit] = v
+        #url = "http://www.reddit.com/r/#{v}/.rss"
+      #end
       opts.on("-u URL", String,"--url", "Get articles from URL/file") do |v|
         url = v
       end
@@ -141,11 +196,43 @@ if true
     #p options
     #p ARGV
 
-    #filename=ARGV[0];
-    url ||= "https://news.ycombinator.com/bigrss"
+    v = ARGV[0];
+    if v
+      case v
+      when "news", "hacker", "hn"
+        url = "https://news.ycombinator.com/bigrss"
+        options[:subreddit] = "hacker"
+      when "slashdot"
+        url = "http://rss.slashdot.org/Slashdot/slashdot"
+        options[:subreddit] = "slashdot"
+      when "ars"
+        url = "http://feeds.arstechnica.com/arstechnica/index"
+        options[:subreddit] = "arstechnica"
+      else
+        if v.index("ars:") == 0
+          subf = v.split(":")
+          url = "http://feeds.arstechnica.com/arstechnica/#{subf.last}"
+          options[:subreddit] = subf.join("_")
+        else
+          url = "http://www.reddit.com/r/#{v}/.rss" 
+          options[:subreddit] = v
+        end
+      end
+    end
+    unless url
+      url ||= "https://news.ycombinator.com/bigrss"
+      options[:subreddit] = "hacker"
+    end
+    #$stderr.puts "url is: #{url} "
+
     options[:url] = url
     klass = Bigrss.new options
-    arr = klass.run
+    page = klass.run
+    if ymlfile
+      to_yml ymlfile, page
+      exit
+    end
+    arr = page[:articles]
     titles_only = options[:titles]
     sep = options[:delimiter] || "\t"
     limit = options[:number] || arr.count

data/bin/hackman.rb

@@ -0,0 +1,531 @@
+#!/usr/bin/env ruby
+# ----------------------------------------------------------------------------- #
+#         File: hackman.rb
+#  Description: curses frontend for rss feeds generated by hackercli
+#       Author: j kepler  http://github.com/mare-imbrium/canis/
+#         Date: 2014-08-09 - 10:12
+#      License: MIT
+#  Last update: 2014-08-11 21:30
+# ----------------------------------------------------------------------------- #
+#  hackman.rb  Copyright (C) 2012-2014 j kepler
+# encoding: utf-8
+require 'canis/core/util/app'
+require 'canis/core/util/rcommandwindow'
+require 'fileutils'
+require 'pathname'
+require 'canis/core/include/defaultfilerenderer'
+require 'canis/core/include/appmethods'
+
+# TODO : 
+#    - add to forum list, remove, save
+#    - specify gui browser and text browser, and on commandline use same keys as corvus
+#    - create a class and put stuff in there, these methods are going into global, and can conflict
+#    - we should have same mechanism for key bindings as corvus, something that can even be loaded?
+#    
+#    - Use ' as bookmark etc just as in cetus and corvus, keep to same keys
+#    - multibuffers so user can backspace and do M-n etc
+#    
+VERSION="0.0.2"
+COLOR_SCHEMES=[ 
+  [20,19,17, 18, :white], # 0 band in header, 1 - menu bgcolor.  2 - bgcolor of main screen, 3 - status, 4 fg color body
+  [17,19,18, 20, :white], # 0 band in header, 1 - menu bgcolor.  2 - bgcolor of main screen, 3 - status
+  [236,236,232, 234,:white], # 0 band in header, 1 - menu bgcolor.  2 - bgcolor of main screen, 3 - status
+  [236,236,244, 234, :black] # 0 band in header, 1 - menu bgcolor.  2 - bgcolor of main screen, 3 - status
+]
+$color_scheme = COLOR_SCHEMES[0]
+$toggle_titles_only = false
+$fg = :white
+$forumlist = %w{ hacker ruby programming scifi science haskell java scala cpp c_programming d_language golang vim emacs unix linux bash zsh commandline vimplugins python ars slashdot }
+def choose_forum
+  # scrollable filterable list
+  str = display_list $forumlist, :title => "Select a forum"
+  return unless str
+  return if str == ""
+  $current_forum = str
+  forum = str
+  get_data forum if forum
+end
+def next_forum
+  index = $forumlist.index($current_forum)
+  index = index >= $forumlist.count - 1 ? 0 : index + 1
+  get_data $forumlist[index]
+end
+def prev_forum
+  index = $forumlist.index($current_forum)
+  index = index == 0? $forumlist.count - 1 : index - 1
+  get_data $forumlist[index]
+end
+# if components have some commands, can we find a way of passing the command to them
+# method_missing gave a stack overflow.
+def execute_this(meth, *args)
+  alert " #{meth} not found ! "
+  $log.debug "app email got #{meth}  " if $log.debug? 
+  cc = @form.get_current_field
+  [cc].each do |c|  
+    if c.respond_to?(meth, true)
+      c.send(meth, *args)
+      return true
+    end
+  end
+  false
+end
+def open_url url
+  shell_out "elinks #{url}"
+  #Window.refresh_all
+end
+
+  ## 
+  # Menu creator which displays a menu and executes methods based on keys.
+  # In some cases, we call this and then do a case statement on either key or binding.
+  # @param String title
+  # @param hash of keys and methods to call
+  # @return key pressed, and binding (if found, and responded)
+  #
+  def menu title, hash, config={}, &block
+    raise ArgumentError, "Nil hash received by menu" unless hash
+    list = []
+    hash.each_pair { |k, v| list << "   #[fg=yellow, bold] #{k} #[/end]    #[fg=green] #{v} #[/end]" }
+    #  s="#[fg=green]hello there#[fg=yellow, bg=black, dim]"
+    config[:title] = title
+    config[:width] = hash.values.max_by(&:length).length + 13
+    ch = padpopup list, config, &block
+    return unless ch
+    if ch.size > 1
+      # could be a string due to pressing enter
+      # but what if we format into multiple columns
+      ch = ch.strip[0]
+    end
+
+    binding = hash[ch]
+    binding = hash[ch.to_sym] unless binding
+    if binding
+      if respond_to?(binding, true)
+        send(binding)
+      end
+    end
+    return ch, binding
+  end
+  # pops up a list, taking a single key and returning if it is in range of 33 and 126
+  # Called by menu, print_help, show_marks etc
+  # You may pass valid chars or ints so it only returns on pressing those.
+  #
+  # @param Array of lines to print which may be formatted using :tmux format
+  # @return character pressed (ch.chr)
+  # @return nil if escape or C-q pressed
+  #
+  def padpopup list, config={}, &block
+    max_visible_items = config[:max_visible_items]
+    row = config[:row] || 5
+    col = config[:col] || 5
+    # format options are :ansi :tmux :none
+    fmt = config[:format] || :tmux
+    config.delete :format
+    relative_to = config[:relative_to]
+    if relative_to
+      layout = relative_to.form.window.layout
+      row += layout[:top]
+      col += layout[:left]
+    end
+    config.delete :relative_to
+    # still has the formatting in the string so length is wrong.
+    #longest = list.max_by(&:length)
+    width = config[:width] || 60
+    if config[:title]
+      width = config[:title].size + 2 if width < config[:title].size
+    end
+    height = config[:height]
+    height ||= [max_visible_items || 25, list.length+2].min 
+    #layout(1+height, width+4, row, col) 
+    layout = { :height => 0+height, :width => 0+width, :top => row, :left => col } 
+    window = Canis::Window.new(layout)
+    form = Canis::Form.new window
+
+    ## added 2013-03-13 - 18:07 so caller can be more specific on what is to be returned
+    valid_keys_int = config.delete :valid_keys_int
+    valid_keys_char = config.delete :valid_keys_char
+
+    listconfig = config[:listconfig] || {}
+    #listconfig[:list] = list
+    listconfig[:width] = width
+    listconfig[:height] = height
+    listconfig[:bgcolor] = $color_scheme[1]
+    #listconfig[:selection_mode] ||= :single
+    listconfig.merge!(config)
+    listconfig.delete(:row); 
+    listconfig.delete(:col); 
+    # trying to pass populists block to listbox
+    lb = Canis::TextPad.new form, listconfig, &block
+    if fmt == :none
+      lb.text(list)
+    else
+      lb.text(list, fmt)
+    end
+    #
+    #window.bkgd(Ncurses.COLOR_PAIR($reversecolor));
+    form.repaint
+    Ncurses::Panel.update_panels
+    if valid_keys_int.nil? && valid_keys_char.nil?
+      # changed 32 to 33 so space can scroll list
+      valid_keys_int = (33..126)
+    end
+
+    begin
+      while((ch = window.getchar()) != 999 )
+
+        # if a char range or array has been sent, check if the key is in it and send back
+        # else just stay here
+        if valid_keys_char
+          if ch > 32 && ch < 127
+            chr = ch.chr
+            return chr if valid_keys_char.include? chr
+          end
+        end
+
+        # if the user specified an array or range of ints check against that
+        # therwise use the range of 33 .. 126
+        return ch.chr if valid_keys_int.include? ch
+
+        case ch
+        when ?\C-q.getbyte(0)
+          break
+        else
+          if ch == 13 || ch == 10
+            s = lb.current_value.to_s # .strip #if lb.selection_mode != :multiple
+            return s
+          end
+          # close if escape or double escape
+          if ch == 27 || ch == 2727
+            return nil
+          end
+          lb.handle_key ch
+          form.repaint
+        end
+      end
+    ensure
+      window.destroy  
+    end
+    return nil
+  end
+  # main options, invokable on backtick.
+  # TODO add selection of browser
+def main_menu
+  h = { 
+    :f => :choose_forum,
+    :c => :color_scheme_select,
+    :s => :sort_menu, 
+    :F => :filter_menu,
+    :x => :extras
+  }
+  ch, binding = menu "Main Menu", h
+  #alert "Menu got #{ch}, #{binding}" if ch
+end
+def toggle_menu
+  h = { 
+    "t" => :toggle_titles_only,
+    :x => :extras
+  }
+  ch, binding = menu "Main Menu", h
+  #alert "Menu got #{ch}, #{binding}" if ch
+end
+def color_scheme_select ch=nil
+  unless ch
+    h = { 
+      "0" => 'dark blue body',
+      "1" => 'medium blue body',
+      "2" => 'black body',
+      "3" => 'grey body',
+      "b" => 'change body color',
+      "f" => 'change body fg color',
+      "c" => 'cycle body color'
+    }
+    ch, binding = menu "Color Menu", h
+  end
+  case ch
+  when "1", "2", "0", "3"
+    $color_scheme = COLOR_SCHEMES[ch.to_i] || COLOR_SCHEMES.first
+    $fg = $color_scheme[4]
+  when "b"
+    n = get_string "Enter a number for background color (0..255): "
+    n = n.to_i
+    $color_scheme[2] = n
+  when "4", "f"
+    n = get_string "Enter a number for fg color (0..255) : "
+    $fg = n.to_i
+  when "c"
+    # increment bg color
+    n = $color_scheme[2]
+    n += 1
+    n = 0 if n > 255
+    $color_scheme[2] = n
+  when "C"
+    # decrement bg color
+    n = $color_scheme[2]
+    n -= 1
+    n = 255 if n < 0
+    $color_scheme[2] = n
+  end
+
+  h = @form.by_name["header"]
+  tv = @form.by_name["tv"]
+  sl = @form.by_name["sl"]
+  tv.bgcolor = $color_scheme[2]
+  #tv.color = 255
+  tv.color = $fg
+  sl.color = $color_scheme[3]
+  h.bgcolor = $color_scheme[0]
+  message "bgcolor is #{$color_scheme[2]}. :: #{$color_scheme.join(",")}, CP:#{tv.color_pair}=#{tv.color} / #{tv.bgcolor} "
+  refresh
+end
+def refresh
+  show $current_file
+end
+
+def toggle_titles_only
+  $toggle_titles_only = !$toggle_titles_only
+  show $current_file
+end
+App.new do 
+  @startdir ||= File.expand_path("..")
+  @hash = nil
+  def get_item_for_line line
+    index = (line - @hash[:first]) / @hash[:diff]
+    @hash[:articles][index]
+  end
+  def title_right text
+    w = @form.by_name["header"]
+    w.text_right text
+  end
+  def title text
+    w = @form.by_name["header"]
+    w.text_center text
+  end
+  def color_line(fg,bg,attr,text)
+    a = "#["
+    a = []
+    a << "fg=#{fg}" if fg
+    a << "bg=#{bg}" if bg
+    a << "#{attr}" if attr
+    str = "#[" + a.join(",") + "]#{text}#[end]"
+  end
+  def goto_article n=$multiplier
+    i = ((n-1) * @hash[:diff]) +  @hash[:first] 
+    w = @form.by_name["tv"]
+    w.goto_line i
+  end
+
+  def OLDshow file
+    w = @form.by_name["tv"]
+    if File.directory? file
+      lines = Dir.entries(file)
+      w.text lines
+      w.title "[ #{file} ]"
+    elsif File.exists? file
+      lines = File.open(file,'r').readlines 
+      w.text lines
+      w.title "[ #{file} ]"
+    end
+  end
+  # display the given yml file. 
+  # Converts the yml object to an array for textpad
+  def display_yml file
+    w = @form.by_name["tv"]
+
+    obj = YAML::load( File.open( file ) )
+    lines = Array.new
+    url = obj[:page_url]
+    host = nil
+    if url.index("reddit")
+      host = "reddit"
+    elsif url.index("ycombinator")
+      host = "hacker"
+    elsif url.index("ars")
+      host = "ars"
+    elsif url.index("slashdot")
+      host = "slashdot"
+    else
+      alert "Host not known: #{url} "
+    end
+    articles = obj[:articles]
+    count = articles.count
+    #lines << color_line(:red,COLOR_SCHEME[1],nil,"#{file}  #{obj[:page_url]}  |  #{count} articles | fetched  #{obj[:create_time]}")
+    #lines << ("-" * lines.last.size )
+    @hash = Hash.new
+    @hash[:first] = lines.size
+    @hash[:articles] = articles
+
+    articles.each_with_index do |a, i|
+      bg = i
+      bg = 0 if i > 255
+      line = "%3s  %s  " % [i+1 , a[:title] ]
+      #lines << color_line($fg, bg, nil, line)
+      lines << line
+      if !$toggle_titles_only
+        url = a[:article_url] || a[:url]
+        l = "        %s | %s" % [url, a[:comments_url] ]
+        l = "#[fg=green, underline]" + l + "#[end]"
+        lines << l
+        detail = []
+        if a.key? :comment_count
+          detail << a[:comment_count]
+        end
+        if a.key? :pubdate
+          detail << a[:pubdate]
+        end
+        unless detail.empty?
+          l =  "#[fg=green]" + "         " + detail.join(" | ") + "#[end]"
+          lines << l
+        end
+      end
+      @hash[:diff] ||= lines.size - @hash[:first]
+    end
+    w.text(lines, :content_type =>  :tmux)
+    w.title "[ #{file} ]"
+
+    i = @hash[:first] || 1
+    w.goto_line i
+    $current_file = file
+    $current_forum = file.sub(File.extname(file),"")
+    title "#{$current_forum} (#{count} articles) "
+    title_right obj[:create_time]
+  end
+  alias :show :display_yml
+  def get_data forum
+    file = forum + ".yml"
+    if File.exists? file and fresh(file)
+    else
+      progress_dialog :color_pair => $reversecolor do |sw|
+        #sw.printstring 0,1, "Fetching #{forum} ..."
+        sw.print "Fetching #{forum} ..."
+        system("hackercli.rb -y #{forum}.yml #{forum}")
+      end
+    end
+    display_yml file
+  end
+  # return true if younger than one hour
+  def fresh file
+    f = File.stat(file)
+    now = Time.now
+    return (( now - f.mtime) < 7200)
+  end
+  def show_links art
+      links = {}
+      keys = %w{a b c d e f}
+      i = 0
+      art.each_pair do |k, p|
+        if p.index("http") == 0
+          links[keys[i]] = p
+          i += 1
+        end
+      end
+      ch, binding = menu "Links Menu", links
+      #alert "is #{index}: #{art[:title]} #{ch}:#{binding} "
+      if binding
+        open_url binding
+      end
+  end
+  ht = 24
+  borderattrib = :reverse
+  @header = app_header "hackman #{VERSION}", :text_center => "RSS Reader", :name => "header",
+    :text_right =>"Press =", :color => :white, :bgcolor => $color_scheme[0]
+  message "Press F10 (or qq) to exit, F1 Help, ` for Menu  "
+
+
+    
+    # commands that can be mapped to or executed using M-x
+    # however, commands of components aren't yet accessible.
+    def get_commands
+      %w{ choose_forum next_forum prev_forum }
+    end
+    def help_text
+      <<-eos
+               rCommandLine HELP 
+
+      These are some features for either getting filenames from user
+      at the bottom of the window like vim and others do, or filtering
+      from a list (like ControlP plugin). Or seeing a file at bottom
+      of screen for a quick preview.
+
+      :        -   Command mode
+      F1       -   Help
+      F10      -   Quit application
+      qq       -   Quit application
+      =        -   file selection (interface like Ctrl-P, very minimal)
+
+      Some commands for using bottom of screen as vim and emacs do.
+      These may be selected by pressing ':'
+
+      testchoosedir       - filter directory list as you type
+                            '>' to step into a dir, '<' to go up.
+      testchoosefile       - filter file list as you type
+                             ENTER to select, C-c or Esc-Esc to quit
+      testdir          - vim style, tabbing completes matching files
+      testnumberedmenu - use menu indexes to select options
+      choose_forum  - display a list at bottom of screen
+                         Press <ENTER> to select, arrow keys to traverse, 
+                         and characters to filter list.
+      testdisplaytext  - display text at bottom (current file contents)
+                         Press <ENTER> when done.
+
+      The file/dir selection options are very minimally functional. Improvements
+      and thorough testing are required. I've only tested them out gingerly.
+
+      testchoosedir and file were earlier like Emacs/memacs with TAB completion
+      but have now moved to the much faster and friendlier ControlP plugin like
+      'filter as you type' format.
+
+      -----------------------------------------------------------------------
+      :n or Alt-n for general help.
+      eos
+    end
+
+    #install_help_text help_text
+
+    def app_menu
+      @curdir ||= Dir.pwd
+      Dir.chdir(@curdir) if Dir.pwd != @curdir
+      require 'canis/core/util/promptmenu'
+      menu = PromptMenu.new self do
+        item :f, :choose_forum
+        item :t, :testdisplay_text
+      end
+      menu.display_new :title => "Menu"
+    end
+    # BINDING SECTION
+  @form.bind_key(?:, "App Menu") { app_menu; }
+  @form.bind_key(?`, "Main Menu") { main_menu; }
+  @form.bind_key(FFI::NCurses::KEY_F2, "Main Menu") { choose_forum; }
+  @form.bind_key(FFI::NCurses::KEY_F3, "Cycle bgcolor") { color_scheme_select "c"; }
+  @form.bind_key(FFI::NCurses::KEY_F4, "Cycle bgcolor") { color_scheme_select "C"; }
+  @form.bind_key($kh_int["S-F3"], "Cycle bgcolor") { color_scheme_select "C"; }
+  @form.bind_key(?=, "Toggle Menu") { 
+    toggle_menu; 
+  }
+  @form.bind_key(?<, "Previous Forum") { prev_forum; }
+  @form.bind_key(?>, "Next Forum") { next_forum; }
+
+  stack :margin_top => 1, :margin_left => 0, :width => :expand , :height => FFI::NCurses.LINES-2 do
+    tv = textpad :height_pc => 100, :width_pc => 100, :name => "tv", :suppress_borders => true,
+      :bgcolor => $color_scheme[2], :color => 255, :attr => NORMAL
+    #tv.renderer ruby_renderer
+    tv.bind(:PRESS) {|ev|
+      index = ev.current_index
+      art = get_item_for_line index
+      show_links art
+    }
+    tv.bind_key(?z) { goto_article }
+    tv.bind_key(?o) { 
+      # if multiplier is 0, use current line
+      art =  @hash[:articles][$multiplier - 1]
+      if $multiplier == 0
+        index = tv.current_index
+        art = get_item_for_line index
+      end
+      show_links art
+      }
+    tv.text_patterns[:articles] = Regexp.new(/^ *\d+ /)
+    tv.bind_key(KEY_TAB, "goto article") { tv.next_regex(:articles) }
+  end # stack
+    
+  sl = status_line :row => Ncurses.LINES-1, :bgcolor => :yellow, :color => $color_scheme[3]
+  choose_forum 
+end # app

data/lib/hackercli/version.rb

@@ -1,3 +1,3 @@
 module Hackercli
-  VERSION = "0.0.1"
+  VERSION = "0.0.2"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: hackercli
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - kepler
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-07-21 00:00:00.000000000 Z
+date: 2014-08-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -44,6 +44,7 @@ email:
 - githubkepler.50s@gishpuppy.com
 executables:
 - hackercli.rb
+- hackman.rb
 extensions: []
 extra_rdoc_files: []
 files:
@@ -53,6 +54,7 @@ files:
 - README.md
 - Rakefile
 - bin/hackercli.rb
+- bin/hackman.rb
 - hackercli.gemspec
 - lib/hackercli.rb
 - lib/hackercli/version.rb