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

warn when editing an exported file from a ktxt2 file

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-17 14:05:40 -07:00
parent 33851da69d
commit 095a5df195
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
projects/kiss-vscode/config/KissConfig.kiss
View File

@@ -232,7 +232,18 @@
(registerCommand "${prefix} [u]pdate Kiss-VSCode" updateKissVscode) (registerCommand "${prefix} [u]pdate Kiss-VSCode" updateKissVscode)
(registerCommand "${prefix} [t]est and [u]pdate Kiss-VSCode" testAndUpdateKissVscode) (registerCommand "${prefix} [t]est and [u]pdate Kiss-VSCode" testAndUpdateKissVscode)
// KTxt2.kiss: // KTxt2.kiss:
(registerCommand "${ktxt2Prefix} [i]mport input file" importKTxt2InputFile))) (registerCommand "${ktxt2Prefix} [i]mport input file" importKTxt2InputFile))
// Show a warning when editing a document that is managed by a ktxt2 file
(Vscode.workspace.onDidChangeTextDocument
->e
(let [f e.document.fileName
dir (FileSystem.readDirectory (f.directory))]
(doFor otherF dir
(whenLet [(Some _) (indexOf otherF (.withoutDirectory (f.withoutExtension)))
(Some _) (indexOf otherF (f.extension))
true (otherF.endsWith ".ktxt2")]
(errorMessage "Editing file $(f.withoutDirectory) which is managed by $(otherF.withoutDirectory)"))))))
// TODO standardize this with KissInterp // TODO standardize this with KissInterp
(function :Void prepareInterp [] (function :Void prepareInterp []