about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el249
1 files changed, 0 insertions, 249 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el
deleted file mode 100644
index ba224483e03c..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-im.el
+++ /dev/null
@@ -1,249 +0,0 @@
-;;; slack-im.el ---slack direct message interface    -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015  南優也
-
-;; Author: 南優也 <yuyaminami@minamiyuunari-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 'eieio)
-(require 'slack-util)
-(require 'slack-room)
-(require 'slack-buffer)
-(require 'slack-user)
-(require 'slack-request)
-
-(defvar slack-buffer-function)
-
-(defconst slack-im-history-url "https://slack.com/api/im.history")
-(defconst slack-im-buffer-name "*Slack - Direct Messages*")
-(defconst slack-user-list-url "https://slack.com/api/users.list")
-(defconst slack-im-list-url "https://slack.com/api/im.list")
-(defconst slack-im-close-url "https://slack.com/api/im.close")
-(defconst slack-im-open-url "https://slack.com/api/im.open")
-(defconst slack-im-update-mark-url "https://slack.com/api/im.mark")
-
-(defclass slack-im (slack-room)
-  ((user :initarg :user :initform "")
-   (is-open :initarg :is_open :initform t)
-   (is-user-deleted :initarg :is_user_deleted :initform nil)))
-
-(defmethod slack-merge ((this slack-im) other)
-  (call-next-method)
-  (with-slots (user is-open) this
-    (setq user (oref other user))
-    (setq is-open (oref other is-open))))
-
-(defmethod slack-room-open-p ((room slack-im))
-  (oref room is-open)
-  (not (oref room is-user-deleted)))
-
-(defmethod slack-im-user-presence ((room slack-im) team)
-  (slack-user-presence-to-string (slack-user-find room team)))
-
-(defmethod slack-im-user-dnd-status ((room slack-im) team)
-  (slack-user-dnd-status-to-string (slack-user-find room
-                                                    team)))
-
-(defmethod slack-room-name ((room slack-im) team)
-  (with-slots (user) room
-    (slack-user-name user team)))
-
-(defmethod slack-room-display-name ((room slack-im) team)
-  "To Display emoji in minibuffer configure `emojify-inhibit-in-buffer-functions'"
-  (let* ((status (slack-user-status (oref room user) team))
-         (room-name (or (and status
-                             (format "%s %s"
-                                     (slack-room-name room team)
-                                     status))
-                        (slack-room-name room team))))
-    (if slack-display-team-name
-        (format "%s - %s"
-                (slack-team-name team)
-                room-name)
-      room-name)))
-
-(defun slack-im-user-name (im team)
-  (with-slots (user) im
-    (slack-user-name user team)))
-
-(defun slack-im-names (team)
-  (with-slots (ims) team
-    (slack-room-names ims
-                      team
-                      #'(lambda (ims)
-                          (cl-remove-if #'(lambda (im) (not (oref im is-open)))
-                                        ims)))))
-
-(defmethod slack-room-buffer-name ((room slack-im) team)
-  (concat slack-im-buffer-name
-          " : "
-          (slack-room-display-name room team)))
-
-(defun slack-im-select ()
-  (interactive)
-  (let* ((team (slack-team-select))
-         (candidates (cl-loop for team in (list team)
-                              for ims = (cl-remove-if #'(lambda (im)
-                                                          (not (oref im is-open)))
-                                                      (oref team ims))
-                              nconc ims))
-         (room (slack-room-select candidates team)))
-    (slack-room-display room team)))
-
-(defun slack-user-equal-p (a b)
-  (string= (plist-get a :id) (plist-get b :id)))
-
-(defun slack-user-pushnew (user team)
-  (with-slots (users) team
-    (cl-pushnew user users :test #'slack-user-equal-p)))
-
-(defun slack-im-update-room-list (users team &optional after-success)
-  (cl-labels ((on-update-room-list
-               (&key data &allow-other-keys)
-               (slack-request-handle-error
-                (data "slack-im-update-room-list")
-                (mapc #'(lambda (u) (slack-user-pushnew u team))
-                      (append users nil))
-                (slack-merge-list (oref team ims)
-                                  (mapcar #'(lambda (d)
-                                              (slack-room-create d team 'slack-im))
-                                          (plist-get data :ims)))
-                (if after-success
-                    (funcall after-success team))
-                (slack-request-dnd-team-info team)
-                (mapc #'(lambda (room)
-                          (slack-room-info-request room team))
-                      (oref team ims))
-                (slack-log "Slack Im List Updated" team :level 'info))))
-    (slack-room-list-update slack-im-list-url
-                            #'on-update-room-list
-                            team
-                            :sync nil)))
-
-(defun slack-im-list-update (&optional team after-success)
-  (interactive)
-  (let ((team (or team (slack-team-select))))
-    (cl-labels
-        ((on-list-update
-          (&key data &allow-other-keys)
-          (slack-request-handle-error
-           (data "slack-im-list-update")
-           (let* ((members (append (plist-get data :members) nil)))
-             (slack-im-update-room-list members team after-success)))))
-      (slack-request
-       (slack-request-create
-        slack-user-list-url
-        team
-        :success #'on-list-update)))))
-
-(defmethod slack-room-update-mark-url ((_room slack-im))
-  slack-im-update-mark-url)
-
-(defun slack-im-close ()
-  (interactive)
-  (let* ((team (slack-team-select))
-         (alist (cl-remove-if #'(lambda (im-names)
-                                  (not (oref (cdr im-names) is-open)))
-                              (slack-im-names team))))
-    (slack-select-from-list
-        (alist "Select User: ")
-        (cl-labels
-            ((on-success
-              (&key data &allow-other-keys)
-              (slack-request-handle-error
-               (data "slack-im-close")
-               (if (plist-get data :already_closed)
-                   (let ((im (slack-room-find (oref selected id) team)))
-                     (oset im is-open nil)
-                     (message "Direct Message Channel with %s Already Closed"
-                              (slack-user-name (oref im user) team)))))))
-          (slack-request
-           (slack-request-create
-            slack-im-close-url
-            team
-            :type "POST"
-            :params (list (cons "channel" (oref selected id)))
-            :success #'on-success))))))
-
-(defun slack-im-open (&optional user after-success)
-  (interactive)
-  (let* ((team (slack-team-select))
-         (user (or user (slack-select-from-list
-                            ((slack-user-name-alist
-                              team
-                              :filter #'(lambda (users) (cl-remove-if #'slack-user-hidden-p users)))
-                             "Select User: ")))))
-    (cl-labels
-        ((on-success
-          (&key data &allow-other-keys)
-          (slack-request-handle-error
-           (data "slack-im-open")
-           (if (plist-get data :already_open)
-               (let ((im (slack-room-find (plist-get (plist-get data :channel) :id) team)))
-                 (oset im is-open t)
-                 (message "Direct Message Channel with %s Already Open"
-                          (slack-user-name (oref im user) team))))
-           (when (functionp after-success)
-             (funcall after-success)))))
-      (slack-request
-       (slack-request-create
-        slack-im-open-url
-        team
-        :type "POST"
-        :params (list (cons "user" (plist-get user :id)))
-        :success #'on-success)))))
-
-(defmethod slack-room-label-prefix ((room slack-im) team)
-  (format "%s "
-          (or
-           (slack-im-user-dnd-status room team)
-           (slack-im-user-presence room team))))
-
-(defmethod slack-room-get-info-url ((_room slack-im))
-  slack-im-open-url)
-
-(defmethod slack-room-update-info ((room slack-im) data team)
-  (let ((new-room (slack-room-create (plist-get data :channel)
-                                     team
-                                     'slack-im)))
-
-    (slack-merge room new-room)))
-
-(defmethod slack-room-info-request-params ((room slack-im))
-  (list (cons "user" (oref room user))
-        (cons "return_im" "true")))
-
-(defmethod slack-room-get-members ((room slack-im))
-  (list (oref room user)))
-
-(defun slack-im-find-by-user-id (user-id team)
-  (cl-find-if #'(lambda (im) (string= user-id (oref im user)))
-              (oref team ims)))
-
-(defmethod slack-room-history-url ((_room slack-im))
-  slack-im-history-url)
-
-(defmethod slack-room-replies-url ((_room slack-im))
-  "https://slack.com/api/im.replies")
-
-(provide 'slack-im)
-;;; slack-im.el ends here