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

Change: (ement-taxy-next-unread) Use ement--room-unread-p

Browse source
This commit is contained in:
Adam Porter 2022-05-30 02:16:39 -05:00
parent 6fd0d563c2
commit 151f9acc22
1 changed files with 13 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
ement-taxy.el
View file

@ -556,28 +556,19 @@ left."
(interactive)
(unless (button-at (point))
(call-interactively #'forward-button))
(cl-labels ((room-unread-p
() (pcase-let* ((`[,room ,_session] (oref (magit-current-section) value))
((cl-struct ement-room unread-notifications local) room)
((map notification_count highlight_count) unread-notifications)
((map buffer) local))
;; For now, we test both unread count and whether the buffer is
;; modified; later, we might do only the former (still to be worked
;; out how canonical notifications are handled).
(or (and (buffer-live-p buffer) (buffer-modified-p buffer))
(and unread-notifications
(or (not (zerop notification_count))
(not (zerop highlight_count))))))))
(unless (cl-loop with starting-line = (line-number-at-pos)
if (room-unread-p)
do (progn
(goto-char (button-end (button-at (point))))
(push-button (1- (point)))
(cl-return t))
else do (call-interactively #'forward-button)
while (> (line-number-at-pos) starting-line))
;; No more unread rooms.
(message "No more unread rooms"))))
(unless (cl-loop with starting-line = (line-number-at-pos)
for value = (oref (magit-current-section) value)
for room = (elt value 0)
for session = (elt value 1)
if (ement--room-unread-p room session)
do (progn
(goto-char (button-end (button-at (point))))
(push-button (1- (point)))
(cl-return t))
else do (call-interactively #'forward-button)
while (> (line-number-at-pos) starting-line))
;; No more unread rooms.
(message "No more unread rooms")))
(define-derived-mode ement-taxy-mode magit-section-mode "Ement-Taxy"
:global nil