diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-reply.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-reply.el | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-reply.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-reply.el deleted file mode 100644 index 8a6489e88bb4..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-reply.el +++ /dev/null @@ -1,49 +0,0 @@ -;;; slack-reply.el ---handle reply from slack -*- lexical-binding: t; -*- - -;; Copyright (C) 2015 yuya.minami - -;; Author: yuya.minami <yuya.minami@yuyaminami-no-MacBook-Pro.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 <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; - -;;; Code: -(require 'eieio) -(require 'slack-message) - -(defmethod slack-message-handle-reply ((m slack-reply) team) - (with-slots (reply-to) m - (let ((sent-msg (slack-message-find-sent m team))) - (if sent-msg - (progn - (oset sent-msg ts (slack-ts m)) - (slack-message-update sent-msg team)))))) - -(defmethod slack-message-find-sent ((m slack-reply) team) - (with-slots (reply-to) m - (with-slots (sent-message) team - (let ((found (gethash reply-to sent-message))) - (remhash reply-to sent-message) - found)))) - -(defmethod slack-message-sender-equalp ((m slack-reply) sender-id) - (string= (oref m user) sender-id)) - - -(provide 'slack-reply) -;;; slack-reply.el ends here |