tvl-depot/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-message-reaction.el

169 lines
6.3 KiB
EmacsLisp
Raw Normal View History

;;; 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