blob: 7debf4f51aa8e39f6a7b40b247376fba361e21d6 (
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
|
;;; 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-lto)
(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)))
(defun sx-question-get-questions (site &optional page)
"Get the page PAGE of questions from SITE."
(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)
"Get the question ID from SITE."
(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).
And each element in QUESTION-LIST has the form (QUESTION_ID . LAST-VIEWED-DATE).")
(defun sx-question--ensure-read-list ()
"Ensure the `sx-question--user-read-list' has been read from cache."
(unless sx-question--user-read-list
(setq sx-question--user-read-list
(sx-cache-get 'read-questions))))
(defun sx-question--read-p (question)
"Non-nil if QUESTION has been read since last updated."
(sx-question--ensure-read-list)
(sx-assoc-let question
(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."
(sx-question--ensure-read-list)
(sx-assoc-let question
(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."
(sx-assoc-let question
(and (integerp .accepted_answer_id)
.accepted_answer_id)))
(defun sx-question--< (property x y &optional pred)
"Non-nil if PROPERTY attribute of question X is less than that of Y.
With optional argument predicate, use it instead of `<'."
(funcall (or pred #'<)
(cdr (assoc property x))
(cdr (assoc property y))))
(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:
|
