about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2019-01-13T19·33-0500
committerWilliam Carroll <wpcarro@gmail.com>2019-01-13T19·45-0500
commit481df5a3855ccd5ea3bf4d5f41ae780f4773b7b4 (patch)
tree3aeb7e20eaba176536cb8d10ba531ac39674fc4a /configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-reaction.el
parent18b9930b8604134f087ca61fe94740b31f94327c (diff)
Remove Emacs spam
My inconsistent git history-keeping is coming to bite me here. At the
moment, I can only speculate about what went wrong here. The gist is
this: I unintentionally committed files that were supposed to be ignored

This commit removes those files which includes:

- auto-save-list
- elpa packages
- quelpa packages
- misc
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.el146
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