diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-buffer.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-buffer.el | 429 |
1 files changed, 0 insertions, 429 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-buffer.el b/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-buffer.el deleted file mode 100644 index 3ed9fc14f9..0000000000 --- a/configs/shared/emacs/.emacs.d/elpa/slack-20180913.651/slack-message-buffer.el +++ /dev/null @@ -1,429 +0,0 @@ -;;; slack-message-buffer.el --- -*- lexical-binding: t; -*- - -;; Copyright (C) 2017 - -;; Author: <yuya373@yuya373> -;; 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 <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; - -;;; Code: - -(require 'eieio) -(require 'slack-room) -(require 'slack-util) -(require 'slack-room-buffer) -(require 'slack-buffer) -(require 'slack-request) -(require 'slack-action) - -(defface slack-new-message-marker-face - '((t (:foreground "#d33682" - :weight bold - :height 0.8))) - "Face used to New Message Marker." - :group 'slack) - -(define-derived-mode slack-message-buffer-mode slack-mode "Slack Message Buffer" - (add-hook 'lui-pre-output-hook 'slack-buffer-buttonize-link nil t) - (add-hook 'lui-pre-output-hook 'slack-add-face-lazy nil t) - (add-hook 'lui-pre-output-hook 'slack-search-code-block nil t) - (add-hook 'lui-post-output-hook 'slack-display-image t t) - (add-hook 'lui-pre-output-hook 'slack-display-inline-action t t) - ;; TODO move to `slack-room-buffer' ? - (cursor-sensor-mode) - (setq-local lui-max-buffer-size nil) - ) - -(defclass slack-message-buffer (slack-room-buffer) - ((oldest :initform nil :type (or null string)) - (latest :initform nil :type (or null string)) - (marker-overlay :initform nil) - (update-mark-timer :initform '(nil . nil)) ;; (timestamp . timer) - )) - -(defmethod slack-buffer-last-read ((this slack-message-buffer)) - (with-slots (room) this - (oref room last-read))) - -(cl-defmethod slack-buffer-update-mark ((this slack-message-buffer) &key (force nil)) - (with-slots (room update-mark-timer team) this - (let* ((ts (slack-get-ts)) - (timer-timeout-sec (or (and force 0) 5)) - (prev-mark (or (car update-mark-timer) - (slack-buffer-last-read this))) - (prev-timer (cdr update-mark-timer))) - (when (or force (or (string< prev-mark ts) - (string= prev-mark ts))) - (slack-log (format "%s: update mark to %s" - (slack-room-name room team) - ts) - (oref this team)) - (when (timerp prev-timer) - (cancel-timer prev-timer)) - (cl-labels - ((update-mark () - (slack-buffer-update-mark-request this ts))) - (setq update-mark-timer - (cons ts (run-at-time timer-timeout-sec nil #'update-mark)))))))) - -(defmethod slack-buffer-update-mark-request ((this slack-message-buffer) ts &optional after-success) - (with-slots (room team) this - (when (slack-room-member-p room) - (cl-labels ((on-update-mark (&key data &allow-other-keys) - (slack-request-handle-error - (data "slack-buffer-update-mark-request") - (oset room last-read ts) - (slack-buffer-update-marker-overlay this) - (when (functionp after-success) - (funcall after-success))))) - (with-slots (id) room - (slack-request - (slack-request-create - (slack-room-update-mark-url room) - team - :type "POST" - :params (list (cons "channel" id) - (cons "ts" ts)) - :success #'on-update-mark))))))) - -(defmethod slack-buffer-send-message ((this slack-message-buffer) message) - (with-slots (room team) this - (slack-message-send-internal message (oref room id) team))) - -(defmethod slack-buffer-latest-ts ((this slack-message-buffer)) - (with-slots (room) this - (slack-if-let* ((latest (oref room latest))) - (slack-ts latest)))) - -(defmethod slack-buffer-buffer ((this slack-message-buffer)) - (let ((buffer-already-exists-p (get-buffer (slack-buffer-name this))) - (buffer (call-next-method)) - (last-read (slack-buffer-last-read this))) - (with-current-buffer buffer - (if (slack-team-mark-as-read-immediatelyp (oref this team)) - (progn - (unless buffer-already-exists-p - (goto-char (marker-position lui-input-marker))) - (and (slack-buffer-latest-ts this) - (slack-buffer-update-mark-request this - (slack-buffer-latest-ts this)))) - (unless (string= "0" last-read) - (unless buffer-already-exists-p - (slack-buffer-goto last-read)) - (slack-buffer-update-marker-overlay this)))) - - buffer)) - -(defmethod slack-buffer-display-unread-threads ((this slack-message-buffer)) - (with-slots (room team) this - (let* ((threads (mapcar #'(lambda (m) (oref m thread)) - (cl-remove-if - #'(lambda (m) - (or (not (slack-message-thread-parentp m)) - (not (< 0 (oref (oref m thread) unread-count))))) - (oref room messages)))) - (alist (mapcar #'(lambda (thread) - (cons (slack-thread-title thread team) thread)) - (cl-sort threads - #'string> - :key #'(lambda (thread) (oref thread thread-ts))))) - (selected (slack-select-from-list (alist "Select Thread: ")))) - (slack-thread-show-messages selected room team)))) - -(defmethod slack-buffer-start-thread ((this slack-message-buffer) ts) - (with-slots (room team) this - (let* ((message (slack-room-find-message room ts)) - (buf (slack-create-thread-message-buffer room team ts))) - (when (slack-reply-broadcast-message-p message) - (error "Can't start thread from broadcasted message")) - (slack-buffer-display buf)))) - -(defmethod slack-buffer-major-mode ((this slack-message-buffer)) - 'slack-message-buffer-mode) - -(defmethod slack-buffer-init-buffer ((this slack-message-buffer)) - (let ((buf (call-next-method))) - (with-current-buffer buf - (funcall (slack-buffer-major-mode this)) - (slack-buffer-set-current-buffer this) - (goto-char (point-min)) - - (slack-buffer-insert-load-more this) - - (with-slots (room team latest) this - (let* ((messages (slack-room-sorted-messages room)) - (latest-message (car (last messages))) - (oldest-message (car messages))) - (cl-loop for m in messages - do (if (and (or (null latest) - (string< latest (slack-ts m))) - (or (not (slack-thread-message-p m)) - (slack-reply-broadcast-message-p m))) - (slack-buffer-insert this m t))) - (when latest-message - (slack-buffer-update-lastest this (slack-ts latest-message))) - (when oldest-message - (slack-buffer-update-oldest this oldest-message)))) - ) - (with-slots (room team) this - (let* ((class (eieio-object-class-name this))) - (slack-buffer-push-new-3 class room team))) - buf)) - - -(cl-defmethod slack-buffer-update ((this slack-message-buffer) message &key replace) - (with-slots (room team) this - (let ((buffer (get-buffer (slack-buffer-name this)))) - (when (and (slack-team-mark-as-read-immediatelyp team) - (slack-buffer-in-current-frame buffer)) - (slack-buffer-update-mark-request this (slack-ts message))) - - (if replace (slack-buffer-replace this message) - (slack-buffer-update-lastest this (slack-ts message)) - (with-current-buffer buffer - (slack-buffer-insert this message)))))) - -(defmethod slack-buffer-display-message-compose-buffer ((this slack-message-buffer)) - (with-slots (room team) this - (let ((buf (slack-create-room-message-compose-buffer room team))) - (slack-buffer-display buf)))) - -(defmethod slack-buffer-update-lastest ((this slack-message-buffer) latest) - (with-slots ((prev-latest latest)) this - (if (or (null prev-latest) - (string< prev-latest latest)) - (setq prev-latest latest)))) - -(defmethod slack-buffer-display-thread ((this slack-message-buffer) ts) - (with-slots (room team) this - (let ((thread (slack-room-find-thread room ts))) - (if thread (slack-thread-show-messages thread room team) - (slack-thread-start))))) - -(defmethod slack-buffer-display-edit-message-buffer ((this slack-message-buffer) ts) - (with-slots (room team) this - (let ((buf (slack-create-edit-message-buffer room team ts))) - (slack-buffer-display buf)))) - -(defmethod slack-create-message-buffer ((room slack-room) team) - (slack-if-let* ((buffer (slack-buffer-find 'slack-message-buffer - room - team))) - buffer - (slack-message-buffer :room room :team team))) - - -(defmethod slack-buffer-share-message ((this slack-message-buffer) ts) - (with-slots (room team) this - (let ((buf (slack-create-message-share-buffer room team ts))) - (slack-buffer-display buf)))) - -(defmethod slack-buffer-add-reaction-to-message - ((this slack-message-buffer) reaction ts) - (with-slots (room team) this - (slack-message-reaction-add reaction ts room team))) - -(defmethod slack-buffer-remove-reaction-from-message - ((this slack-message-buffer) ts) - (with-slots (room team) this - (let* ((message (slack-room-find-message room ts)) - (reactions (slack-message-reactions message)) - (reaction (slack-message-reaction-select reactions))) - (slack-message-reaction-remove reaction ts room team)))) - -(defmethod slack-buffer-pins-remove ((this slack-message-buffer) ts) - (with-slots (room team) this - (slack-message-pins-request slack-message-pins-remove-url - room team ts))) - -(defmethod slack-buffer-pins-add ((this slack-message-buffer) ts) - (with-slots (room team) this - (slack-message-pins-request slack-message-pins-add-url - room team ts))) -(defmethod slack-buffer-remove-star ((this slack-message-buffer) ts) - (with-slots (room team) this - (slack-if-let* ((message (slack-room-find-message room ts))) - (slack-message-star-api-request slack-message-stars-remove-url - (list (cons "channel" (oref room id)) - (slack-message-star-api-params message)) - team)))) - -(defmethod slack-buffer-add-star ((this slack-message-buffer) ts) - (with-slots (room team) this - (slack-if-let* ((message (slack-room-find-message room ts))) - (slack-message-star-api-request slack-message-stars-add-url - (list (cons "channel" (oref room id)) - (slack-message-star-api-params message)) - team)))) - -(defmethod slack-buffer-update-oldest ((this slack-message-buffer) message) - (when (and message (or (null (oref this oldest)) - (string< (slack-ts message) (oref this oldest)))) - (oset this oldest (slack-ts message)))) - -(defmethod slack-buffer-load-missing-messages ((this slack-message-buffer)) - (with-slots (room team) this - (cl-labels - ((request-messages (latest) - (slack-room-history-request room team - :latest latest - :count 100 - :after-success #'after-success)) - (after-success (has-more) - (let* ((messages (slack-room-sorted-messages room)) - (oldest-message (car messages)) - (latest-message (car (last messages)))) - (if has-more - (request-messages (slack-ts latest-message)) - (progn - (with-current-buffer (slack-buffer-buffer this) - (let ((inhibit-read-only t)) - (slack-buffer-delete-overlay this) - (delete-region (point-min) - (marker-position lui-output-marker))) - (slack-buffer-prepare-marker-for-history this) - (slack-buffer-insert-load-more this) - (cl-loop for m in messages - do (slack-buffer-insert this m t)) - (slack-buffer-goto (slack-buffer-last-read this)) - (slack-buffer-update-marker-overlay this)) - (when oldest-message - (slack-buffer-update-oldest this - oldest-message))))))) - (oset room messages nil) - (request-messages nil)))) - -(defmethod slack-buffer-load-more ((this slack-message-buffer)) - (with-slots (room team oldest) this - (let ((current-ts (let ((change (next-single-property-change (point) 'ts))) - (when change - (get-text-property change 'ts)))) - (cur-point (point))) - (cl-labels - ((update-buffer - (messages) - (with-current-buffer (slack-buffer-buffer this) - (slack-buffer-widen - (let ((inhibit-read-only t)) - (goto-char (point-min)) - - (slack-if-let* ((loading-message-end - (slack-buffer-loading-message-end-point this))) - (progn - (slack-buffer-delete-overlay this) - (delete-region (point-min) loading-message-end)) - (message "loading-message-end not found, oldest: %s" oldest)) - - (set-marker lui-output-marker (point-min)) - (if (and messages (< 0 (length messages))) - (slack-buffer-insert-load-more this) - (let ((lui-time-stamp-position nil)) - (lui-insert "(no more messages)\n"))) - - (cl-loop for m in messages - do (slack-buffer-insert this m t)) - (lui-recover-output-marker) - (slack-buffer-update-marker-overlay this) - )) - (if current-ts - (slack-buffer-goto current-ts) - (goto-char cur-point)))) - (after-success (&rest _ignore) - (let ((messages (cl-remove-if #'(lambda (e) - (or (string< oldest e) - (string= oldest e))) - (slack-room-sorted-messages room) - :key #'slack-ts))) - (update-buffer messages) - (slack-buffer-update-oldest this (car messages))))) - (slack-room-history-request room team - :oldest oldest - :after-success #'after-success))))) - -(defmethod slack-buffer-display-pins-list ((this slack-message-buffer)) - (with-slots (room team) this - (cl-labels - ((on-pins-list (&key data &allow-other-keys) - (slack-request-handle-error - (data "slack-room-pins-list") - (let* ((buf (slack-create-pinned-items-buffer - room team (plist-get data :items)))) - (slack-buffer-display buf))))) - (slack-request - (slack-request-create - slack-room-pins-list-url - team - :params (list (cons "channel" (oref room id))) - :success #'on-pins-list))))) - -(defmethod slack-buffer-display-user-profile ((this slack-message-buffer)) - (with-slots (room team) this - (let* ((members (cl-remove-if - #'(lambda (e) - (or (slack-user-self-p e team) - (slack-user-hidden-p - (slack-user--find e team)))) - (slack-room-get-members room))) - (user-alist (mapcar #'(lambda (u) (cons (slack-user-name u team) u)) - members)) - (user-id (if (eq 1 (length members)) - (car members) - (slack-select-from-list (user-alist "Select User: "))))) - (let ((buf (slack-create-user-profile-buffer team user-id))) - (slack-buffer-display buf))))) - -(defmethod slack-buffer-delete-overlay ((this slack-message-buffer)) - (when (oref this marker-overlay) - (delete-overlay (oref this marker-overlay)))) - -(defmethod slack-buffer-update-marker-overlay ((this slack-message-buffer)) - (let ((buf (get-buffer (slack-buffer-name this)))) - (and buf (with-current-buffer buf - (let* ((last-read (slack-buffer-last-read this)) - (beg (slack-buffer-ts-eq (point-min) (point-max) last-read)) - (end (and beg (next-single-property-change beg 'ts)))) - (when (and beg end) - (if (oref this marker-overlay) - (move-overlay (oref this marker-overlay) - beg end) - (progn - (oset this marker-overlay (make-overlay beg end)) - (let ((after-string - (propertize "New Message" - 'face - 'slack-new-message-marker-face))) - (overlay-put (oref this marker-overlay) - 'after-string - (format "\n%s" after-string))))))))))) - -(defmethod slack-buffer-replace ((this slack-message-buffer) message) - (call-next-method) - (slack-buffer-update-marker-overlay this)) - -(defmethod slack-file-upload-params ((this slack-message-buffer)) - (with-slots (room team) this - (list (cons "channels" - (mapconcat #'identity - (slack-file-select-sharing-channels - (slack-room-label room team) - team) - ","))))) - -(provide 'slack-message-buffer) -;;; slack-message-buffer.el ends here |