hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 09:21:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add: (ement-taxy) Bookmark support

Browse source
This commit is contained in:
Adam Porter 2022-03-29 01:02:08 -05:00
parent 5c4718a72f
commit 103fe71c88
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
ement-taxy.el
View file

@ -214,8 +214,32 @@
(setq-default ement-taxy-columns
(get 'ement-taxy-columns 'standard-value)))
;;;; Bookmark support
;; Especially useful with Burly: <https://github.com/alphapapa/burly.el>
(require 'bookmark)
(defun ement-taxy-bookmark-make-record ()
"Return a bookmark record for the `ement-taxy' buffer."
(pcase-let* (((cl-struct ement-session user) ement-session)
((cl-struct ement-user (id session-id)) user))
;; MAYBE: Support bookmarking specific events in a room.
(list (concat "Ement room list (Taxy) (" session-id ")")
(cons 'session-id session-id)
(cons 'handler #'ement-taxy-bookmark-handler))))
(defun ement-taxy-bookmark-handler (bookmark)
"Show `ement-taxy' room list buffer for BOOKMARK."
(pcase-let* (((map session-id) bookmark))
(unless (alist-get session-id ement-sessions nil nil #'equal)
;; MAYBE: Automatically connect.
(user-error "Session %s not connected: call `ement-connect' first" session-id))
(ement-taxy)))
;;;; Commands
;;;###autoload
(cl-defun ement-taxy (&key (buffer-name "*Ement Taxy*")
(keys ement-taxy-default-keys)
display-buffer-action visibility-fn)
@ -313,8 +337,8 @@
(define-derived-mode ement-taxy-mode magit-section-mode "Ement-Taxy"
:global nil
(setq-local ;; bookmark-make-record-function #'ement-taxy--bookmark-make-record
revert-buffer-function #'ement-taxy-revert))
(setq-local bookmark-make-record-function #'ement-taxy--bookmark-make-record
revert-buffer-function #'ement-taxy-revert))
;;;; Footer