From ea5583db069afa160d2cea1c07d9f46d5f97e30b Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Fri, 14 Nov 2014 11:11:00 -0500 Subject: Implement basic site switching --- sx-question-list.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'sx-question-list.el') diff --git a/sx-question-list.el b/sx-question-list.el index ff1bdaa..2f877cc 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -25,6 +25,7 @@ (require 'sx) (require 'sx-time) +(require 'sx-site) (require 'sx-question) (require 'sx-question-mode) @@ -133,6 +134,7 @@ Letters do not insert themselves; instead, they are commands. ("j" sx-question-list-view-next) ("k" sx-question-list-view-previous) ("g" sx-question-list-refresh) + (":" sx-question-list-switch-site) ("v" sx-question-list-visit) ([?\r] sx-question-list-display-question))) @@ -297,6 +299,17 @@ focus the relevant window." (select-window sx-question-mode--window) (switch-to-buffer sx-question-mode--buffer)))) +(defun sx-question-list-switch-site (site) + "Switch the current site to SITE and display its questions" + (interactive + (list (completing-read + "Switch to site: " (sx-site-get-api-tokens) + (lambda (site) + (not (equal site sx-question-list--current-site))) + t))) + (setq sx-question-list--current-site site) + (call-interactively #'sx-question-list-refresh)) + (defvar sx-question-list--buffer nil "Buffer where the list of questions is displayed.") -- cgit v1.2.3