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

Change/Fix: (ement-room-browse-url) Room-only links

Browse source
This commit is contained in:
Adam Porter 2022-09-15 12:37:25 -05:00
parent d44338e701
commit 04d2b60d79
2 changed files with 34 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.org
View file

@ -280,7 +280,8 @@ Note that, while ~matrix-client~ remains usable, and probably will for some time
** 0.2-pre
Nothing new yet.
*Fixes*
+ Links to only rooms (as opposed to links to events in rooms) may be joined by activating them.
** 0.1.4

54
ement-room.el
View file

@ -1018,28 +1018,38 @@ to the session in which to look for URL's room and event. ARGS
are passed to `browse-url'."
(interactive)
(when (string-match ement-room-matrix.to-url-regexp url)
(let ((room-id (when (string-prefix-p "!" (match-string 1 url))
(match-string 1 url)))
(room-alias (when (string-prefix-p "#" (match-string 1 url))
(match-string 1 url)))
(event-id (match-string 2 url)))
(if (and (equal major-mode 'ement-room-mode)
(or (and room-id (equal room-id (ement-room-id ement-room)))
(and room-alias (equal room-alias (ement-room-canonical-alias ement-room)))))
;; Event is in current buffer's room: try to find it.
(ement-room-find-event event-id)
;; Event is not in current buffer's room: try to find it in the session.
(if-let ((room (or (and room-id (cl-find room-id (ement-session-rooms ement-session)
:key #'ement-room-id))
(and room-alias (cl-find room-alias (ement-session-rooms ement-session)
:key #'ement-room-canonical-alias)))))
(progn
;; Found room in current session: view it and find the event.
(ement-view-room room ement-session)
(ement-room-find-event event-id))
(when (yes-or-no-p (format "Room %s not joined on current session. Load URL for event %s with browser?"
(or room-alias room-id) event-id))
(apply #'browse-url url args)))))))
(let* ((room-id (when (string-prefix-p "!" (match-string 1 url))
(match-string 1 url)))
(room-alias (when (string-prefix-p "#" (match-string 1 url))
(match-string 1 url)))
(event-id (match-string 2 url))
(room (when (or
;; Compare with current buffer's room.
(and room-id (equal room-id (ement-room-id ement-room)))
(and room-alias (equal room-alias (ement-room-canonical-alias ement-room)))
;; Compare with other rooms on session.
(and room-id (cl-find room-id (ement-session-rooms ement-session)
:key #'ement-room-id))
(and room-alias (cl-find room-alias (ement-session-rooms ement-session)
:key #'ement-room-canonical-alias)))
ement-room)))
(if room
(progn
;; Found room in current session: view it and find the event.
(ement-view-room room ement-session)
(when event-id
(ement-room-find-event event-id)))
;; Room not joined: offer to join it or load link in browser.
(pcase-exhaustive (completing-read
(format "Room <%s> not joined on current session. Join it, or load link with browser?"
(or room-alias room-id))
'("Join room" "Load link with browser") nil t)
("Join room" (ement-join-room (or room-alias room-id) ement-session
:then (when event-id
(lambda (room session)
(ement-view-room room session)
(ement-room-find-event event-id)))))
("Load link with browser" (apply #'browse-url url args)))))))
(defun ement-room-find-event (event-id)
"Go to EVENT-ID in current buffer."