9da3ffee41
This is a massive diff that I had to do in a hurry - when leaving Urbint. I'm pretty sure that most of these are updating Emacs packages, but I'm not positive.
88 lines
3.2 KiB
EmacsLisp
88 lines
3.2 KiB
EmacsLisp
;;; slack-selectable.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 'eieio)
|
|
(require 'slack-util)
|
|
|
|
(defclass slack-selectable ()
|
|
(
|
|
;; one of users, channels, conversations, external or static
|
|
(data-source :initarg :data_source :type string :initform "static")
|
|
(options :initarg :options :initform nil)
|
|
(option-groups :initarg :option_groups :initform nil)
|
|
(selected-options :initarg :selected_options :type (or null list) :initform '())
|
|
))
|
|
|
|
(defclass slack-selectable-option ()
|
|
((text :initarg :text :type string)
|
|
(value :initarg :value :type string)))
|
|
|
|
(defclass slack-selectable-option-group ()
|
|
((text :initarg :text :type string)
|
|
(options :initarg :options :initform nil)))
|
|
|
|
(defmethod slack-selectable-text ((this slack-selectable-option))
|
|
(oref this text))
|
|
|
|
(defmethod slack-selectable-text ((this slack-selectable-option-group))
|
|
(oref this text))
|
|
|
|
(defmethod slack-selectable-select-from-static-data-source ((this slack-selectable))
|
|
(cl-labels
|
|
((select-option (options)
|
|
(select (slack-selectable-prompt this)
|
|
(mapcar #'(lambda (option)
|
|
(cons (slack-selectable-text option)
|
|
(oref option value)))
|
|
options)))
|
|
(select-option-group
|
|
(option-groups)
|
|
(slack-if-let*
|
|
((text (select (slack-selectable-prompt this)
|
|
(mapcar #'(lambda (option-group)
|
|
(slack-selectable-text option-group))
|
|
option-groups))))
|
|
(find-option text option-groups)))
|
|
(find-option (text options)
|
|
(cl-find-if #'(lambda (option)
|
|
(string= text (slack-selectable-text option)))
|
|
options))
|
|
(select (prompt options)
|
|
(funcall slack-completing-read-function
|
|
prompt
|
|
options
|
|
nil t)))
|
|
(with-slots (options option-groups) this
|
|
(slack-if-let*
|
|
((options (if option-groups
|
|
(oref (select-option-group option-groups)
|
|
options)
|
|
options))
|
|
(option-text (select-option options)))
|
|
(find-option option-text options)))))
|
|
|
|
(provide 'slack-selectable)
|
|
;;; slack-selectable.el ends here
|