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

- [kamid] printed 'type' of node in the details window; 

- fixed typos in docstring.
This commit is contained in:
cage 2022-01-28 15:09:53 +01:00
parent ddd2a2825e
commit 9752f1e7bc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ui-goodies.lisp
View File

@ -2506,7 +2506,7 @@ printed, on the main window."
:initial-value output-file))))
(defun file-explorer-download-path ()
"Download file or files, wildcard are allowed (e.g. \"/foo/*.lisp\")."
"Download file or files, wildcards are allowed (e.g. \"/foo/*.lisp\")."
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(remote-dir (fstree:tree-path fields))
@ -2555,7 +2555,7 @@ printed, on the main window."
(defun file-explorer-upload-path ()
"Upload a file or files, wildcard are allowed (e.g. \"/foo/*.lisp\")."
"Upload a file or files, wildcards are allowed (e.g. \"/foo/*.lisp\")."
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(destination-dir (fstree:tree-path fields)))
@ -2706,18 +2706,21 @@ if the selected item represents a directory."
(fstree:open-node win path)))
(defun file-explorer-node-details ()
"Print details dor the node (name, permissions etc.)"
"Print details for the node (name, permissions etc.)"
(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 (symbol-name (fstree:filesystem-query-treenode 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*
nil
(format nil (_ "Details of: ~a") path)
(list (_ "Size")
(list (_ "Type")
entry-type
(_ "Size")
size
(_ "Permissions")
permissions)