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

- renamed a few filesystem-window's related functions.

This commit is contained in:
cage 2021-12-12 12:57:08 +01:00
parent 9d4e34505d
commit b7bbb9f7d9
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/init.lisp
View File

@ -596,11 +596,11 @@
;; file explorer
(define-key "x" #'file-explorer-expand *filesystem-explorer-keymap*)
(define-key "x" #'file-explorer-expand-path *filesystem-explorer-keymap*)
(define-key "c" #'file-explorer-close *filesystem-explorer-keymap*)
(define-key "c" #'file-explorer-close-path *filesystem-explorer-keymap*)
(define-key "m" #'file-explorer-rename *filesystem-explorer-keymap*)
(define-key "m" #'file-explorer-rename-path *filesystem-explorer-keymap*)
(define-key "D" #'file-explorer-delete-path *filesystem-explorer-keymap*)

6
src/package.lisp
View File

@ -2787,9 +2787,9 @@
:load-script-file
:view-user-avatar
:open-file-explorer
:file-explorer-expand
:file-explorer-close
:file-explorer-rename
:file-explorer-expand-path
:file-explorer-close-path
:file-explorer-rename-path
:file-explorer-download-path
:file-explorer-delete-path
:file-explorer-create-path

6
src/ui-goodies.lisp
View File

@ -2420,14 +2420,14 @@ printed, on the main window."
(filesystem-tree-window:init "/")
(focus-to-filesystem-explorer-window)))))
(defun file-explorer-expand ()
(defun file-explorer-expand-path ()
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields))
(dirp (fstree:tree-dir-p fields)))
(fstree:expand-treenode win path)))
(defun file-explorer-close ()
(defun file-explorer-close-path ()
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))
(path (fstree:tree-path fields))
@ -2447,7 +2447,7 @@ printed, on the main window."
:prompt
(format nil (_ "delete ~a? ") path)))))
(defun file-explorer-rename ()
(defun file-explorer-rename-path ()
"Rename (or move) a file or directory"
(when-let* ((win *filesystem-explorer-window*)
(fields (line-oriented-window:selected-row-fields win))