cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-21 08:50:51 +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 (defun download-treenode (window remote-path
&optional &optional
(destination-file (make-temporary-file-from-path remote-path))) (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))) (let ((dirp (eq type :directory)))
(fs:create-file destination-file) (fs:create-file destination-file)
(funcall (filesystem-download-function window) (funcall (filesystem-download-function window)
@ -498,7 +498,7 @@
(win-clear window :redraw nil) (win-clear window :redraw nil)
(resync-rows-db window :redraw t :selected-path parent-path)))))))))) (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))) (assert (member what '(:size :size-string :permissions :permissions-string :type)))
(funcall (filesystem-query-path-function window) (funcall (filesystem-query-path-function window)
path path
@ -596,9 +596,9 @@
dir dir
filesystem-expand-function)) filesystem-expand-function))
(all-files (remove-if (lambda (a) (all-files (remove-if (lambda (a)
(let* ((type (filesystem-query-treenode window (let* ((type (filesystem-query-path window
a a
:type))) :type)))
(or (null type) (or (null type)
(eq type :directory)))) (eq type :directory))))
all-children))) all-children)))

2
src/package.lisp
View File

@ -2055,7 +2055,7 @@
:download-treenode :download-treenode
:upload-treenode :upload-treenode
:recursive-delete-node :recursive-delete-node
:filesystem-query-treenode :filesystem-query-path
:mark-node :mark-node
:open-node :open-node
:edit-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*) (when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win)) (fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields)) (path (fstree:tree-path fields))
(size (fstree:filesystem-query-treenode win path :size-string)) (size (fstree:filesystem-query-path win path :size-string))
(permissions (fstree:filesystem-query-treenode win path :permissions-string)) (permissions (fstree:filesystem-query-path win path :permissions-string))
(entry-type (fstree:filesystem-query-treenode win path :type)) (entry-type (fstree:filesystem-query-path win path :type))
(bg (swconf:win-bg swconf:+key-help-dialog+)) (bg (swconf:win-bg swconf:+key-help-dialog+))
(fg (swconf:win-fg swconf:+key-help-dialog+))) (fg (swconf:win-fg swconf:+key-help-dialog+)))
(windows:make-blocking-message-dialog *main-window* (windows:make-blocking-message-dialog *main-window*