git.cworth.org Git - sup/blob - lib/sup/modes/inbox-mode.rb

   1 require 'thread'
   2
   3 module Redwood
   4
   5 class InboxMode < ThreadIndexMode
   6   register_keymap do |k|
   7     ## overwrite toggle_archived with archive
   8     k.add :archive, "Archive thread (remove from inbox)", 'a'
   9     k.add :load_more_threads, "Load #{LOAD_MORE_THREAD_NUM} more threads", 'M'
  10     k.add :reload, "Discard threads and reload", 'D'
  11   end
  12
  13   def initialize
  14     super [:inbox], [:inbox]
  15   end
  16
  17   def killable?; false; end
  18
  19   def archive
  20     remove_label_and_hide_thread cursor_thread, :inbox
  21     regen_text
  22   end
  23
  24   def multi_archive threads
  25     threads.each { |t| remove_label_and_hide_thread t, :inbox }
  26     regen_text
  27   end
  28
  29   def is_relevant? m; m.has_label? :inbox; end
  30
  31   def load_more_threads opts={}
  32     n = opts[:num] || ThreadIndexMode::LOAD_MORE_THREAD_NUM
  33     load_n_threads_background n, :label => :inbox,
  34                                  :load_killed => false,
  35                                  :load_spam => false,
  36                                  :when_done => (lambda do |num|
  37       opts[:when_done].call if opts[:when_done]
  38       BufferManager.flash "Added #{num} threads."
  39     end)
  40   end
  41
  42   def reload
  43     drop_all_threads
  44     BufferManager.draw_screen
  45     load_more_threads :num => buffer.content_height
  46   end
  47 end
  48
  49 end