diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-06 15:33:37 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-06 15:33:37 +0000 |
| commit | fb64417863367cf33ae80f2e8d10d67f588c1c0b (patch) | |
| tree | 9a2a25d32bf6ad2d0501d0d4f7bfb34721e111c8 | |
| parent | d3139e8e478e46c5b125eb8a9327beaacf439b50 (diff) | |
Use stack-question-get-questions
| -rw-r--r-- | stack-question-list.el | 6 |
1 files changed, 5 insertions, 1 deletions
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))) |