blob: fbe3af0c93307faa6849eac89692f6d78cb51b21 (
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
;;; slack-stars.el --- -*- lexical-binding: t; -*-
;; Copyright (C) 2017 南優也
;; Author: 南優也 <yuyaminami@minamiyuuya-no-MacBook.local>
;; Keywords:
;; 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 'eieio)
(require 'slack-util)
(require 'slack-request)
(defconst slack-stars-list-url "https://slack.com/api/stars.list")
(defclass slack-star ()
((paging :initarg :paging :type slack-star-paging)
(items :initarg :items :type (or null list) :initform nil)))
(defclass slack-star-paging ()
((per-page :initarg :per-page :type number)
(spill :initarg :spill :type number) ;; ??
(total :initarg :total :type number)
(page :initarg :page :type number)
(pages :initarg :pages :type number)))
(defclass slack-star-item ()
((date-create :initarg :date-create :type string)))
(defclass slack-star-message (slack-star-item)
((channel :initarg :channel :type string)
(message :initarg :message :type slack-message)))
(defclass slack-star-file (slack-star-item)
((file :initarg :file :type slack-file)))
(defclass slack-star-channel (slack-star-item) ;; Ch ??
((channel :initarg :channel :type string))) ;; ID
(defclass slack-star-group (slack-star-item) ;; Gh ??
((group :initarg :group :type string))) ;; ID
(defclass slack-star-im (slack-star-item) ;; Dh ??
((channel :initarg :channel :type string))) ;; ID
(defmethod slack-star-item-message ((this slack-star-message))
(oref this message))
(defmethod slack-star-item-message ((this slack-star-file))
(oref this file))
(defmethod slack-ts ((this slack-star-item))
(oref this date-create))
(defmethod slack-next-page ((this slack-star-paging))
(with-slots (pages page) this
(unless (< pages (1+ page))
(1+ page))))
(defmethod slack-star-has-next-page-p ((this slack-star))
(slack-next-page (oref this paging)))
(defmethod slack-per-page ((this slack-star-paging))
(oref this per-page))
(defmethod slack-star-per-page ((this slack-star))
(slack-per-page (oref this paging)))
(defmethod slack-star-items ((this slack-star))
(oref this items))
(defmethod slack-merge ((old slack-star) new)
(with-slots (paging items) old
(setq paging (oref new paging))
(setq items (append (oref new items) items))))
(defmethod slack-to-string ((this slack-star-message) team)
(with-slots (message) this
(slack-message-to-string message team)))
(defmethod slack-to-string ((this slack-star-file) team)
(with-slots (date-create file) this
(slack-message-to-string file date-create team)))
(defun slack-create-star-paging (payload)
;; (:per_page 20 :spill 0 :page 1 :total 61 :pages 4)
(make-instance 'slack-star-paging
:per-page (plist-get payload :per_page)
:spill (plist-get payload :spill)
:page (plist-get payload :page)
:total (plist-get payload :total)
:pages (plist-get payload :pages)
))
(defun slack-create-star-items (payload team)
(mapcar #'(lambda (e) (slack-create-star-item e team))
payload))
(defun slack-create-star-item (payload team)
(let* ((type (plist-get payload :type))
(date-create (format "%s" (plist-get payload :date_create)))
(file-payload (plist-get payload :file))
(file (and file-payload
(if (or (slack-file-p file-payload)
(slack-file-email-p file-payload))
file-payload
(slack-file-create file-payload))))
(file-id (and file (oref file id))))
(cond
((string= type "message")
(make-instance 'slack-star-message
:date-create date-create
:channel (plist-get payload :channel)
:message (slack-message-create (plist-get payload :message)
team)))
((string= type "file")
(make-instance 'slack-star-file
:date-create date-create
:file file))
((string= type "channel")
(make-instance 'slack-star-channel
:date-create date-create
:channel (plist-get payload :channel)))
((string= type "im")
(make-instance 'slack-star-im
:date-create date-create
:channel (plist-get payload :channel)))
((string= type "group")
(make-instance 'slack-star-group
:date-create date-create
:group (plist-get payload :group))))))
;; (:per_page 20 :spill 0 :page 1 :total 61 :pages 4)
(defun slack-create-star-paging (payload)
(make-instance 'slack-star-paging
:per-page (plist-get payload :per_page)
:spill (plist-get payload :spill)
:page (plist-get payload :page)
:total (plist-get payload :total)
:pages (plist-get payload :pages)))
(defun slack-create-star (payload team)
(let ((items (slack-create-star-items (plist-get payload :items)
team))
(paging (slack-create-star-paging (plist-get payload :paging))))
(make-instance 'slack-star
:items (reverse items)
:paging paging)))
(defun slack-stars-list-request (team &optional page after-success)
(cl-labels
((on-success (&key data &allow-other-keys)
(slack-request-handle-error
(data "slack-stars-list-request")
(let ((star (slack-create-star data team)))
(if (oref team star)
(if page
(slack-merge (oref team star) star)
(oset team star star))
(oset team star star)))
(if after-success
(funcall after-success)))))
(slack-request
(slack-request-create
slack-stars-list-url
team
:type "POST"
:data (list (cons "exclude" "Ch,Gh,Dh")
(cons "count" "20")
(cons "page" (number-to-string (or page 1))))
:success #'on-success))))
(defun slack-stars-list ()
(interactive)
(let* ((team (slack-team-select))
(buf (slack-buffer-find 'slack-stars-buffer team)))
(if buf (slack-buffer-display buf)
(slack-stars-list-request
team nil
#'(lambda () (slack-buffer-display (slack-create-stars-buffer team)))))))
(defmethod slack-message-star-api-params ((this slack-star-item))
(list (slack-message-star-api-params (slack-star-item-message this))))
(defmethod slack-message-star-api-params ((this slack-star-message))
(append (list (cons "channel" (oref this channel)))
(call-next-method)))
(defmethod slack-star-remove-star ((this slack-star) ts team)
(slack-if-let* ((item (cl-find-if #'(lambda (e) (string= (oref e date-create) ts))
(oref this items))))
(slack-message-star-api-request slack-message-stars-remove-url
(slack-message-star-api-params item)
team)))
(defmethod slack-star-remove ((this slack-star) payload team)
(let ((date-create (format "%s" (plist-get payload :date_create))))
(oset this items (cl-remove-if #'(lambda (e) (string= (slack-ts e)
date-create))
(oref this items)))
(slack-if-let* ((buffer (slack-buffer-find 'slack-stars-buffer team)))
(slack-buffer-message-delete buffer date-create))))
(defmethod slack-star-add ((this slack-star) payload team)
(setq payload (append payload nil))
(cl-labels
((create-star (payload)
(slack-create-star-item payload team))
(append-star-item (item)
(oset this items (append (oref this items) (list item))))
(insert-to-buffer (item)
(slack-if-let* ((buffer (slack-buffer-find 'slack-stars-buffer
team)))
(with-current-buffer (slack-buffer-buffer buffer)
(slack-buffer-insert buffer item)))))
(if (plist-get payload :file)
(cl-labels
((insert-star (payload file)
(let ((item (create-star (plist-put payload :file file))))
(append-star-item item)
(insert-to-buffer item))))
(let ((file-id (plist-get (plist-get payload :file) :id)))
(slack-if-let* ((file (slack-file-find file-id team)))
(insert-star payload file)
(slack-file-request-info file-id 1 team
#'(lambda (file _team)
(insert-star payload file))))))
(let ((item (create-star payload)))
(append-star-item item)
(insert-to-buffer item)))))
(provide 'slack-star)
;;; slack-stars.el ends here
|
