blob: f752d0c147830c504ac54e478cdc92c26581cc21 (
plain) (
tree)
|
|
;;; slack-conversations.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 'slack-request)
(require 'slack-room)
(defconst slack-conversations-archive-url
"https://slack.com/api/conversations.archive")
(defconst slack-conversations-invite-url
"https://slack.com/api/conversations.invite")
(defconst slack-conversations-join-url
"https://slack.com/api/conversations.join")
(defconst slack-conversations-leave-url
"https://slack.com/api/conversations.leave")
(defconst slack-conversations-rename-url
"https://slack.com/api/conversations.rename")
(defconst slack-conversations-set-purpose-url
"https://slack.com/api/conversations.setPurpose")
(defconst slack-conversations-set-topic-url
"https://slack.com/api/conversations.setTopic")
(defconst slack-conversations-members-url
"https://slack.com/api/conversations.members")
(defconst slack-conversations-kick-url
"https://slack.com/api/conversations.kick")
(cl-defun slack-conversations-success-handler (team &key on-errors on-success)
(cl-function
(lambda (&key data &allow-other-keys)
(cl-labels
((replace-underscore-with-space (s)
(replace-regexp-in-string "_"
" "
s))
(log-error
(_)
(slack-if-let*
((err (plist-get data :error))
(message (format "%s"
(replace-underscore-with-space
err))))
(slack-log message team :level 'error))
(slack-if-let*
((errors (plist-get data :errors))
(has-handler (functionp on-errors)))
(funcall on-errors errors))))
(slack-request-handle-error
(data "conversations" #'log-error)
(slack-if-let* ((warning (plist-get data :warning)))
(slack-log (format "%s" (replace-underscore-with-space
warning))
team
:level 'warn)
(when (functionp on-success)
(funcall on-success data))))))))
(defun slack-conversations-archive (room team)
(let ((id (oref room id)))
(slack-request
(slack-request-create
slack-conversations-archive-url
team
:type "POST"
:params (list (cons "channel" id))
:success (slack-conversations-success-handler team)))))
(defun slack-conversations-invite (room team)
(let* ((channel (oref room id))
(user-names (slack-user-names team))
(users nil))
(cl-labels
((already-selected-p
(user-name)
(cl-find-if #'(lambda (e)
(string= e
(plist-get (cdr user-name)
:id)))
users))
(filter-selected (user-names)
(cl-remove-if #'already-selected-p
user-names)))
(cl-loop for i from 1 upto 30
as candidates = (filter-selected user-names)
as selected = (slack-select-from-list
(candidates "Select User: "))
while selected
do (push (plist-get selected :id) users)))
(setq users (mapconcat #'identity users ","))
(cl-labels
((errors-handler
(errors)
(let ((message
(mapconcat #'(lambda (err)
(let ((msg (plist-get err :error))
(user (plist-get err :user)))
(format "%s%s"
(replace-regexp-in-string "_" " " msg)
(or (and user (format ": %s" user))
""))))
errors
", ")))
(slack-log message team :level 'error))))
(slack-request
(slack-request-create
slack-conversations-invite-url
team
:type "POST"
:params (list (cons "channel" channel)
(cons "users" users))
:success (slack-conversations-success-handler team
:on-errors
#'errors-handler))))))
(defun slack-conversations-join (room team)
(let ((channel (oref room id)))
(slack-request
(slack-request-create
slack-conversations-join-url
team
:type "POST"
:params (list (cons "channel" channel))
:success (slack-conversations-success-handler team)))))
(defun slack-conversations-leave (room team)
(let ((channel (oref room id)))
(slack-request
(slack-request-create
slack-conversations-leave-url
team
:type "POST"
:params (list (cons "channel" channel))
:success (slack-conversations-success-handler team)))))
(defun slack-conversations-rename (room team)
(let ((channel (oref room id))
(name (read-from-minibuffer "Name: ")))
(slack-request
(slack-request-create
slack-conversations-rename-url
team
:type "POST"
:params (list (cons "channel" channel)
(cons "name" name))
:success (slack-conversations-success-handler team)))))
(defun slack-conversations-set-purpose (room team)
(let ((channel (oref room id))
(purpose (read-from-minibuffer "Purpose: ")))
(cl-labels
((on-success (data)
(let* ((channel (plist-get data :channel))
(purpose (plist-get channel :purpose)))
(oset room purpose purpose))))
(slack-request
(slack-request-create
slack-conversations-set-purpose-url
team
:type "POST"
:params (list (cons "channel" channel)
(cons "purpose" purpose))
:success (slack-conversations-success-handler team
:on-success
#'on-success))))))
(defun slack-conversations-set-topic (room team)
(let ((channel (oref room id))
(topic (read-from-minibuffer "Topic: ")))
(cl-labels
((on-success (data)
(let* ((channel (plist-get data :channel))
(topic (plist-get channel :topic)))
(oset room topic topic))))
(slack-request
(slack-request-create
slack-conversations-set-topic-url
team
:type "POST"
:params (list (cons "channel" channel)
(cons "topic" topic))
:success (slack-conversations-success-handler team
:on-success
#'on-success))))))
(defun slack-conversations-members (room team &optional cursor after-success)
(let ((channel (oref room id)))
(cl-labels
((build-users
(members)
(cl-remove-if-not #'(lambda (user-name)
(cl-find (plist-get (cdr user-name)
:id)
members
:test #'string=))
(slack-user-names team)))
(on-success
(&key data &allow-other-keys)
(slack-request-handle-error
(data "slack-conversations-membe")
(let* ((members (plist-get data :members))
(meta (plist-get data :response_metadata))
(next-cursor (plist-get meta :next_cursor)))
(when (functionp after-success)
(funcall after-success
(build-users members)
next-cursor))))))
(slack-request
(slack-request-create
slack-conversations-members-url
team
:type "GET"
:sync t
:params (list (cons "channel" channel)
(and cursor (cons "cursor" cursor))
;; (cons "limit" "1")
)
:success #'on-success)))))
(defun slack-conversations-kick (room team)
(let ((channel (oref room id))
(cursor nil)
(user nil)
(candidates nil))
(cl-labels
((on-member-success (members next-cursor)
(setq candidates members)
(setq cursor next-cursor))
(select-member (candidates)
(funcall #'completing-read
"Select User: " candidates)))
(while (not user)
(slack-conversations-members room
team
cursor
#'on-member-success)
(let ((selected (cl-assoc (select-member (or (and (< 0 (length cursor))
(append candidates
(cons "Next page"
'next-page)))
candidates))
candidates
:test #'string=)))
(when selected
(unless (eq 'next-page (cdr selected))
(setq user (plist-get (cdr selected) :id))))))
(slack-request
(slack-request-create
slack-conversations-kick-url
team
:type "POST"
:params (list (cons "channel" channel)
(cons "user" user))
:success (slack-conversations-success-handler team))))))
(provide 'slack-conversations)
;;; slack-conversations.el ends here
|
