about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2019-01-13T19·33-0500
committerWilliam Carroll <wpcarro@gmail.com>2019-01-13T19·45-0500
commit481df5a3855ccd5ea3bf4d5f41ae780f4773b7b4 (patch)
tree3aeb7e20eaba176536cb8d10ba531ac39674fc4a /configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-room-info-buffer.el
parent18b9930b8604134f087ca61fe94740b31f94327c (diff)
Remove Emacs spam
My inconsistent git history-keeping is coming to bite me here. At the
moment, I can only speculate about what went wrong here. The gist is
this: I unintentionally committed files that were supposed to be ignored

This commit removes those files which includes:

- auto-save-list
- elpa packages
- quelpa packages
- misc
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.el173
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