From fb64417863367cf33ae80f2e8d10d67f588c1c0b Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 6 Nov 2014 15:33:37 +0000 Subject: Use stack-question-get-questions --- stack-question-list.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'stack-question-list.el') diff --git a/stack-question-list.el b/stack-question-list.el index c3f78bb..924e90e 100644 --- a/stack-question-list.el +++ b/stack-question-list.el @@ -174,6 +174,9 @@ Letters do not insert themselves; instead, they are commands. (setq stack-question-list--total-count (length tabulated-list-entries)))) +(defvar stack-question-list--current-site "emacs" + "Site being displayed in the *question-list* buffer.") + (defun stack-question-list-refresh (&optional redisplay no-update) "Update the list of questions. If REDISPLAY is non-nil, also call `tabulated-list-print'. @@ -182,7 +185,8 @@ a new list before redisplaying." (interactive "pP") ;; Reset the mode-line unread count (we rebuild it here). (setq stack-question-list--unread-count 0) - (let ((question-list (stack-core-make-request "questions"))) + (let ((question-list (stack-question-get-questions + stack-question-list--current-site))) ;; Print the result. (setq tabulated-list-entries (mapcar #'stack-question-list--print-info question-list))) -- cgit v1.2.3