From 32cfb125d5734ada6b9216a6e7738e26d20f2998 Mon Sep 17 00:00:00 2001
From: wmorgan <wmorgan@5c8cc53c-5e98-4d25-b20a-d8db53a31250>
Date: Mon, 10 Dec 2007 06:46:57 +0000
Subject: [PATCH] patch to add refine search command for
 label-search-results-mode from Grant Hollingworth

git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@765 5c8cc53c-5e98-4d25-b20a-d8db53a31250
---
 lib/sup/modes/label-search-results-mode.rb | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/sup/modes/label-search-results-mode.rb b/lib/sup/modes/label-search-results-mode.rb
index 88e3595..af6831c 100644
--- a/lib/sup/modes/label-search-results-mode.rb
+++ b/lib/sup/modes/label-search-results-mode.rb
@@ -9,6 +9,17 @@ class LabelSearchResultsMode < ThreadIndexMode
     super [], opts
   end
 
+  register_keymap do |k|
+    k.add :refine_search, "Refine search", '.'
+  end
+
+  def refine_search
+    label_query = @labels.size > 1 ? "(#{@labels.join('||')})" : @labels.first
+    query = BufferManager.ask :search, "query: ", "+label:#{label_query} "
+    return unless query && query !~ /^\s*$/
+    SearchResultsMode.spawn_from_query query
+  end
+
   def is_relevant? m; @labels.all? { |l| m.has_label? l } end
 
   def self.spawn_nicely label
-- 
2.45.2