From b7bbb9f7d98aa27119eb860308243d4cad636af0 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 12 Dec 2021 12:57:08 +0100
Subject: [PATCH] - renamed a few filesystem-window's related functions.

---
 etc/init.lisp       | 6 +++---
 src/package.lisp    | 6 +++---
 src/ui-goodies.lisp | 6 +++---
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/etc/init.lisp b/etc/init.lisp
index 82683fe..0459863 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -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*)
 
diff --git a/src/package.lisp b/src/package.lisp
index 830f3ca..87d4dc4 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -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
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 303f5db..b3bc710 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -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))