path: root/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el

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