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

- substituted . with $PWD when opening file explorer.

This commit is contained in:
cage 2022-01-06 18:22:33 +01:00
parent 339afc6ee0
commit 6fd24dd441
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ui-goodies.lisp
View File

@ -2416,8 +2416,9 @@ printed, on the main window."
(defun open-file-explorer (&optional (root "/"))
(with-enqueued-process ()
(filesystem-tree-window:init root)
(focus-to-filesystem-explorer-window)))
(let ((actual-root (fs:prepend-pwd root)))
(filesystem-tree-window:init actual-root)
(focus-to-filesystem-explorer-window))))
(defun file-explorer-expand-path ()
(when-let* ((win *filesystem-explorer-window*)