Implement listing starred questions.

Fix #14

2 files changed, 19 insertions, 0 deletions

diff --git a/sx-switchto.el b/sx-switchto.el
index 1a2c3a0..76804e4 100644
--- a/sx-switchto.el
+++ b/sx-switchto.el
@@ -47,6 +47,7 @@
     ("U" sx-tab-unanswered-my-tags)
     ("v" sx-tab-topvoted)
     ("w" sx-tab-week)
+    ("*" sx-tab-starred)
     ))
 
 
diff --git a/sx-tab.el b/sx-tab.el
index 6a2552f..f97119a 100644
--- a/sx-tab.el
+++ b/sx-tab.el
@@ -232,6 +232,24 @@ If SITE is nil, use `sx-default-site'."
   nil t)
 
 
+;;; Starred
+(sx-tab--define "Starred"
+  (lambda (page)
+    (sx-method-call 'me
+      :page page
+      :site sx-question-list--site
+      :auth t
+      :submethod 'favorites
+      :filter sx-browse-filter)))
+;;;###autoload
+(autoload 'sx-tab-featured
+  (expand-file-name
+   "sx-tab"
+   (when load-file-name
+     (file-name-directory load-file-name)))
+  nil t)
+
+
 ;;; Inter-modes navigation
 (defun sx-tab-meta-or-main ()
   "Switch to the meta version of a main site, or vice-versa.