Refactor page to tab

2 files changed, 15 insertions, 15 deletions

diff --git a/sx-question-list.el b/sx-question-list.el
index 026eff8..68bb55b 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -307,10 +307,10 @@ Non-interactively, DATA is a question alist."
   (when (called-interactively-p 'any)
     (sx-question-list-refresh 'redisplay 'noupdate)))
 
-(defvar sx-question-list--current-page "Latest"
+(defvar sx-question-list--current-tab "Latest"
   ;; @TODO Other values (once we implement them) are "Top Voted",
   ;; "Unanswered", etc.
-  "Variable describing current page being viewed.")
+  "Variable describing current tab being viewed.")
 
 (defvar sx-question-list--unread-count 0
   "Holds the number of unread questions in the current buffer.")
@@ -324,7 +324,7 @@ Non-interactively, DATA is a question alist."
   '("  "
     mode-name
     " "
-    (:propertize sx-question-list--current-page
+    (:propertize sx-question-list--current-tab
                  face mode-line-buffer-id)
     " ["
     "Unread: "
diff --git a/sx-tab.el b/sx-tab.el
index 74d308e..eb8d02e 100644
--- a/sx-tab.el
+++ b/sx-tab.el
@@ -1,4 +1,4 @@
-;;; sx-tab.el --- User-level functions for viewing frontpages.       -*- lexical-binding: t; -*-
+;;; sx-tab.el --- Functions for viewing different tabs.       -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014  Artur Malabarba
 
@@ -32,12 +32,12 @@
   :type 'string 
   :group 'stack-exchange)
 
-(defmacro sx-tab--define (page &optional printer refresher pager)
-  "Define a stack-exchange page called PAGE.
-Page is a capitalized string.
+(defmacro sx-tab--define (tab &optional printer refresher pager)
+  "Define a stack-exchange tab called TAB.
+TAB is a capitalized string.
 
-This defines a command `sx-tab-PAGE' for displaying the page,
-and a variable `sx-tab--PAGE-buffer' for holding the bufer.
+This defines a command `sx-tab-TAB' for displaying the tab,
+and a variable `sx-tab--TAB-buffer' for holding the bufer.
 
 The arguments PRINTER, REFRESHER, and PAGER, if non-nil, are
 respectively used to set the value of the variables
@@ -45,13 +45,13 @@ respectively used to set the value of the variables
 `sx-question-list--refresh-function', and
 `sx-question-list--next-page-function'."
   (declare (indent 1) (debug t))
-  (let* ((name (downcase page))
+  (let* ((name (downcase tab))
          (buffer-variable
           (intern (concat "sx-tab--" name "-buffer"))))
     `(progn
        (defvar ,buffer-variable nil
          ,(format "Buffer where the %s questions are displayed."
-                  page))
+                  tab))
        (defun
            ,(intern (concat "sx-tab-" name))
            (&optional no-update site)
@@ -59,7 +59,7 @@ respectively used to set the value of the variables
 
 NO-UPDATE (the prefix arg) is passed to `sx-question-list-refresh'.
 If SITE is nil, use `sx-tab-default-site'."
-                  page)
+                  tab)
          (interactive
           (list current-prefix-arg
                 (funcall (if ido-mode #'ido-completing-read #'completing-read)
@@ -76,13 +76,13 @@ If SITE is nil, use `sx-tab-default-site'."
          (with-current-buffer ,buffer-variable
            (sx-question-list-mode)
            (when printer
-             (setq sx-question-list--next-page-function printer))
+             (setq sx-question-list--print-function printer))
            (when refresher
              (setq sx-question-list--refresh-function refresher))
            (when pager
-             (setq sx-question-list--print-function pager))
+             (setq sx-question-list--next-page-function pager))
            (setq sx-question-list--current-site site)
-           (setq sx-question-list--current-page ,page)
+           (setq sx-question-list--current-tab ,tab)
            (sx-question-list-refresh 'redisplay no-update))
          (switch-to-buffer ,buffer-variable)))))