diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el | 168 |
1 files changed, 168 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el new file mode 100644 index 0000000000..0fa0d14aa6 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el @@ -0,0 +1,168 @@ +;;; slack-message-reaction.el --- adding, removing reaction from 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 'slack-util) +(require 'slack-message) +(require 'slack-reaction) +(require 'slack-room) +(require 'slack-file) +(require 'slack-request) + +(defconst slack-message-reaction-add-url "https://slack.com/api/reactions.add") +(defconst slack-message-reaction-remove-url "https://slack.com/api/reactions.remove") +(defcustom slack-invalid-emojis '("^:flag_" "tone[[:digit:]]:$" "-" "^[^:].*[^:]$" "\\Ca") + "Invalid emoji regex. Slack server treated some emojis as Invalid." + :group 'slack) + +(defun slack-file-comment-add-reaction (file-comment-id reaction team) + (slack-message-reaction-add-request (list (cons "name" reaction) + (cons "file_comment" file-comment-id)) + team)) + +(defun slack-get-file-comment-id () + (get-text-property 0 'file-comment-id (thing-at-point 'line))) + +(defun slack-get-file-id () + (get-text-property 0 'file-id (thing-at-point 'line))) + +(defun slack-file-add-reaction (file-id reaction team) + (slack-message-reaction-add-request (list (cons "name" reaction) + (cons "file" file-id)) + team)) + +(defun slack-message--add-reaction (buf reaction) + (slack-if-let* ((file-comment-id (slack-get-file-comment-id))) + (slack-buffer-add-reaction-to-file-comment buf reaction file-comment-id) + (slack-buffer-add-reaction-to-message buf reaction (slack-get-ts)))) + +(defun slack-message-add-reaction () + (interactive) + (slack-if-let* ((buf slack-current-buffer) + (reaction (slack-message-reaction-input))) + (slack-message--add-reaction buf reaction))) + +(defun slack-file-comment-remove-reaction (file-comment-id file-id team) + (slack-with-file file-id team + (slack-with-file-comment file-comment-id file + (let ((reaction (slack-message-reaction-select + (slack-message-reactions file-comment)))) + (slack-message-reaction-remove-request + (list (cons "file_comment" file-comment-id) + (cons "name" reaction)) + team))))) + +(defun slack-file-remove-reaction (file-id team) + (slack-with-file file-id team + (let ((reaction (slack-message-reaction-select + (slack-message-reactions file)))) + (slack-message-reaction-remove-request + (list (cons "file" file-id) + (cons "name" reaction)) + team)))) + +(defun slack-message-remove-reaction () + (interactive) + (slack-buffer-remove-reaction-from-message + slack-current-buffer + (slack-get-ts) + (slack-get-file-comment-id))) + +(defun slack-message-show-reaction-users () + (interactive) + (slack-if-let* ((buf slack-current-buffer)) + (with-slots (team) buf + (slack-if-let* ((reaction (ignore-errors + (get-text-property (point) + 'reaction)))) + (let ((user-names (slack-reaction-user-names reaction + team))) + (message "reacted users: %s" + (mapconcat #'identity user-names ", "))) + (message "Can't get reaction:"))))) + +(defun slack-message-reaction-select (reactions) + (let ((list (mapcar #'(lambda (r) + (cons (oref r name) + (oref r name))) + reactions))) + (slack-select-from-list + (list "Select Reaction: ") + selected))) + +(defun slack-select-emoji () + (if (fboundp 'emojify-completing-read) + (emojify-completing-read "Select Emoji: ") + (read-from-minibuffer "Emoji: "))) + +(defun slack-message-reaction-input () + (let ((reaction (slack-select-emoji))) + (if (and (string-prefix-p ":" reaction) + (string-suffix-p ":" reaction)) + (substring reaction 1 -1) + reaction))) + +(defun slack-message-reaction-add (reaction ts room team) + (slack-if-let* ((message (slack-room-find-message room ts))) + (let ((params (list (cons "channel" (oref room id)) + (slack-message-get-param-for-reaction message) + (cons "name" reaction)))) + (slack-message-reaction-add-request params team)))) + +(defun slack-message-reaction-add-request (params team) + (cl-labels ((on-reaction-add + (&key data &allow-other-keys) + (slack-request-handle-error + (data "slack-message-reaction-add-request")))) + (slack-request + (slack-request-create + slack-message-reaction-add-url + team + :type "POST" + :params params + :success #'on-reaction-add)))) + +(defun slack-message-reaction-remove (reaction ts room team) + (slack-if-let* ((message (slack-room-find-message room ts))) + (let ((params (list (cons "channel" (oref room id)) + (slack-message-get-param-for-reaction message) + (cons "name" reaction)))) + (slack-message-reaction-remove-request params team)))) + +(defun slack-message-reaction-remove-request (params team) + (cl-labels ((on-reaction-remove + (&key data &allow-other-keys) + (slack-request-handle-error + (data "slack-message-reaction-remove-request")))) + (slack-request + (slack-request-create + slack-message-reaction-remove-url + team + :type "POST" + :params params + :success #'on-reaction-remove)))) + +(provide 'slack-message-reaction) +;;; slack-message-reaction.el ends here |