tvl-depot/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-selectable.el
William Carroll 9da3ffee41 Update Emacs packages
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.
2018-10-02 09:54:39 -04:00

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