tvl-depot/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.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

173 lines
6 KiB
EmacsLisp

;;; 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