about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2018-09-10T18·51-0400
committerWilliam Carroll <wpcarro@gmail.com>2018-09-10T18·53-0400
commit17ee0e400bef47c371afcae76037f9ea6a44ad13 (patch)
tree0e5efee6f00e402890e91f3eceb4b29408a498b6 /configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el
parent8b2fadf4776b7ddb4a67b4bc8ff6463770e56028 (diff)
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.
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/slack-20180712.2222/slack-user-message.el35
1 files changed, 35 insertions, 0 deletions
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