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

- [kamid] using the path of the uri when mounting a filesystem.

Browse Source
This commit is contained in:
cage 2022-01-22 13:33:41 +01:00
parent 8e1586de15
commit c7132f3ccc
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/kami/client.lisp
View File

@ -145,11 +145,17 @@
(a:when-let ((stat-entry (9p:path-exists-p *stream* root-fid path))) (a:when-let ((stat-entry (9p:path-exists-p *stream* root-fid path)))
(9p:stat-size stat-entry)))))))) (9p:stat-size stat-entry))))))))
(defun generate-filesystem-window-handlers (root host port client-certificate client-key) (defun generate-filesystem-window-handlers (path host port
query fragment
client-certificate client-key)
(with-open-ssl-stream (stream socket host port client-certificate client-key) (with-open-ssl-stream (stream socket host port client-certificate client-key)
(let* ((*stream* stream) (let* ((*stream* stream)
(*root-fid* (9p:mount *stream* root))) (*root-fid* (9p:mount *stream* "/")))
(list :filesystem-expand-function (expand-node *stream* *root-fid*) (list :query query
:fragment fragment
:socket socket
:path path
:filesystem-expand-function (expand-node *stream* *root-fid*)
:filesystem-rename-function (rename-node *stream* *root-fid*) :filesystem-rename-function (rename-node *stream* *root-fid*)
:filesystem-delete-function (delete-node *stream* *root-fid*) :filesystem-delete-function (delete-node *stream* *root-fid*)
:filesystem-create-function (create-node *stream* *root-fid*) :filesystem-create-function (create-node *stream* *root-fid*)
@ -166,9 +172,11 @@
(gemini-client:fetch-cached-certificate kami-iri) (gemini-client:fetch-cached-certificate kami-iri)
(multiple-value-bind (actual-iri host path query port fragment scheme) (multiple-value-bind (actual-iri host path query port fragment scheme)
(gemini-client:displace-iri parsed-iri) (gemini-client:displace-iri parsed-iri)
(declare (ignore actual-iri query fragment scheme)) (declare (ignore actual-iri scheme))
(kami:generate-filesystem-window-handlers path (kami:generate-filesystem-window-handlers path
host host
port port
query
fragment
cached-certificate cached-certificate
cached-key))))) cached-key)))))