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

- renamed function: 'download-treenode' -> 'download-path'.

This commit is contained in:
cage 2022-02-16 17:55:32 +01:00
parent 2dce4a6d27
commit 982965585f
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/filesystem-tree-window.lisp
View File

@ -428,9 +428,9 @@
(win-clear window :redraw nil)
(resync-rows-db window :redraw t :selected-path path)))
(defun download-treenode (window remote-path
&optional
(destination-file (make-temporary-file-from-path remote-path)))
(defun download-path (window remote-path
&optional
(destination-file (make-temporary-file-from-path remote-path)))
(when-let ((type (filesystem-query-path window remote-path :type)))
(let ((dirp (eq type :directory)))
(fs:create-file destination-file)
@ -566,7 +566,7 @@
(node-path (tree-path node-data)))
(if (tree-dir-p node-data)
(expand-treenode window node-path)
(let ((downloaded-path (download-treenode window node-path)))
(let ((downloaded-path (download-path window node-path)))
(os-utils:open-resource-with-external-program downloaded-path nil)))))
(defun edit-node (window path)
@ -576,7 +576,7 @@
(node-path (tree-path node-data)))
(if (tree-dir-p node-data)
(expand-treenode window node-path)
(let ((downloaded-path (download-treenode window node-path)))
(let ((downloaded-path (download-path window node-path)))
(croatoan:end-screen)
(os-utils:open-resource-with-external-program downloaded-path nil :open-for-edit t)
(upload-treenode window

2
src/package.lisp
View File

@ -2052,7 +2052,7 @@
:rename-treenode
:delete-treenode
:create-treenode
:download-treenode
:download-path
:upload-treenode
:recursive-delete-node
:filesystem-query-path

10
src/ui-goodies.lisp
View File

@ -2534,9 +2534,9 @@ printed, on the main window."
(with-blocking-notify-procedure
((format nil (_ "Starting download of ~a") path)
(format nil (_ "Download completed in ~a") destination-file))
(fstree:download-treenode win path destination-file)
(fstree:download-path win path destination-file)
(info-message destination-file))
(fstree:download-treenode win path destination-file))))))
(fstree:download-path win path destination-file))))))
(if force
(on-input-complete output-file)
(ask-string-input #'on-input-complete
@ -2584,9 +2584,9 @@ Note: existing file will be overwritten."
(_ "Download of ~a completed in ~a")
remote-file
local-file))
(fstree:download-treenode win
remote-file
local-file))))))))))
(fstree:download-path win
remote-file
local-file))))))))))
(ask-string-input #'on-input-destination-dir
:initial-value local-dir
:complete-fn #'complete:directory-complete