gistfile1.diff

diff --git a/reddit.el b/reddit.el
index 68b5f2f..d0de91c 100644
--- a/reddit.el
+++ b/reddit.el
@@ -140,6 +140,13 @@
                  (assoc-default 'message error nil "<no message>"))
         (message "Login successful")))))
 
+(defun reddit-site-select ()
+  (interactive)
+  (let ((maybe-new-site (read-string "Subreddit: " reddit-site nil "programming")))
+    (unless (string= reddit-site maybe-new-site)
+      (setq reddit-site maybe-new-site)
+      (reddit-refresh))))
+
 (defun reddit-site-root ()
   (if reddit-site
       (concat reddit-root "/r/" reddit-site)
@@ -182,6 +189,7 @@
     (define-key map "g" 'reddit-refresh)
     (define-key map "c" 'reddit-comments)
     (define-key map "L" 'reddit-login)
+    (define-key map "R" 'reddit-site-select)
     map))
 
 (define-derived-mode reddit-mode nil "Reddit"