diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el | 146 |
1 files changed, 0 insertions, 146 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el deleted file mode 100644 index 5014723c7cc3..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el +++ /dev/null @@ -1,146 +0,0 @@ -;;; 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-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-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-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))) - -(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 |