cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- reverse link order in window.

This commit is contained in:
cage 2020-12-31 16:06:19 +01:00
parent a3c2550ff4
commit 55667c2511
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
modules/rewrite-message-urls.lisp
View File

@ -71,7 +71,6 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
link link
(cdr mapping)) (cdr mapping))
link))) link)))
(push mapped results))) (push mapped results)))
(reverse results))) (reverse results)))

2
src/open-message-link-window.lisp
View File

@ -40,7 +40,7 @@
:selected-fg bg)) :selected-fg bg))
links))) links)))
(let* ((message (db:find-status-id status-id)) (let* ((message (db:find-status-id status-id))
(links (text-utils:collect-links (db:row-message-rendered-text message)))) (links (reverse (text-utils:collect-links (db:row-message-rendered-text message)))))
(with-croatoan-window (croatoan-window object) (with-croatoan-window (croatoan-window object)
(when hooks:*before-displaying-links-hook* (when hooks:*before-displaying-links-hook*
(setf links (setf links