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

- fixed typo.

This commit is contained in:
cage 2021-08-20 17:54:49 +02:00
parent 7971b9f587
commit 453178e0e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/program-events.lisp
View File

@ -1066,7 +1066,7 @@
(defun relative-path->absolute (path) (defun relative-path->absolute (path)
(uri:normalize-path (fs:prepend-pwd path))) (uri:normalize-path (fs:prepend-pwd path)))
(defun render-directory-ag-gemini-text (root-directory) (defun render-directory-as-gemini-text (root-directory)
(let* ((index-path ( relative-path->absolute root-directory)) (let* ((index-path ( relative-path->absolute root-directory))
(all-paths (mapcar #'uri:normalize-path (all-paths (mapcar #'uri:normalize-path
(fs:collect-children index-path))) (fs:collect-children index-path)))
@ -1116,7 +1116,7 @@
:use-cached-file-if-exists use-cached-file-if-exists)) :use-cached-file-if-exists use-cached-file-if-exists))
((fs:dirp local-path) ((fs:dirp local-path)
(let* ((index-path (relative-path->absolute local-path)) (let* ((index-path (relative-path->absolute local-path))
(raw-text (render-directory-ag-gemini-text local-path)) (raw-text (render-directory-as-gemini-text local-path))
(parsed (gemini-parser:parse-gemini-file raw-text)) (parsed (gemini-parser:parse-gemini-file raw-text))
(links (gemini-parser:sexp->links parsed (links (gemini-parser:sexp->links parsed
nil nil