mgdelacroix/mattermost.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add internal user plist and use it to print usernames

Browse source
This commit is contained in:
Miguel de la Cruz 2022-05-22 20:09:12 +02:00
parent c72317202f
commit a0a752d6bd
1 changed files with 39 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
mattermost.el
View file

@ -19,6 +19,15 @@
:group 'mattermost :group 'mattermost
:type 'string) :type 'string)
(defvar mattermost-users-plist '()
"A plist with the server users by id")
(defvar mattermost-token nil
"The user token to access the server")
(defvar mattermost-user-id nil
"The ID of the authenticated user")
(setq mattermost-server-url "https://chat.ctrlz.es") (setq mattermost-server-url "https://chat.ctrlz.es")
;; ToDo: probably not the best way to get a keyword from a string ;; ToDo: probably not the best way to get a keyword from a string
@ -34,6 +43,25 @@
(goto-char url-http-end-of-headers) (goto-char url-http-end-of-headers)
(json-read))) (json-read)))
(defun mattermost-print-post (post)
"Prints the post in the current buffer"
(let* ((msg (plist-get post :message))
;; ToDo: convert to a readable date
;; (update-at (plist-get post :update_at))
(user-id (plist-get post :user_id))
(user (mattermost--get-user user-id))
(username (plist-get user :username)))
(insert (format "[%s] %s\n" username msg))))
(defun mattermost--get-user (user-id)
"Returns the user from the internal cache or fetches it first"
(let* ((user-id-keyword (mattermost-string->keyword user-id))
(user (plist-get mattermost-users-plist user-id-keyword)))
(if (not user)
(let ((user (mattermost-get-user user-id)))
(setq mattermost-users-plist (plist-put mattermost-users-plist user-id-keyword user)))
user)))
;; ToDo: once mattermost-request parses headers, use it to fetch both ;; ToDo: once mattermost-request parses headers, use it to fetch both
;; the user (set the id to a local var) and the headers (set the ;; the user (set the id to a local var) and the headers (set the
;; token) ;; token)
@ -47,7 +75,6 @@
(search-forward "Token: ") (search-forward "Token: ")
(let ((token (word-at-point)) (let ((token (word-at-point))
(response (mattermost-parse-json))) (response (mattermost-parse-json)))
;; ToDo: define these as local vars somehow
(setq mattermost-token token) (setq mattermost-token token)
(setq mattermost-user-id (plist-get response :id)) (setq mattermost-user-id (plist-get response :id))
token)))) token))))
@ -63,6 +90,10 @@
(with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4" url) t) (with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4" url) t)
(mattermost-parse-json)))) (mattermost-parse-json))))
(defun mattermost-get-user (user-id)
"Returns the user information"
(mattermost-request "GET" (format "/users/%s" user-id)))
(defun mattermost-get-teams () (defun mattermost-get-teams ()
"Returns the user's team list" "Returns the user's team list"
(mattermost-request "GET" "/teams")) (mattermost-request "GET" "/teams"))
@ -94,19 +125,18 @@
channel-name channel-name
channel-display-name))))))))) channel-display-name)))))))))
;; ToDo: remove
(setq msgs (mattermost-get-channel-messages "68w17u1da7yg7enayudjjqqwse")) (setq msgs (mattermost-get-channel-messages "68w17u1da7yg7enayudjjqqwse"))
(car (plist-get msgs :posts)) (car (plist-get msgs :posts))
(with-current-buffer (get-buffer-create "*Town Square*") (with-current-buffer (get-buffer-create "*Town Square*")
(erase-buffer) (erase-buffer)
(dolist (msgid (plist-get msgs :order)) (let ((posts (plist-get msgs :posts))
(let* ((posts (plist-get msgs :posts)) (order (plist-get msgs :order)))
(post (plist-get posts (mattermost-string->keyword msgid))) (dolist (msgid order)
(user-id (plist-get post :user_id)) (let* ((msgid-keyword (mattermost-string->keyword msgid))
(message (plist-get post :message)) (post (plist-get posts msgid-keyword)))
(update-at (plist-get post :update_at))) (mattermost-print-post post)))))
(insert (format "[%s %s] %s\n" user-id update-at message)))))
(provide 'mattermost) (provide 'mattermost)
;;; mattermost.el ends here ;;; mattermost.el ends here