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

fix vscode api inputEditor

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-13 15:00:52 -06:00
parent 5f1fe7434f
commit 8d51b6fa30
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
projects/kiss-vscode-api/src/Util.kiss
View File

@@ -272,9 +272,9 @@
(print "Enter ${prompt}, then save and close this editor.") (print "Enter ${prompt}, then save and close this editor.")
(let [&mut :Disposable closeEvent null] (let [&mut :Disposable closeEvent null]
(set closeEvent (set closeEvent
(Vscode.workspace.onDidCloseTextDocument (Vscode.window.onDidChangeVisibleTextEditors
->closedDoc ->visibleEditors
(when (= closedDoc.fileName doc.fileName) (unless (contains visibleEditors editor)
(closeEvent.dispose) (closeEvent.dispose)
(awaitLet [_ (showTextDocument previousEditor.document)] (awaitLet [_ (showTextDocument previousEditor.document)]
(if editor.document.isDirty (let [error "Input editor for $prompt was closed without saving."] (warningMessage error) (reject error)) (resolve (editor.document.getText)))))))))))) (if editor.document.isDirty (let [error "Input editor for $prompt was closed without saving."] (warningMessage error) (reject error)) (resolve (editor.document.getText))))))))))))

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

@@ -1,6 +1,6 @@
(defCommand context kiss.evalAndPrint "Evaluate and print a kiss expression's value" "C-; C-e" [] (defCommand context kiss.evalAndPrint "Evaluate and print a kiss expression's value" "C-; C-e" []
(let [st (selectedText)] (let [st (selectedText)]
(withValueOrInputEditor st "kiss.evalAndPrint" "// A kiss expression to evaluate" (withValueOrInputEditor st "kiss.evalAndPrint" "A kiss expression to evaluate"
(infoMessage (Std.string (evalString st)))))) (infoMessage (Std.string (evalString st))))))
(defCommand context kiss.newKissClass "Create a new kiss class" "C-; C-c" [] (defCommand context kiss.newKissClass "Create a new kiss class" "C-; C-c" []