diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-user-message.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-user-message.el | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-user-message.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-user-message.el deleted file mode 100644 index a79edb9de110..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-user-message.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; 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 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 (slack-message-edited-at m))) - (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 |