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. --- .../elpa/slack-20180712.2222/slack-user-message.el | 35 ++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el') diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el new file mode 100644 index 000000000000..53077a17bd3c --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el @@ -0,0 +1,35 @@ +;;; package --- Summary +;;; Commentary: + +;;; Code: + +(require 'eieio) +(require 'slack-message-formatter) +(require 'slack-message-reaction) +(require 'slack-message-editor) + +(defvar slack-user-message-keymap + (let ((keymap (make-sparse-keymap))) + keymap)) + +(defmethod slack-message-sender-equalp ((m slack-user-message) sender-id) + (string= (oref m user) sender-id)) + +(defmethod slack-message-header ((m slack-user-message) team) + (with-slots (ts edited-at deleted-at) m + (let* ((name (slack-message-sender-name m team)) + (status (slack-user-status (slack-message-sender-id m) team)) + (time (slack-message-time-to-string ts)) + (edited-at (slack-message-time-to-string edited-at)) + (deleted-at (slack-message-time-to-string deleted-at)) + (header (or (and status (< 0 (length status)) + (format "%s %s" name status)) + (format "%s" name)))) + (if deleted-at + (format "%s deleted_at: %s" header deleted-at) + (if edited-at + (format "%s edited_at: %s" header edited-at) + header))))) + +(provide 'slack-user-message) +;;; slack-user-message.el ends here -- cgit 1.4.1