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, 0 insertions, 173 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 deleted file mode 100644 index f7043c032217..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el +++ /dev/null @@ -1,173 +0,0 @@ -;;; 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 |