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

awaitLet allow synchronous bindings. Close #68

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-18 20:23:59 +00:00
parent fc431b164d
commit 5b4424fd96
2 changed files with 48 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
projects/kiss-vscode/src/commands/KissTools.kiss
View File

@@ -52,22 +52,22 @@ class ${className} {}
(showTextDocument (Uri.file (correspondingFile .fileName .document activeTextEditor))))
(function insertUTestCase [&opt _]
(awaitLet [testName (inputBox)]
(let [testName
"$(.toUpperCase (testName.substr 0 1))$(testName.substr 1)"]
(awaitLet [_ (insert
(awaitLet [testName (inputBox)
&sync testName
"$(.toUpperCase (testName.substr 0 1))$(testName.substr 1)"
_ (insert
"function test${testName}() {
_test${testName}();
}
")
_ (showTextDocument (Uri.file (correspondingFile .fileName .document activeTextEditor)))]
(let [pos (activeTextEditor.document.positionAt .length (activeTextEditor.document.getText))]
(awaitLet [_ (insertAt pos
_ (showTextDocument (Uri.file (correspondingFile .fileName .document activeTextEditor)))
&sync pos (activeTextEditor.document.positionAt .length (activeTextEditor.document.getText))
_ (insertAt pos
"
(function _test${testName} []
(Assert.pass))
")]
(let [endPos (activeTextEditor.document.positionAt .length (activeTextEditor.document.getText))]
(activeTextEditor.revealRange (new Range pos endPos))
(set activeTextEditor.selection (new Selection pos endPos)))))))))
")
&sync endPos (activeTextEditor.document.positionAt .length (activeTextEditor.document.getText))]
(activeTextEditor.revealRange (new Range pos endPos))
(set activeTextEditor.selection (new Selection pos endPos))))