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

- added toc when a gemini file is loaded from a local file.

Browse Source
This commit is contained in:
cage 2021-08-26 16:23:24 +02:00
parent 78de3329a8
commit 8376d1b0fd
2 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gemini-viewer.lisp
View File

@ -97,8 +97,7 @@
(ensure-just-one-stream-rendering) (ensure-just-one-stream-rendering)
(force-rendering-of-cached-file stream-object) (force-rendering-of-cached-file stream-object)
(setf (stream-status stream-object) :completed) (setf (stream-status stream-object) :completed)
(let ((toc-event (make-instance 'program-events:gemini-toc-open))) (ui:open-gemini-toc))
(program-events:push-event toc-event)))
((gemini-client:text-file-stream-p meta) ((gemini-client:text-file-stream-p meta)
(ensure-just-one-stream-rendering) (ensure-just-one-stream-rendering)
(force-rendering-of-cached-file stream-object) (force-rendering-of-cached-file stream-object)

20
src/program-events.lisp
View File

@ -1042,6 +1042,7 @@
gemini-client:*gemini-page-theme*))) gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(refresh-gemini-message-window links page-data ir-text nil) (refresh-gemini-message-window links page-data ir-text nil)
(ui:open-gemini-toc)
(windows:draw window))))) (windows:draw window)))))
(defclass gemini-request-event (program-event) (defclass gemini-request-event (program-event)
@ -1143,18 +1144,13 @@
(t (t
(let* ((file-string (fs:slurp-file local-path)) (let* ((file-string (fs:slurp-file local-path))
(parent-dir (fs:parent-dir-path local-path)) (parent-dir (fs:parent-dir-path local-path))
(parsed (gemini-parser:parse-gemini-file file-string)) (event (make-instance 'gemini-display-data-page
(links (gemini-parser:sexp->links parsed :local-path parent-dir
nil :window window
nil :payload file-string)))
parent-dir (let ((*process-events-immediately* t))
:comes-from-local-file t)) (push-event event))
(ir-text (gemini-parser:sexp->text-rows parsed (gemini-viewer:push-url-to-history window local-path))))))))
gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:push-url-to-history window local-path)
(refresh-gemini-message-window links file-string ir-text nil)
(windows:draw window))))))))
(defclass gemini-back-event (program-event) ()) (defclass gemini-back-event (program-event) ())