diff options
Diffstat (limited to 'sx-question-mode.el')
| -rw-r--r-- | sx-question-mode.el | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/sx-question-mode.el b/sx-question-mode.el index dd231bc..d9717a7 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -174,12 +174,13 @@ property." ("d" sx-downvote "downvote") ("q" quit-window) ("SPC" scroll-up-command) - ("c" sx-comment "comment") - ("a" sx-answer "answer") ("e" sx-edit "edit") ("S" sx-search "Search") ("s" sx-switchto-map "switch-to") ("*" sx-favorite "star") + ("O" sx-question-mode-order-by "Order") + ("c" sx-comment "comment") + ("a" sx-answer "answer") ("TAB" forward-button "Navigate") ("<S-iso-lefttab>" backward-button) ("<S-tab>" backward-button) @@ -246,6 +247,18 @@ query the api." (unless (derived-mode-p 'sx-question-mode) (error "Not in `sx-question-mode'"))) +(defun sx-question-mode-order-by (sort) + "Order answers in the current buffer by the method SORT. +Sets `sx-question-list--order' and then calls +`sx-question-list-refresh' with `redisplay'." + (interactive + (list (let ((order (sx-completing-read "Order answers by: " + (mapcar #'car sx-question-mode--sort-methods)))) + (cdr-safe (assoc-string order sx-question-mode--sort-methods))))) + (when (and sort (functionp sort)) + (setq sx-question-mode-answer-sort-function sort) + (sx-question-mode-refresh 'no-update))) + (provide 'sx-question-mode) ;;; sx-question-mode.el ends here |