diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/helm-slack.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/helm-slack.el | 201 |
1 files changed, 0 insertions, 201 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/helm-slack.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/helm-slack.el deleted file mode 100644 index 8ee39d4b948b..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/helm-slack.el +++ /dev/null @@ -1,201 +0,0 @@ -;;; helm-slack.el --- -*- lexical-binding: t; -*- - -;; Copyright (C) 2018 - -;; 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 <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; - -;;; Code: - -(require 'helm) -(require 'slack-team) -(require 'slack-room-info-buffer) -(require 'slack-conversations) -(require 'slack-user-profile-buffer) - -(defvar helm-slack-actions - (helm-make-actions - "Display channel" #'helm-slack-display-room - "Archive channel" #'helm-slack-archive-room - "Invite user to channel" #'helm-slack-invite-to-room - "Kick user from channel" #'helm-slack-kick-from-room - "List user in channel" #'helm-slack-list-member-in-room - "Join channel" #'helm-slack-join-room - "Leave channel" #'helm-slack-leave-room - "Rename channel" #'helm-slack-rename-room - "Set purpose for channel" #'helm-slack-set-purpose-for-room - "Set topic of channel" #'helm-slack-set-topic-of-room - )) - -(defvar helm-slack-members-actions - (helm-make-actions "Display User" #'helm-slack-display-user)) - - -(defvar helm-slack-channels-source (helm-build-sync-source "Channels (Slack)" - :persistent-action #'helm-slack-persistent-action - :action helm-slack-actions - :candidates #'helm-slack-build-channels-candidates)) - -(defvar helm-slack-groups-source (helm-build-sync-source "Private Channels (Slack)" - :persistent-action #'helm-slack-persistent-action - :action helm-slack-actions - :candidates #'helm-slack-build-groups-candidates)) - -(defvar helm-slack-ims-source (helm-build-sync-source "Direct Messages (Slack)" - :persistent-action #'helm-slack-persistent-action - :action helm-slack-actions - :candidates #'helm-slack-build-ims-candidates)) - -(defvar helm-slack-source (helm-build-sync-source "Slack" - :persistent-action #'helm-slack-persistent-action - :action helm-slack-actions - :candidates #'helm-slack-build-candidates)) - -(defcustom helm-slack-sources - '(helm-slack-source) - "Default helm sources. -pre defined sources are `helm-slack-channels-source', `helm-slack-groups-source', `helm-slack-ims-source', `helm-slack-source'" - :type 'list - :group 'slack) - -(defun helm-slack-build-channels-candidates () - (helm-slack-build--candidates #'(lambda (team) (oref team channels)))) - -(defun helm-slack-build-groups-candidates () - (helm-slack-build--candidates #'(lambda (team) (oref team groups)))) - -(defun helm-slack-build-ims-candidates () - (helm-slack-build--candidates #'(lambda (team) (oref team ims)))) - -(defun helm-slack-build-candidates () - (helm-slack-build--candidates #'(lambda (team) (with-slots (channels groups ims) team - (append channels groups ims))))) - -(defun helm-slack-build--candidates (rooms-selector) - (cl-loop for team in slack-teams - as rooms = (funcall rooms-selector team) - nconc (cl-labels - ((filter (rooms) (cl-remove-if #'slack-room-hidden-p - rooms)) - (collector (label room) (list label room team))) - (let ((slack-display-team-name - (< 1 (length slack-teams)))) - (slack-room-names (append rooms nil) team - #'filter #'collector))))) - -(defmacro helm-slack-bind-room-and-team (candidate &rest body) - (declare (indent 2) (debug t)) - `(let ((room (car ,candidate)) - (team (cadr ,candidate))) - ,@body)) - -(defmacro helm-slack-bind-user-and-team (candidate &rest body) - (declare (indent 2) (debug t)) - `(let ((user (car ,candidate)) - (team (cadr ,candidate))) - ,@body)) - -(defun helm-slack-persistent-action (candidate) - (helm-slack-bind-room-and-team candidate - (let* ((buffer (slack-create-room-info-buffer room team))) - (switch-to-buffer (slack-buffer-buffer buffer))))) - -(defun helm-slack-display-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-room-display room team))) - -(defun helm-slack-archive-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-archive room team))) - -(defun helm-slack-invite-to-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-invite room team))) - -(defun helm-slack-join-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-join room team))) - -(defun helm-slack-leave-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-leave room team))) - -(defun helm-slack-rename-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-rename room team))) - -(defun helm-slack-set-purpose-for-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-set-purpose room team))) - -(defun helm-slack-set-topic-of-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-set-topic room team))) - -(defun helm-slack-kick-from-room (candidate) - (helm-slack-bind-room-and-team candidate - (slack-conversations-kick room team))) - -(defun helm-slack-list-member-in-room (candidate) - (helm-slack-bind-room-and-team candidate - (helm-slack-members-in-room room team))) - -(defun helm-slack-members-in-room (room team) - (let ((candidates nil) - (cursor nil)) - (cl-labels - ((inject-team (candidates) - (mapcar #'(lambda (candidate) - (list (car candidate) - (cdr candidate) - team)) - candidates)) - (on-members-success (members next-cursor) - (setq candidates (append candidates - members)) - (setq cursor next-cursor))) - (while (or (null cursor) - (< 0 (length cursor))) - (slack-conversations-members room - team - cursor - #'on-members-success)) - (helm - :prompt "Select Member : " - :sources (helm-build-sync-source "Members" - :candidates (inject-team candidates) - :action helm-slack-members-actions))))) - -(defun helm-slack-display-user (candidate) - (helm-slack-bind-user-and-team candidate - (let* ((user-id (plist-get user :id)) - (buffer (slack-create-user-profile-buffer team - user-id))) - (slack-buffer-display buffer)))) - -(defun helm-slack () - "Helm Slack" - (interactive) - (helm - :prompt "Select Channel : " - :sources helm-slack-sources)) - -(provide 'helm-slack) -;;; helm-slack.el ends here |