aboutsummaryrefslogtreecommitdiff
path: root/sx-question-list.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-02-12 21:11:58 -0200
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-02-12 21:11:58 -0200
commit2f0c2c3d29e24873dbe9f66718e8478ed1472ca6 (patch)
tree90ba6f290e04a75a734fb615a58ab5a2c07d3a08 /sx-question-list.el
parent9356a6a039f0d8cf8d9f31e42e8007617c58577d (diff)
parent3855607ae779165e33f5f1834bedad42d1583971 (diff)
Merge branch 'images' into print-question-without-temp-buffer
Diffstat (limited to 'sx-question-list.el')
-rw-r--r--sx-question-list.el41
1 files changed, 40 insertions, 1 deletions
diff --git a/sx-question-list.el b/sx-question-list.el
index 63484e1..07355d0 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -224,6 +224,24 @@ 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)
+ ("Score" . votes)
+ ("Hot" . hot))
+ "Alist of possible values to be passed to the `sort' keyword.")
+(make-variable-buffer-local 'sx-question-list--order-methods)
+
+(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
@@ -253,6 +271,10 @@ The full list of variables which can be set is:
5. `sx-question-list--dataset'
This is only used if both 3 and 4 are nil. It can be used to
display a static list.
+ 6. `sx-question-list--order'
+ Set this to the `sort' method that should be used when
+ requesting the list, if that makes sense. If it doesn't
+ leave it as nil.
\\<sx-question-list-mode-map>
If none of these is configured, the behaviour is that of a
\"Frontpage\", for the site given by
@@ -276,7 +298,7 @@ Adding further questions to the bottom of the list is done by:
display; otherwise, decrement `sx-question-list--pages-so-far'.
If `sx-question-list--site' is given, items 3 and 4 should take it
-into consideration.
+into consideration. The same holds for `sx-question-list--order'.
\\{sx-question-list-mode-map}"
(hl-line-mode 1)
@@ -414,6 +436,10 @@ Non-interactively, DATA is a question alist."
"Site being displayed in the *question-list* buffer.")
(make-variable-buffer-local 'sx-question-list--site)
+(defvar sx-question-list--order nil
+ "Order being displayed in the *question-list* buffer.")
+(make-variable-buffer-local 'sx-question-list--order)
+
(defun sx-question-list-refresh (&optional redisplay no-update)
"Update the list of questions.
If REDISPLAY is non-nil (or if interactive), also call `tabulated-list-print'.
@@ -586,6 +612,19 @@ Sets `sx-question-list--site' and then call
(setq sx-question-list--site site)
(sx-question-list-refresh 'redisplay)))
+(defun sx-question-list-order-by (sort)
+ "Order questions in the current list by the method SORT.
+Sets `sx-question-list--order' and then calls
+`sx-question-list-refresh' with `redisplay'."
+ (interactive
+ (list (when sx-question-list--order
+ (sx-question-list--interactive-order-prompt))))
+ (unless sx-question-list--order
+ (sx-user-error "This list can't be reordered"))
+ (when (and sort (symbolp sort))
+ (setq sx-question-list--order sort)
+ (sx-question-list-refresh 'redisplay)))
+
(provide 'sx-question-list)
;;; sx-question-list.el ends here