[PATCH 6/6] emacs: add notmuch-search-change-order

[William Casarin <jb55@jb55.com>]

notmuch-search-change-order pops up a completing-read minibuffer
completion window for choosing sort-orders.
---
 emacs/notmuch.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 334458b7..93b4e582 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -178,6 +178,7 @@ there will be called at other points of notmuch execution."
     (define-key map "r" 'notmuch-search-reply-to-thread-sender)
     (define-key map "R" 'notmuch-search-reply-to-thread)
     (define-key map "o" 'notmuch-search-toggle-order)
+    (define-key map "O" 'notmuch-search-change-order)
     (define-key map "c" 'notmuch-search-stash-map)
     (define-key map "t" 'notmuch-search-filter-by-tag)
     (define-key map "l" 'notmuch-search-filter)
@@ -1044,6 +1045,19 @@ same relative position within the new buffer."
     (subject-ascending 'subject-descending)
     (subject-descending 'subject-ascending)))
 
+(defun notmuch-search-change-order (&optional sort-order)
+  "Change the current search order.
+
+This command changes the order for current search. The default
+sort order is defuned by `notmuch-search-sort-order'."
+  (interactive)
+  (let ((so (if sort-order sort-order
+	      (cdr (assoc (completing-read
+			   "Select a sort order:" notmuch-sort-orders)
+			  notmuch-sort-orders)))))
+    (set 'notmuch-search-sort-order so)
+    (notmuch-search-refresh-view)))
+
 (defun notmuch-search-toggle-order ()
   "Toggle the current search order.
 
-- 
2.13.2