mirror of
https://codeberg.org/cage/tinmop/
synced 2025-02-21 08:50:51 +01:00
- [GUI] reinitialized IR of gemtext before opening a new IRI.
This commit is contained in:
parent
d756cba334
commit
d13c979b4e
@ -710,14 +710,17 @@
|
|||||||
(let ((parsed-iri (iri:iri-parse iri)))
|
(let ((parsed-iri (iri:iri-parse iri)))
|
||||||
(cond
|
(cond
|
||||||
((iri:iri= iri (internal-iri-bookmark))
|
((iri:iri= iri (internal-iri-bookmark))
|
||||||
|
(initialize-ir-lines main-window)
|
||||||
(funcall (menu:show-bookmarks-clsr main-window)))
|
(funcall (menu:show-bookmarks-clsr main-window)))
|
||||||
((iri:iri= iri (internal-iri-gemlogs))
|
((iri:iri= iri (internal-iri-gemlogs))
|
||||||
(menu:manage-gemlogs))
|
(menu:manage-gemlogs))
|
||||||
((gemini-parser:gemini-iri-p iri)
|
((gemini-parser:gemini-iri-p iri)
|
||||||
|
(initialize-ir-lines main-window)
|
||||||
(start-stream-iri iri main-window use-cache status))
|
(start-stream-iri iri main-window use-cache status))
|
||||||
((or (null (uri:scheme parsed-iri))
|
((or (null (uri:scheme parsed-iri))
|
||||||
(string= (uri:scheme parsed-iri)
|
(string= (uri:scheme parsed-iri)
|
||||||
constants:+file-scheme+))
|
constants:+file-scheme+))
|
||||||
|
(initialize-ir-lines main-window)
|
||||||
(open-local-path (uri:path parsed-iri) main-window))
|
(open-local-path (uri:path parsed-iri) main-window))
|
||||||
(t
|
(t
|
||||||
(client-os-utils:open-resource-with-external-program main-window iri))))
|
(client-os-utils:open-resource-with-external-program main-window iri))))
|
||||||
@ -1121,6 +1124,11 @@
|
|||||||
:ipady +minimum-padding+)
|
:ipady +minimum-padding+)
|
||||||
(gui-goodies:gui-resize-grid-all object)))
|
(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)
|
(defclass main-frame (gui:frame)
|
||||||
((gemtext-widget
|
((gemtext-widget
|
||||||
:initform nil
|
:initform nil
|
||||||
|
Loading…
x
Reference in New Issue
Block a user