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

Tidy: (ement-room-go-to-read-marker)

Browse source
This commit is contained in:
Adam Porter 2021-08-28 16:53:07 -05:00
parent 19abf8363a
commit 2d77516276
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ement-room.el
View file

@ -1854,11 +1854,11 @@ function to `ement-room-event-fns', which see."
(ement-room--ewoc-last-matching ement-ewoc
(lambda (node-data)
(eq 'ement-room-fully-read-marker node-data)))))
(if-let ((fully-read-event (when-let ((event (alist-get "m.fully_read" (ement-room-account-data ement-room) nil nil #'equal)))
(map-nested-elt event '(content event_id)))))
(if-let* ((fully-read-event (alist-get "m.fully_read" (ement-room-account-data ement-room) nil nil #'equal))
(fully-read-event-id (map-nested-elt fully-read-event '(content event_id))))
(let ((buffer (current-buffer)))
(message "Searching for first unread event...")
(ement-room-retro-to ement-room ement-session fully-read-event
(ement-room-retro-to ement-room ement-session fully-read-event-id
:then (lambda ()
(with-current-buffer buffer
;; HACK: Should probably call this function elsewhere, in a hook or something.