blob: 0342479490800ca97ad6e51e3f74f232158f9509 (
plain) (
blame)
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
;;; sx-question.el --- question logic for stack-mode -*- lexical-binding: t; -*-
;; Copyright (C) 2014 Sean Allred
;; Author: Sean Allred <code@seanallred.com>
;; 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 'sx)
(require 'sx-filter)
(require 'sx-method)
(defvar sx-question-browse-filter
'((question.body_markdown
question.comments
question.answers
question.last_editor
question.accepted_answer_id
user.display_name
comment.owner
comment.body_markdown
comment.body
answer.last_editor
answer.owner
answer.body_markdown
answer.comments)
(user.profile_image shallow_user.profile_image))
"The filter applied with `sx-question-get-questions' and
`sx-question-get-question'.")
(defun sx-question-get-questions (site &optional page)
"Get the page PAGE of questions from SITE.
Return a list of questions, each consed with (site SITE).
`sx-method-call' is used with `sx-question-browse-filter'."
(mapcar
(lambda (question) (cons (cons 'site site) question))
(sx-method-call
"questions"
`((site . ,site)
(page . ,page))
sx-question-browse-filter)))
(defun sx-question-get-question (site id)
"Query SITE for a question ID and return it.
If ID doesn't exist on SITE, raise an error."
(let ((res (sx-method-call
(format "questions/%s" id)
`((site . ,site))
sx-question-browse-filter)))
(if (vectorp res)
(elt res 0)
(error "Couldn't find question %S in %S" id site))))
;;; Question Properties
(defvar sx-question--user-read-list nil
"Alist of questions read by the user.
Each element has the form
(SITE . QUESTION-LIST)
where each element in QUESTION-LIST has the form
(QUESTION_ID . LAST-VIEWED-DATE).")
(defun sx-question--ensure-read-list (site)
"Ensure `sx-question--user-read-list' has been read from cache.
If no cache exists for it, initialize one with SITE."
(unless sx-question--user-read-list
(setq sx-question--user-read-list
(sx-cache-get 'read-questions `(list ,site)))))
(defun sx-question--read-p (question)
"Non-nil if QUESTION has been read since last updated.
See `sx-question--user-read-list'."
(sx-assoc-let question
(sx-question--ensure-read-list .site)
(let ((ql (cdr (assoc .site sx-question--user-read-list))))
(and ql
(>= (or (cdr (assoc .question_id ql)) 0)
.last_activity_date)))))
(defun sx-question--mark-read (question)
"Mark QUESTION as being read until it is updated again.
See `sx-question--user-read-list'."
(sx-assoc-let question
(sx-question--ensure-read-list .site)
(let ((site-cell (assoc .site sx-question--user-read-list))
(q-cell (cons .question_id .last_activity_date))
cell)
(cond
;; First question from this site.
((null site-cell)
(push (list .site q-cell) sx-question--user-read-list))
;; Question already has an older time.
((setq cell (assoc .question_id site-cell))
(setcdr cell .last_activity_date))
;; Question wasn't present.
(t (setcdr site-cell (cons q-cell (cdr site-cell)))))))
;; Save the results.
(sx-cache-set 'read-questions sx-question--user-read-list))
(defun sx-question--accepted-answer-id (question)
"Return accepted answer in QUESTION or nil if none exists."
(sx-assoc-let question
(and (integerp .accepted_answer_id)
.accepted_answer_id)))
(defun sx-question--tag-format (tag)
"Formats TAG for display."
(concat "[" tag "]"))
(provide 'sx-question)
;;; sx-question.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:
|
