diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el new file mode 100644 index 000000000000..f7043c032217 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el @@ -0,0 +1,173 @@ +;;; slack-room-info-buffer.el --- -*- lexical-binding: t; -*- + +;; Copyright (C) 2018 南優也 + +;; Author: 南優也 <yuyaminami@minamiyuuya-no-MacBook.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 <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; + +;;; Code: +(require 'eieio) +(require 'slack-room) +(require 'slack-group) +(require 'slack-room-buffer) + +(defclass slack-room-info-buffer (slack-room-buffer) ()) + +(define-derived-mode slack-room-info-buffer-mode fundamental-mode + "Slack Room Info" + (setq-local default-directory slack-default-directory) + (setq-local buffer-read-only t)) + +(defmethod slack-buffer-name :static ((class slack-room-info-buffer) room team) + (slack-if-let* ((room-name (slack-room-name room team))) + (format "*Slack Room Info - %s : %s" + (slack-team-name team) + room-name))) + +(defmethod slack-buffer-name ((this slack-room-info-buffer)) + (with-slots (room team) this + (slack-buffer-name (eieio-object-class-name this) room team))) + +(defmethod slack-buffer-init-buffer ((this slack-room-info-buffer)) + (let* ((bufname (slack-buffer-name this)) + (buf (generate-new-buffer bufname))) + (with-current-buffer buf + (slack-room-info-buffer-mode) + (slack-buffer-set-current-buffer this) + (slack-buffer-insert this) + (goto-char (point-min))) + (with-slots (room team) this + (let ((class (eieio-object-class-name this))) + (slack-buffer-push-new-3 class room team))) + buf)) + +(defface slack-room-info-title-face + '((t (:weight bold :height 1.5))) + "Used to room info title." + :group 'slack) + +(defface slack-room-info-title-room-name-face + '((t (:inherit slack-room-info-title-face :foreground "#FFA000"))) + "Used to room info title." + :group 'slack) + +(defface slack-room-info-section-title-face + '((t (:weight bold :height 1.2))) + "Used to room info section title." + :group 'slack) + +(defface slack-room-info-section-label-face + '((t (:weight bold))) + "Used to room info section title." + :group 'slack) + +(defmethod slack-buffer-insert ((this slack-room-info-buffer)) + (with-slots (room team) this + (let ((inhibit-read-only t)) + (insert (propertize "About " + 'face 'slack-room-info-title-face)) + (insert (propertize (slack-room-name room team) + 'face 'slack-room-info-title-room-name-face)) + (insert "\n") + (insert "\n") + (insert (propertize "Channel Details" + 'face 'slack-room-info-section-title-face)) + (insert "\n") + + (slack-buffer-insert-purpose room) + (slack-buffer-insert-topic room) + (slack-buffer-insert-created room team) + ))) + +(defmethod slack-buffer-insert-created ((room slack-room) _team) + (with-slots (created) room + (when created + (insert (propertize "Created" + 'face 'slack-room-info-section-label-face)) + (insert ": ") + (insert (slack-message-time-to-string + (number-to-string created)))))) + +(defmethod slack-buffer-insert-created ((room slack-group) team) + (call-next-method) + (with-slots (creator) room + (when creator + (let ((user (slack-user--find creator team))) + (insert (format " by %s" (plist-get user :real_name))))) + )) + +(defmethod slack-buffer-insert-purpose ((room slack-group)) + (with-slots (purpose) room + (when purpose + (insert (propertize "Purpose" + 'face 'slack-room-info-section-label-face)) + (insert ": ") + (slack-if-let* + ((purpose-value (plist-get purpose :value)) + (not-blank-p (and purpose-value + (< 0 (length purpose-value))))) + (insert (format "%s\n" purpose-value)) + (insert (propertize "Set purpose" + 'face '(:box (:line-width + 1 + :style + released-button)))) + (insert "\n"))))) + +(defmethod slack-buffer-insert-purpose ((room slack-room))) + +(defmethod slack-buffer-insert-topic ((room slack-group)) + (with-slots (topic) room + (when topic + (insert (propertize "Topic" + 'face 'slack-room-info-section-label-face)) + (insert ": ") + (slack-if-let* + ((topic-value (plist-get topic :value)) + (not-blank-p (and topic-value + (< 0 (length topic-value))))) + (insert (format "%s\n" topic-value)) + (insert (propertize "Set Topic" + 'face '(:box (:line-width + 1 + :style + released-button)))) + (insert "\n"))))) + +(defmethod slack-buffer-insert-topic ((room slack-room))) + +(defmethod slack-create-room-info-buffer ((room slack-room) team) + (slack-if-let* ((buffer (slack-buffer-find 'slack-room-info-buffer + room team))) + buffer + (slack-room-info-buffer :room room :team team))) + +(defmethod slack-buffer-buffer ((this slack-room-info-buffer)) + (slack-if-let* ((buf (get-buffer (slack-buffer-name this)))) + (with-current-buffer buf + (let ((inhibit-read-only t)) + (delete-region (point-min) (point-max)) + (slack-buffer-insert this)) + buf) + (slack-buffer-init-buffer this))) + + +(provide 'slack-room-info-buffer) +;;; slack-room-info-buffer.el ends here |