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

removed useless spaces and fixed function name.

This commit is contained in:
cage 2022-02-16 17:59:08 +01:00
parent 8246ac9211
commit 8bf1a629d1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -420,8 +420,8 @@
(resync-rows-db window :redraw t :selected-path path)))
(defun create-treenode (window path dirp)
(when-let* ((root-node (filesystem-root window))
(parent-node (find-node root-node (fs:parent-dir-path path))))
(when-let* ((root-node (filesystem-root window))
(parent-node (find-node root-node (fs:parent-dir-path path))))
(funcall (filesystem-create-function window) path dirp)
(remove-all-children parent-node)
(expand-treenode window (tree-path (data parent-node)))
@ -438,8 +438,8 @@
(make-instance 'm-tree :data (make-node-data remote-path dirp))
destination-file))))
(defun upload-treenode (window source-file remote-path &key (force-upload nil))
(let ((root-node (filesystem-root window)))
(defun upload-path (window source-file remote-path &key (force-upload nil))
(let ((root-node (filesystem-root window)))
(if force-upload
(funcall (filesystem-upload-function window)
source-file
@ -579,7 +579,7 @@
(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
(upload-path window
downloaded-path
node-path)))))