From 17ee0e400bef47c371afcae76037f9ea6a44ad13 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 10 Sep 2018 14:51:14 -0400 Subject: Support Vim, Tmux, Emacs with Stow After moving off of Meta, Dotfiles has a greater responsibility to manage configs. Vim, Tmux, and Emacs are now within Stow's purview. --- .../slack-20180712.2222/slack-file-list-buffer.el | 56 ++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-file-list-buffer.el (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-file-list-buffer.el') diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-file-list-buffer.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-file-list-buffer.el new file mode 100644 index 000000000000..596bf7ef6513 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-file-list-buffer.el @@ -0,0 +1,56 @@ +;;; slack-file-list-buffer.el --- -*- lexical-binding: t; -*- + +;; Copyright (C) 2017 南優也 + +;; Author: 南優也 +;; 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 . + +;;; Commentary: + +;; + +;;; Code: + +(require 'eieio) +(require 'slack-util) +(require 'slack-room-buffer) + +(define-derived-mode slack-file-list-buffer-mode slack-buffer-mode "Slack File List Buffer") + +(defclass slack-file-list-buffer (slack-message-buffer) ()) + +(defmethod slack-buffer-name ((_this slack-file-list-buffer)) + (format "%s" (call-next-method))) + +(defmethod slack-buffer-major-mode ((this slack-file-list-buffer)) + 'slack-file-list-buffer-mode) + +(defmethod slack-create-message-buffer ((room slack-file-room) team) + (slack-if-let* ((buffer (slack-buffer-find 'slack-file-list-buffer + room + team))) + buffer + (slack-file-list-buffer :room room :team team))) + +(cl-defmethod slack-buffer-update ((this slack-file-list-buffer) message &key replace) + (with-slots (room team) this + (let ((buffer (get-buffer (slack-buffer-name this)))) + (if replace (slack-buffer-replace this message) + (with-current-buffer buffer + (slack-buffer-insert this message)))))) + +(provide 'slack-file-list-buffer) +;;; slack-file-list-buffer.el ends here -- cgit 1.4.1