From 03c6c17c6e8e73bfb0b1cd9630c24f541ee8cec7 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 1 Nov 2021 11:44:54 -0400 Subject: [PATCH] Print notification when ktxt2 export succeeds --- projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss index ab240f11..db23e703 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss @@ -3,6 +3,7 @@ // Based on https://github.com/microsoft/vscode-extension-samples/blob/main/custom-editor-sample/src/catScratchEditor.ts (function register [context] + (set Prelude.printStr ->s (infoMessage s)) (let [provider (new KTxt2EditorProvider context)] (Vscode.window.registerCustomEditorProvider "ktxt2.splitView" provider))) @@ -111,4 +112,5 @@ sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}") outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")] (File.saveContent sourceFilename sourceText) - (File.saveContent outputFilename outputText))) \ No newline at end of file + (File.saveContent outputFilename outputText) + (print "Export for $(document.fileName.withoutDirectory) succeeded."))) \ No newline at end of file