cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- [GUI] reinitialized IR of gemtext before opening a new IRI.

Browse Source
This commit is contained in:
cage 2023-05-14 12:50:54 +02:00
parent d756cba334
commit d13c979b4e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gui/client/main-window.lisp
View File

@ -710,14 +710,17 @@
(let ((parsed-iri (iri:iri-parse iri)))
(cond
((iri:iri= iri (internal-iri-bookmark))
(initialize-ir-lines main-window)
(funcall (menu:show-bookmarks-clsr main-window)))
((iri:iri= iri (internal-iri-gemlogs))
(menu:manage-gemlogs))
((gemini-parser:gemini-iri-p iri)
(initialize-ir-lines main-window)
(start-stream-iri iri main-window use-cache status))
((or (null (uri:scheme parsed-iri))
(string= (uri:scheme parsed-iri)
constants:+file-scheme+))
(initialize-ir-lines main-window)
(open-local-path (uri:path parsed-iri) main-window))
(t
(client-os-utils:open-resource-with-external-program main-window iri))))
@ -1121,6 +1124,11 @@
:ipady +minimum-padding+)
(gui-goodies:gui-resize-grid-all object)))
(defun initialize-ir-lines (main-window)
(setf (ir-rendered-lines main-window) (misc:make-fresh-array 0)
(ir-lines main-window) (misc:make-fresh-array 0))
main-window)
(defclass main-frame (gui:frame)
((gemtext-widget
:initform nil