diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message.el | 454 |
1 files changed, 454 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message.el new file mode 100644 index 000000000000..11360f47c44b --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message.el @@ -0,0 +1,454 @@ +;;; slack-message.el --- slack-message -*- lexical-binding: t; -*- + +;; Copyright (C) 2015 yuya.minami + +;; Author: yuya.minami <yuya.minami@yuyaminami-no-MacBook-Pro.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 'subr-x) +(require 'slack-util) +(require 'slack-reaction) +(require 'slack-request) +(require 'slack-attachment) + +(defcustom slack-message-custom-delete-notifier nil + "Custom notification function for deleted message.\ntake 3 Arguments.\n(lambda (MESSAGE ROOM TEAM) ...)." + :group 'slack) + +(defconst slack-message-pins-add-url "https://slack.com/api/pins.add") +(defconst slack-message-pins-remove-url "https://slack.com/api/pins.remove") +(defconst slack-message-stars-add-url "https://slack.com/api/stars.add") +(defconst slack-message-stars-remove-url "https://slack.com/api/stars.remove") + +(defclass slack-message () + ((type :initarg :type :type string) + (subtype :initarg :subtype) + (channel :initarg :channel :initform nil) + (ts :initarg :ts :type string :initform "") + (text :initarg :text :type (or null string) :initform nil) + (item-type :initarg :item_type) + (attachments :initarg :attachments :type (or null list) :initform nil) + (reactions :initarg :reactions :type (or null list)) + (is-starred :initarg :is_starred :type boolean :initform nil) + (pinned-to :initarg :pinned_to :type (or null list)) + (deleted-at :initarg :deleted-at :initform nil) + (thread :initarg :thread :initform nil) + (thread-ts :initarg :thread_ts :initform nil) + (hide :initarg :hide :initform nil) + (files :initarg :files :initform '()) + (edited :initarg :edited :initform nil) + (is-ephemeral :initarg :is_ephemeral :initform nil))) + +(defclass slack-message-edited () + ((user :initarg :user :type string) + (ts :initarg :ts :type string))) + +(defclass slack-reply (slack-message) + ((user :initarg :user :initform nil) + (reply-to :initarg :reply_to :type integer) + (id :initarg :id :type integer))) + +(defclass slack-user-message (slack-message) + ((user :initarg :user :type string) + (id :initarg :id) + (inviter :initarg :inviter))) + +(defclass slack-reply-broadcast-message (slack-user-message) + ((broadcast-thread-ts :initarg :broadcast_thread_ts :initform nil))) + +(defclass slack-bot-message (slack-message) + ((bot-id :initarg :bot_id :type string) + (username :initarg :username :type string :initform "") + (icons :initarg :icons))) + +(defclass slack-file-comment-message (slack-message) + ((file :initarg :file :initform nil) + (comment :initarg :comment :initform nil))) + +(defmethod slack-message-sender-name ((m slack-file-comment-message) team) + (with-slots (comment) m + (slack-user-name (plist-get comment :user) team))) + +(defmethod slack-message-sender-id ((m slack-file-comment-message)) + (with-slots (comment) m + (plist-get comment :user))) + +(defgeneric slack-message-sender-name (slack-message team)) +(defgeneric slack-message-to-string (slack-message)) +(defgeneric slack-message-to-alert (slack-message)) +(defmethod slack-message-bot-id ((_this slack-message)) nil) + +(defgeneric slack-room-buffer-name (room team)) + +(defun slack-room-find (id team) + (if (and id team) + (cl-labels ((find-room (room) + (string= id (oref room id)))) + (cond + ((string-prefix-p "F" id) (slack-file-room-obj team)) + ((string-prefix-p "C" id) (cl-find-if #'find-room + (oref team channels))) + ((string-prefix-p "G" id) (cl-find-if #'find-room + (oref team groups))) + ((string-prefix-p "D" id) (cl-find-if #'find-room + (oref team ims))) + ((string-prefix-p "Q" id) (cl-find-if #'find-room + (oref team search-results))))))) + +(defun slack-reaction-create (payload) + (apply #'slack-reaction "reaction" + (slack-collect-slots 'slack-reaction payload))) + +(defmethod slack-message-set-attachments ((m slack-message) payload) + (let ((attachments (append (plist-get payload :attachments) nil))) + (if (< 0 (length attachments)) + (oset m attachments + (mapcar #'slack-attachment-create attachments)))) + m) + +(defmethod slack-message-set-file ((m slack-message) payload team) + (let ((files (mapcar #'(lambda (file) (slack-file-create file)) + (plist-get payload :files)))) + (oset m files files) + m)) + +(defmethod slack-message-set-thread ((m slack-message) team payload) + (when (slack-message-thread-parentp m) + (oset m thread (slack-thread-create m team payload)))) + +(defun slack-reply-broadcast-message-create (payload) + (let ((parent (cl-first (plist-get payload :attachments)))) + (plist-put payload :broadcast_thread_ts (plist-get parent :ts)) + (apply #'slack-reply-broadcast-message "reply-broadcast" + (slack-collect-slots 'slack-reply-broadcast-message payload)))) + +(cl-defun slack-message-create (payload team &key room) + (when payload + (plist-put payload :reactions (append (plist-get payload :reactions) nil)) + (plist-put payload :attachments (append (plist-get payload :attachments) nil)) + (plist-put payload :pinned_to (append (plist-get payload :pinned_to) nil)) + (if room + (plist-put payload :channel (oref room id))) + (cl-labels + ((create-message + (payload) + (let ((subtype (plist-get payload :subtype))) + (cond + ((plist-member payload :reply_to) + (apply #'slack-reply "reply" + (slack-collect-slots 'slack-reply payload))) + ((or (and subtype (or (string-equal "reply_broadcast" subtype) + (string= "thread_broadcast" subtype))) + (plist-get payload :reply_broadcast)) + (slack-reply-broadcast-message-create payload)) + ((and (plist-member payload :user) (plist-get payload :user)) + (apply #'slack-user-message "user-msg" + (slack-collect-slots 'slack-user-message payload))) + ((and subtype (string= "bot_message" subtype)) + (apply #'slack-bot-message "bot-msg" + (slack-collect-slots 'slack-bot-message payload))) + ((and subtype (string= "file_comment" subtype)) + (apply #'slack-file-comment-message "file_comment" + (slack-collect-slots 'slack-file-comment-message payload))) + (t (progn + (slack-log (format "Unknown Message Type: %s" payload) + team :level 'warn) + (apply #'slack-message "unknown message" + (slack-collect-slots 'slack-message payload)))))))) + + (let ((message (create-message payload))) + (when message + (slack-message-set-edited message payload) + (slack-message-set-attachments message payload) + (oset message reactions + (mapcar #'slack-reaction-create (plist-get payload :reactions))) + (slack-message-set-file message payload team) + (slack-message-set-thread message team payload) + message))))) + +(defmethod slack-message-set-edited ((this slack-message) payload) + (if (plist-get payload :edited) + (oset this edited (apply #'make-instance slack-message-edited + (slack-collect-slots 'slack-message-edited + (plist-get payload :edited)))))) + +(defmethod slack-message-edited-at ((this slack-message)) + (with-slots (edited) this + (when edited + (oref edited ts)))) + +(defmethod slack-message-equal ((m slack-message) n) + (string= (slack-ts m) (slack-ts n))) + +(defmethod slack-message-get-thread ((parent slack-message) team) + (let ((thread (oref parent thread))) + (unless thread + (oset parent thread (slack-thread-create parent team))) + (oref parent thread))) + +(defmethod slack-message-sender-name ((m slack-message) team) + (slack-user-name (oref m user) team)) + +(defmethod slack-message-sender-id ((m slack-message)) + (oref m user)) + +(defun slack-message-pins-add () + (interactive) + (slack-if-let* ((buf slack-current-buffer)) + (slack-buffer-pins-add buf (slack-get-ts)))) + +(defun slack-message-pins-remove () + (interactive) + (slack-if-let* ((buf slack-current-buffer)) + (slack-buffer-pins-remove buf (slack-get-ts)))) + +(defun slack-message-pins-request (url room team ts) + (cl-labels ((on-pins-add + (&key data &allow-other-keys) + (slack-request-handle-error + (data "slack-message-pins-request")))) + (slack-request + (slack-request-create + url + team + :params (list (cons "channel" (oref room id)) + (cons "timestamp" ts)) + :success #'on-pins-add + )))) + +(defmethod slack-ts ((this slack-message)) + (oref this ts)) + +(defun slack-ts-to-time (ts) + (seconds-to-time (string-to-number ts))) + +(defun slack-message-time-stamp (message) + (slack-ts-to-time (slack-ts message))) + +(defmethod slack-user-find ((m slack-message) team) + (slack-user--find (slack-message-sender-id m) team)) + +(defun slack-message-copy-link () + (interactive) + (slack-buffer-copy-link slack-current-buffer (slack-get-ts))) + +(defmethod slack-message-star-added ((m slack-message)) + (oset m is-starred t)) + +(defmethod slack-message-star-removed ((m slack-message)) + (oset m is-starred nil)) + +(defun slack-message-star-api-request (url params team) + (cl-labels + ((on-success (&key data &allow-other-keys) + (slack-request-handle-error + (data url)))) + (slack-request + (slack-request-create + url + team + :params params + :success #'on-success)))) + +(defun slack-message-remove-star () + (interactive) + (slack-buffer-remove-star slack-current-buffer (slack-get-ts))) + +(defun slack-message-add-star () + (interactive) + (slack-buffer-add-star slack-current-buffer (slack-get-ts))) + +(defmethod slack-message-star-api-params ((m slack-message)) + (cons "timestamp" (slack-ts m))) + +(defmethod slack-reaction-delete ((this slack-message) reaction) + (with-slots (reactions) this + (setq reactions (slack-reaction--delete reactions reaction)))) + +(defmethod slack-reaction-push ((this slack-message) reaction) + (push reaction (oref this reactions))) + +(defmethod slack-reaction-find ((m slack-message) reaction) + (slack-reaction--find (oref m reactions) reaction)) + +(defmethod slack-message-reactions ((this slack-message)) + (oref this reactions)) + +(defmethod slack-message-get-param-for-reaction ((m slack-message)) + (cons "timestamp" (slack-ts m))) + +(defmethod slack-message-append-reaction ((m slack-message) reaction &optional _type _file-id) + (slack-if-let* ((old-reaction (slack-reaction-find m reaction))) + (slack-reaction-join old-reaction reaction) + (slack-reaction-push m reaction))) + +(defmethod slack-message-pop-reaction ((m slack-message) reaction &optional _type _file-id) + (slack-message--pop-reaction m reaction)) + +(defun slack-message--pop-reaction (message reaction) + (let* ((old-reaction (slack-reaction-find message reaction)) + (decl-p (< 1 (oref old-reaction count)))) + (if decl-p + (with-slots (count users) old-reaction + (cl-decf count) + (setq users (cl-remove-if + #'(lambda (old-user) + (cl-find old-user + (oref reaction users) + :test #'string=)) + users))) + (slack-reaction-delete message reaction)))) + +(defmethod slack-message-get-text ((m slack-message)) + (oref m text)) + +(defmethod slack-thread-message-update-buffer ((message slack-message) + room team replace) + (slack-if-let* ((parent (slack-room-find-thread-parent room message))) + (progn + (slack-room-update-buffer room team parent t) + (if (slack-reply-broadcast-message-p message) + (slack-room-update-buffer room team message replace)) + (slack-if-let* ((thread (slack-message-get-thread parent team))) + (progn + (slack-if-let* ((buf (slack-buffer-find 'slack-thread-message-buffer + room + (oref thread thread-ts) + team))) + (slack-buffer-update buf message :replace replace))))))) + +(defmethod slack-message-update ((message slack-message) team &optional replace no-notify) + (slack-if-let* + ((room (slack-room-find (oref message channel) team)) + (ts (slack-ts message)) + (no-same-message (if replace t + (not (slack-room-find-message room ts))))) + + (progn + (slack-room-push-message room message) + (slack-room-update-latest room message) + (if (slack-thread-message-p message) + (slack-thread-message-update-buffer message room team replace) + (slack-room-update-buffer room team message replace) + (slack-room-inc-unread-count room)) + + (unless no-notify + (slack-message-notify message room team)) + (slack-update-modeline)))) + +(defun slack-message-delete () + (interactive) + (slack-if-let* ((buf slack-current-buffer)) + (slack-buffer-delete-message buf (slack-get-ts)))) + +(defmethod slack-message-deleted ((message slack-message) room team) + (if (slack-thread-message-p message) + (slack-if-let* ((parent (slack-room-find-thread-parent room message)) + (thread (slack-message-get-thread parent team))) + (progn + (slack-thread-delete-message thread message) + (slack-if-let* ((buffer (slack-buffer-find 'slack-thread-message-buffer + room + (oref thread thread-ts) + team))) + (slack-buffer-message-delete buffer (slack-ts message))) + (slack-message-update parent team t))) + (slack-if-let* ((buf (slack-buffer-find 'slack-message-buffer + room + team))) + (slack-buffer-message-delete buf (slack-ts message)))) + + (if slack-message-custom-delete-notifier + (funcall slack-message-custom-delete-notifier message room team) + (alert "message deleted" + :icon slack-alert-icon + :title (format "\\[%s] from %s" + (slack-room-display-name room team) + (slack-message-sender-name message team)) + :category 'slack))) + +(defmethod slack-message-changed--copy ((this slack-message) other) + (let ((changed nil)) + (with-slots (text attachments edited) this + (unless (string= text (oref other text)) + (setq text (oref other text)) + (setq changed t)) + (setq attachments (oref other attachments)) + (setq edited (oref other edited))) + changed)) + +(defmethod slack-thread-message-p ((this slack-message)) + (and (oref this thread-ts) + (not (string= (slack-ts this) (oref this thread-ts))))) + +(defmethod slack-thread-message-p ((this slack-reply-broadcast-message)) + (call-next-method)) + +(defmethod slack-message-thread-parentp ((m slack-message)) + (let* ((thread (oref m thread)) + (thread-ts (or (and thread (oref thread thread-ts)) + (oref m thread-ts)))) + (and thread-ts (string= (slack-ts m) thread-ts)))) + +(defun slack-message-update-mark () + "Update Channel's last-read marker to this message." + (interactive) + (slack-if-let* ((buffer slack-current-buffer)) + (slack-buffer-update-mark buffer :force t))) + +(defmethod slack-message--inspect ((this slack-message) room team) + (format "RAW: %s\nROOM: %s\nMESSAGE: %s\nATTACHMENTS: %s - %s\nFILES: %s - %s" + (oref this text) + (oref room id) + (eieio-object-class this) + (length (oref this attachments)) + (mapcar (lambda (e) (format "\n(TITLE: %s\nPRETEXT: %s\nTEXT: %s)" + (slack-message-unescape-channel + (oref e title) + team) + (oref e pretext) + (oref e text))) + (oref this attachments)) + (length (oref this files)) + (mapcar (lambda (e) (format "(TITLE: %s)" + (oref e title))) + (oref this files)))) + +(defmethod slack-message--inspect ((this slack-file-comment-message) room team) + (let ((super (call-next-method))) + (with-slots (file comment) this + (format "%s\nFILE:%s\nCOMMENT:%s" + super + file comment)))) + +(defun slack-message-inspect () + (interactive) + (slack-if-let* ((ts (slack-get-ts)) + (buffer slack-current-buffer)) + (with-slots (room team) buffer + (slack-if-let* ((message (slack-room-find-message room ts)) + (text (slack-message--inspect message room team))) + (message "%s" text))))) + +(provide 'slack-message) +;;; slack-message.el ends here |