cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-30 04:14:47 +01:00
Code Issues

- [gemini] ensured cached text file are opened with tinmop or user defined programs.

Browse Source
This commit is contained in:
cage 2021-05-18 19:50:50 +02:00
parent 3b30cbd091
commit 63f214c8b3
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/gemini-viewer.lisp
View File

@ -83,14 +83,19 @@
(when-let* ((stream-object (find-db-stream-url iri)))
(with-accessors ((support-file support-file)
(meta meta)) stream-object
(if (gemini-client:mime-gemini-p meta)
(progn
(ensure-just-one-stream-rendering)
(force-rendering-of-cached-file stream-object)
(setf (stream-status stream-object) :completed)
(let ((toc-event (make-instance 'program-events:gemini-toc-open)))
(program-events:push-event toc-event)))
(os-utils:xdg-open support-file)))))
(cond
((gemini-client:mime-gemini-p meta)
(ensure-just-one-stream-rendering)
(force-rendering-of-cached-file stream-object)
(setf (stream-status stream-object) :completed)
(let ((toc-event (make-instance 'program-events:gemini-toc-open)))
(program-events:push-event toc-event)))
((gemini-client:text-file-stream-p meta)
(ensure-just-one-stream-rendering)
(force-rendering-of-cached-file stream-object)
(setf (stream-status stream-object) :completed))
(t
(os-utils:open-resource-with-external-program support-file t))))))
(defclass gemini-stream ()
((download-thread-lock