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

- renamed function: 'filesystem-query-treenode' -> 'filesystem-query-path'.

Browse Source
This commit is contained in:
cage 2022-02-16 17:52:10 +01:00
parent 39b0b6ae83
commit 2dce4a6d27
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -431,7 +431,7 @@
(defun download-treenode (window remote-path
&optional
(destination-file (make-temporary-file-from-path remote-path)))
(when-let ((type (filesystem-query-treenode window remote-path :type)))
(when-let ((type (filesystem-query-path window remote-path :type)))
(let ((dirp (eq type :directory)))
(fs:create-file destination-file)
(funcall (filesystem-download-function window)
@ -498,7 +498,7 @@
(win-clear window :redraw nil)
(resync-rows-db window :redraw t :selected-path parent-path))))))))))
(defun filesystem-query-treenode (window path what)
(defun filesystem-query-path (window path what)
(assert (member what '(:size :size-string :permissions :permissions-string :type)))
(funcall (filesystem-query-path-function window)
path
@ -596,9 +596,9 @@
dir
filesystem-expand-function))
(all-files (remove-if (lambda (a)
(let* ((type (filesystem-query-treenode window
a
:type)))
(let* ((type (filesystem-query-path window
a
:type)))
(or (null type)
(eq type :directory))))
all-children)))

2
src/package.lisp
View File

@ -2055,7 +2055,7 @@
:download-treenode
:upload-treenode
:recursive-delete-node
:filesystem-query-treenode
:filesystem-query-path
:mark-node
:open-node
:edit-node

6
src/ui-goodies.lisp
View File

@ -2783,9 +2783,9 @@ if the selected item represents a directory."
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields))
(size (fstree:filesystem-query-treenode win path :size-string))
(permissions (fstree:filesystem-query-treenode win path :permissions-string))
(entry-type (fstree:filesystem-query-treenode win path :type))
(size (fstree:filesystem-query-path win path :size-string))
(permissions (fstree:filesystem-query-path win path :permissions-string))
(entry-type (fstree:filesystem-query-path win path :type))
(bg (swconf:win-bg swconf:+key-help-dialog+))
(fg (swconf:win-fg swconf:+key-help-dialog+)))
(windows:make-blocking-message-dialog *main-window*