kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

allow navigating to parent directors in chooseFileInDir

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-26 23:30:27 -07:00
parent a956bf4081
commit c8c65b66fe
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
projects/kiss-vscode/src/Util.kiss
View File

@@ -97,11 +97,16 @@
(awaitLet [,v (quickPickMap ,options)] (awaitLet [,v (quickPickMap ,options)]
,@body))) ,@body)))
// TODO allow navigating back up to a parent directory
(function :Void chooseFileInDir [:String->Void openFile :Bool allowNew &opt :String dir] (function :Void chooseFileInDir [:String->Void openFile :Bool allowNew &opt :String dir]
(withValueOrInputBox dir (withValueOrInputBox dir
(awaitLet [dirOrFile ((if allowNew autoSuggestPick quickPick) (sys.FileSystem.readDirectory dir))] (set dir (dir.replace "\\" "/"))
(let [dirOrFile (joinPath dir dirOrFile)] (when (dir.endsWith "/") (set dir (substr dir 0 -1)))
(awaitLet [dirOrFile ((if allowNew autoSuggestPick quickPick) (concat [".."] (sys.FileSystem.readDirectory dir)))]
(let [dirOrFile
(case dirOrFile
(".."
(substr dir 0 (dir.lastIndexOf "/")))
(otherwise (joinPath dir dirOrFile)))]
(cond (cond
((sys.FileSystem.isDirectory dirOrFile) ((sys.FileSystem.isDirectory dirOrFile)
(chooseFileInDir openFile allowNew dirOrFile)) (chooseFileInDir openFile allowNew dirOrFile))