Merge pull request #47 from vermiculus/switching-networks

Implement basic site switching

2 files changed, 47 insertions, 0 deletions

diff --git a/sx-question-list.el b/sx-question-list.el
index ff1bdaa..a1dec7a 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 (funcall (if ido-mode #'ido-completing-read #'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)
+  (sx-question-list-refresh 'redisplay))
+
 (defvar sx-question-list--buffer nil
   "Buffer where the list of questions is displayed.")
 
diff --git a/sx-site.el b/sx-site.el
new file mode 100644
index 0000000..8775542
--- /dev/null
+++ b/sx-site.el
@@ -0,0 +1,34 @@
+;;; sx-site.el --- site functions
+
+;; Copyright (C) 2014  Sean Allred
+
+;; Author: Sean Allred <code@seanallred.com>
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+;;; @TODO use new caching system implemented in branch `network-list'
+(defun sx-site-get-api-tokens ()
+  "Return a list of all known site tokens."
+  (mapcar
+   (lambda (site) (cdr (assoc 'api_site_parameter site)))
+   (sx-method-call "sites" '((pagesize . 9999)))))
+
+(provide 'sx-site)
+;;; sx-site.el ends here