From 7e4f3c269b04c40424c3334647fc2b75927b9dbd Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Wed, 17 Feb 2021 09:56:40 -0700 Subject: [PATCH] kiss-vscode insert, insertAt functions --- projects/kiss-vscode/config/KissConfig.kiss | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss index 23be6906..0ff6d82e 100644 --- a/projects/kiss-vscode/config/KissConfig.kiss +++ b/projects/kiss-vscode/config/KissConfig.kiss @@ -28,6 +28,18 @@ (document.getText range)) "")) +// TODO make an async annotation that throws an error if the promise is not wrapped in awaitLet or awaitBegin or returned by an async function? +// but in some cases it doesn't matter and there are so many edge cases. +(defun insertAt [:Position pos text] + (.edit activeTextEditor + (lambda [e] + (e.insert pos text)))) + +(defun insert [text] + // TODO this let is because identifier alias dot access is broken: + (let [editor activeTextEditor] + (insertAt editor.selection.active text))) + /** * State */