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 _______________________________________________ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch