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

- [gemini] expand 'pwd' when printing the directory's contents; 

- [gemini] forced displaying of director with tinmop.
This commit is contained in:
cage 2021-03-28 15:00:00 +02:00
parent ad21da5957
commit 02ea992ca8
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/open-message-link-window.lisp
View File

@ -73,7 +73,8 @@
(defun open-message-link (url enqueue)
(let* ((parsed (iri:iri-parse url))
(scheme (uri:scheme parsed)))
(if (string= gemini-constants:+gemini-scheme+ scheme)
(cond
((string= gemini-constants:+gemini-scheme+ scheme)
(let ((program-events:*process-events-immediately* t)
(event (make-instance 'program-events:gemini-push-behind-downloading-event
:priority program-events:+maximum-event-priority+)))
@ -82,8 +83,15 @@
(gemini-viewer:ensure-just-one-stream-rendering)
(program-events:push-event event)
(gemini-viewer:request url :enqueue enqueue
:use-cached-file-if-exists t))
(os-utils:open-resource-with-external-program url nil))))
:use-cached-file-if-exists t)))
((fs:dirp url)
(let ((program-events:*process-events-immediately* t)
(event (make-instance 'program-events:gemini-push-behind-downloading-event
:priority program-events:+maximum-event-priority+)))
(program-events:push-event event)
(gemini-viewer:load-gemini-url url :give-focus-to-message-window nil)))
(t
(os-utils:open-resource-with-external-program url nil)))))
(defclass open-links-window ()
((links

7
src/program-events.lisp
View File

@ -1017,12 +1017,13 @@
((gemini-client:absolute-gemini-url-p url)
(gemini-viewer:request url :use-cached-file-if-exists use-cached-file-if-exists))
((fs:dirp url)
(let* ((all-paths (fs:prepend-pwd (fs:collect-children url)))
(let* ((index-path (fs:prepend-pwd url))
(all-paths (fs:collect-children index-path))
(raw-text (with-output-to-string (stream)
(write-sequence (gemini-parser:geminize-h1
(format nil
(_ "Index of local directory ~a~2%")
url))
index-path))
stream)
(loop for path in all-paths do
(let* ((dirp (fs:dirp path))
@ -1043,7 +1044,7 @@
(text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window url)
(gemini-viewer:add-url-to-history window index-path)
(refresh-gemini-message-window links raw-text text nil)
(windows:draw window)))
(t