From db202249de34136cf43b9f9926d41f0964a184c6 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 11 Feb 2015 15:30:03 +0000 Subject: Define sx-question-list--interactive-order-prompt --- sx-question-list.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/sx-question-list.el b/sx-question-list.el index 04004b3..d2745db 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -230,6 +230,22 @@ This is ignored if `sx-question-list--refresh-function' is set.") ": Quit") "Header-line used on the question list.") +(defconst sx-question-list--order-methods + '(("Recent Activity" . activity) + ("Creation Date" . creation) + ("Most Voted" . votes) + ("Hot" . hot)) + "Alist of possible values to be passed to the `sort' keyword.") + +(defun sx-question-list--interactive-order-prompt (&optional prompt) + "Interactively prompt for a sorting order. +PROMPT is displayed to the user. If it is omitted, a default one +is used." + (let ((order (sx-completing-read + (or prompt "Order questions by: ") + (mapcar #'car sx-question-list--order-methods)))) + (cdr-safe (assoc-string order sx-question-list--order-methods)))) + ;;; Mode Definition (define-derived-mode sx-question-list-mode -- cgit v1.2.3