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

- [GUI] [gempub] forced inlining of cover image.

This commit is contained in:
cage 2024-09-15 18:51:54 +02:00
parent 65a368eddb
commit 24bfe596b6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gui/client/gempub-window.lisp
View File

@ -143,7 +143,9 @@
(multiple-value-bind (path book-directory) (multiple-value-bind (path book-directory)
(make-gempub-index row) (make-gempub-index row)
(client-main-window::set-address-bar-text main-window book-directory) (client-main-window::set-address-bar-text main-window book-directory)
(client-main-window::open-iri path main-window nil)))))) (client-main-window::open-iri path main-window nil)
(ev:with-enqueued-process-and-unblock ()
(client-main-window::inline-all-images main-window)))))))
(defun init-window (master main-window query-results) (defun init-window (master main-window query-results)
(client-main-window:hide-autocomplete-candidates main-window) (client-main-window:hide-autocomplete-candidates main-window)