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

- added hook to all links displaying windows.

This commit is contained in:
cage 2020-12-31 19:18:21 +01:00
parent 55667c2511
commit 0e2e883d1a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,6 +124,9 @@
(links links)
(selected-line-bg selected-line-bg)
(selected-line-fg selected-line-fg)) object
(when hooks:*before-displaying-links-hook*
(setf links
(hooks:run-hook-compose 'hooks:*before-displaying-links-hook* links)))
(flet ((make-rows (links bg fg)
(mapcar (lambda (link)
(make-instance 'line
@ -227,6 +230,9 @@
(links links)
(selected-line-bg selected-line-bg)
(selected-line-fg selected-line-fg)) object
(when hooks:*before-displaying-links-hook*
(setf links
(hooks:run-hook-compose 'hooks:*before-displaying-links-hook* links)))
(flet ((make-rows (links bg fg)
(mapcar (lambda (link)
(make-instance 'line