Allow thread index view to sort oldest first

[sup] / lib / sup / modes / search-results-mode.rb

diff --git a/lib/sup/modes/search-results-mode.rb b/lib/sup/modes/search-results-mode.rb
index 1b0d4569b9e51ee507d8ee35f26780a162c80a29..da03b5125e7c6c1f02e99dd226707e59a2a2428b 100644 (file)
--- a/lib/sup/modes/search-results-mode.rb
+++ b/lib/sup/modes/search-results-mode.rb
@@ -1,9 +1,20 @@
 module Redwood
 
 class SearchResultsMode < ThreadIndexMode
-  def initialize qobj
-    @qobj = qobj
-    super [], { :qobj => @qobj, :load_killed => true, :load_spam => false }
+  def initialize query, newest_first
+    @query = query
+    super [], query
+    @newest_first = newest_first
+  end
+
+  register_keymap do |k|
+    k.add :refine_search, "Refine search", '|'
+  end
+
+  def refine_search
+    text = BufferManager.ask :search, "refine query: ", (@query[:text] + " ")
+    return unless text && text !~ /^\s*$/
+    SearchResultsMode.spawn_from_query text, @newest_first
   end
 
   ## a proper is_relevant? method requires some way of asking ferret
@@ -12,6 +23,18 @@ class SearchResultsMode < ThreadIndexMode
   ## the message, and search against it to see if i have > 0 results,
   ## but that seems pretty insane.
 
+  def self.spawn_from_query text, newest_first
+    begin
+      query = Index.parse_query(text)
+      return unless query
+      short_text = text.length < 20 ? text : text[0 ... 20] + "..."
+      mode = SearchResultsMode.new query, newest_first
+      BufferManager.spawn "search: \"#{short_text}\"", mode
+      mode.load_threads :num => mode.buffer.content_height
+    rescue Index::ParseError => e
+      BufferManager.flash "Problem: #{e.message}!"
+    end
+  end
 end
 
 end