cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-26 09:27:36 +01:00
Code Issues

- [kamid] instructed program to download the element if the url's path points to a file.

Browse Source
This commit is contained in:
cage 2022-01-23 14:21:12 +01:00
parent 1cf9be1863
commit 7f6e079b51
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/ui-goodies.lisp
View File

@ -2429,10 +2429,17 @@ printed, on the main window."
(tui:with-notify-errors
(let ((handlers (kami:iri->filesystem-window-handlers url)))
(if handlers
(let* ((path (uri:path (iri:iri-parse url)))
(path-to-dir-p (fs:path-referencing-dir-p path))
(init-path (if path-to-dir-p
path
(fs:parent-dir-path path))))
(filesystem-tree-window:init init-path handlers)
(if path-to-dir-p
(focus-to-filesystem-explorer-window)
(progn
(filesystem-tree-window:init (uri:path (iri:iri-parse url))
handlers)
(focus-to-filesystem-explorer-window))
(%file-explorer-download-path path)
(file-explorer-close-path))))
(error-message (format nil
(_ "~s is not a valid kami address")
url))))))))
@ -2481,11 +2488,9 @@ printed, on the main window."
:prompt
(format nil (_ "Rename ~a to: ") path)))))
(defun file-explorer-download-path ()
(defun %file-explorer-download-path (path)
"Download a file"
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields))
(output-file (fs:temporary-file)))
(flet ((on-input-complete (destination-file)
(when (string-not-empty-p destination-file)
@ -2499,6 +2504,13 @@ printed, on the main window."
:prompt (format nil (_ "Download ~a to: ") path)
:initial-value output-file))))
(defun file-explorer-download-path ()
"Download a file"
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields)))
(%file-explorer-download-path path)))
(defun file-explorer-upload-path ()
"Upload a file"
(when-let* ((win *filesystem-explorer-window*)