1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
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
|
