Question-list mode

1 files changed, 104 insertions, 0 deletions

diff --git a/stack-question-list.el b/stack-question-list.el
new file mode 100644
index 0000000..bee85aa
--- /dev/null
+++ b/stack-question-list.el
@@ -0,0 +1,104 @@
+;;; stack-question-list.el --- Major-mode for navigating questions list.  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2014  Artur Malabarba
+
+;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
+;; Keywords: help, hypermedia, mail, news, tools
+
+
+;; 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:
+(require 'stack-question)
+(require 'tabulated-list)
+
+
+;;; Mode Definition
+(define-derived-mode stack-question-list-mode tabulated-list-mode "Question List"
+  "Major mode for browsing a list of questions from stack-exchange.
+Letters do not insert themselves; instead, they are commands.
+\\<stack-question-list>
+\\{stack-question-list}"
+  (hl-line-mode 1)
+  (stack-question-list--update-mode-line)
+  (setq tabulated-list-format
+        `[("Vote" 4 nil) ("Answ" 4 nil) ("Date" 4 nil) ("Title" 0 nil)])
+  (setq tabulated-list-padding 2)
+  (setq tabulated-list-sort-key (cons "Date" nil))
+  (add-hook 'tabulated-list-revert-hook
+            #'stack-question-list--refresh-question-list nil t)
+  (add-hook 'tabulated-list-revert-hook
+            #'stack-question-list--update-mode-line nil t)
+  (tabulated-list-init-header))
+
+(mapc
+ (lambda (x) (define-key stack-question-list-mode-map
+          (car x) (cadr x)))
+ '(("j" stack-question-list-next)
+   ("k" stack-question-list-previous)
+   ([RET] stack-question-list-display-question)))
+
+(defun stack-question-list--update-mode-line ()
+  "Fill the mode-line with useful information."
+  nil)
+
+(defun stack-question-list--refresh-question-list ()
+  ""
+  ;; Obviously this needs to be changed.
+  (let ((question-list ))
+    ;; Print the result.
+    (setq tabulated-list-entries
+          (mapcar #'stack-question-list--print-info question-list))))
+
+(defun stack-question-list--print-info (data)
+  "Convert `json-read' DATA into tabulated-list format."
+  )
+
+(defun stack-question-list-previous (n)
+  "Hide this question, move to previous one, display it."
+  (interactive "p")
+  (stack-question-list-next (- n)))
+
+(defun stack-question-list-next (n)
+  "Hide this question, move to next one, display it."
+  (interactive "p")
+  (next-line n)
+  (stack-question-list-display-question))
+
+(defcustom stack-question-list-height 10
+  "Height, in lines, of stack-mode's *question-list* buffer."
+  :type 'integer
+  :group 'stack-question-list)
+
+(defun stack-question-list-display-question (&optional data focus)
+  "Display question given by DATA.
+If called interactively (or with DATA being nil), display
+question under point.
+Also when called interactively (or when FOCUS is non-nil), also
+focus the relevant window."
+  (interactive '(nil t))
+  (unless data (setq data (tabulated-list-get-id)))
+  (unless data (error "No question here!"))
+  (let ((window stack-question--window))
+    (unless (window-live-p window)
+      (setq window
+            (split-window-below stack-question-list-height)))
+    (stack-question--display data window)
+    (when focus
+      (select-window window))))
+
+(provide 'stack-question-list)
+;;; stack-question-list.el ends here