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

- fixed hooks for remapping links in gemini window.

This commit is contained in:
cage 2021-01-02 18:06:20 +01:00
parent 62bd4ac19f
commit b846dff5ba
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,8 +125,12 @@
(selected-line-bg selected-line-bg) (selected-line-bg selected-line-bg)
(selected-line-fg selected-line-fg)) object (selected-line-fg selected-line-fg)) object
(when hooks:*before-displaying-links-hook* (when hooks:*before-displaying-links-hook*
(setf links (let ((mapped-links (hooks:run-hook-compose 'hooks:*before-displaying-links-hook*
(hooks:run-hook-compose 'hooks:*before-displaying-links-hook* links))) (mapcar #'gemini-parser:target links))))
(loop for mapped-link in mapped-links
for link in links
do
(setf (gemini-parser:target link) mapped-link))))
(flet ((make-rows (links bg fg) (flet ((make-rows (links bg fg)
(mapcar (lambda (link) (mapcar (lambda (link)
(make-instance 'line (make-instance 'line