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

Print notification when ktxt2 export succeeds

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-11-01 11:44:54 -04:00
parent cf98701076
commit 03c6c17c6e
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss
View File

@@ -3,6 +3,7 @@
// Based on https://github.com/microsoft/vscode-extension-samples/blob/main/custom-editor-sample/src/catScratchEditor.ts // Based on https://github.com/microsoft/vscode-extension-samples/blob/main/custom-editor-sample/src/catScratchEditor.ts
(function register [context] (function register [context]
(set Prelude.printStr ->s (infoMessage s))
(let [provider (new KTxt2EditorProvider context)] (let [provider (new KTxt2EditorProvider context)]
(Vscode.window.registerCustomEditorProvider "ktxt2.splitView" provider))) (Vscode.window.registerCustomEditorProvider "ktxt2.splitView" provider)))
@@ -111,4 +112,5 @@
sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}") sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}")
outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")] outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")]
(File.saveContent sourceFilename sourceText) (File.saveContent sourceFilename sourceText)
(File.saveContent outputFilename outputText))) (File.saveContent outputFilename outputText)
(print "Export for $(document.fileName.withoutDirectory) succeeded.")))