1 files changed, 122 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-slash-commands.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-slash-commands.el
new file mode 100644
index 000000000000..ed554fe2b2d3
--- /dev/null
+++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-slash-commands.el
@@ -0,0 +1,122 @@
+;;; slack-slash-commands.el ---                      -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2017
+
+;; Author:  <yuya373@yuya373>
+;; 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:
+(defvar slack-slash-commands-map
+  '(("active" . slack-slash-commands-active)
+    ("away" . slack-slash-commands-away)
+    ("dnd" . slack-slash-commands-dnd)
+    ("leave" . slack-slash-commands-leave)
+    ("join" . slack-slash-commands-join)
+    ("remind" . slack-slash-commands-remind)
+    ("shrug" . slack-slash-commands-shrug)
+    ("status" . slack-slash-commands-status)
+    ("who" . slack-slash-commands-who)
+    ("dm" . slack-slash-commands-dm)))
+
+(defvar slack-slash-commands-available
+  (mapcar #'car slack-slash-commands-map))
+
+(defun slack-slash-commands-parse (text)
+  (if (string-prefix-p "/" text)
+      (let* ((maybe-command (car (split-string (substring text 1) " ")))
+             (command (cl-find maybe-command slack-slash-commands-available
+                               :test #'string=)))
+        (when command
+          (cons command (cdr (split-string text " ")))))))
+
+(defun slack-slash-commands-find (command)
+  (cdr (cl-assoc command slack-slash-commands-map :test #'string=)))
+
+(defun slack-slash-commands-execute (command team)
+  (let ((command (car command))
+        (args (cdr command)))
+    (funcall (slack-slash-commands-find command) team args)))
+
+(defun slack-slash-commands-active (team _args)
+  ;; https://api.slack.com/docs/presence-and-status#user_presence
+  ;; Setting presence back to auto indicates that the automatic status should be used instead. There's no way to force a user status to active.
+  (slack-request-set-presence team "auto"))
+
+(defun slack-slash-commands-away (team _args)
+  (slack-request-set-presence team))
+
+(defun slack-slash-commands-leave (team _args)
+  (slack-channel-leave team t))
+
+(defun slack-slash-commands-join (team _args)
+  (slack-channel-join team t))
+
+(defun slack-slash-commands-remind (team _args)
+  (slack-reminder-add team))
+
+(defun slack-slash-commands-dnd (team args)
+  "[some description of time, see `slack-parse-time-string']"
+  (let ((time (car args))
+        (user (slack-user--find (oref team self-id) team)))
+    (if (or (not (slack-user-dnd-in-range-p user))
+            time)
+        (slack-request-dnd-set-snooze team time)
+      (slack-request-dnd-end-dnd team))))
+;; ¯\_(ツ)_/¯
+(defun slack-slash-commands-shrug (_team messages)
+  "[your message]"
+  (slack-message--send (format "%s ¯\\_(ツ)_/¯"
+                               (mapconcat #'identity messages " "))))
+
+(defun slack-slash-commands-status (team args)
+  "[clear] or [:your_new_status_emoji:] [your new status message]"
+  (let ((emoji (car args))
+        (text (cdr args)))
+    (if (string= emoji "clear")
+        (slack-user-set-status-request team "" "")
+      (if (string-prefix-p ":" emoji)
+          (slack-user-set-status-request team emoji (mapconcat #'identity text " "))
+        (slack-user-set-status-request team "" (mapconcat #'identity args " "))))))
+
+(defun slack-slash-commands-who (_team _args)
+  (slack-room-user-select))
+
+(defun slack-slash-commands-dm (team args)
+  "@user [your message]"
+  (let* ((user-name (substring (car args) 1))
+         (text (mapconcat #'identity (cdr args) " "))
+         (user (slack-user-find-by-name user-name team)))
+    (unless user
+      (error "Invalid user name: %s" (car args)))
+    (cl-labels
+        ((send-message
+          ()
+          (slack-message-send-internal
+           text
+           (oref (slack-im-find-by-user-id (plist-get user :id)
+                                           team)
+                 id)
+           team)))
+      (if (slack-im-find-by-user-id (plist-get user :id) team)
+          (send-message)
+        (slack-im-open user #'send-message)))))
+
+(provide 'slack-slash-commands)
+;;; slack-slash-commands.el ends here