From 095a5df195ae55cef7f5806ce7494ef372941dfb Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Fri, 17 Dec 2021 14:05:40 -0700 Subject: [PATCH] warn when editing an exported file from a ktxt2 file --- projects/kiss-vscode/config/KissConfig.kiss | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss index 921edbb8..36c769cf 100644 --- a/projects/kiss-vscode/config/KissConfig.kiss +++ b/projects/kiss-vscode/config/KissConfig.kiss @@ -232,7 +232,18 @@ (registerCommand "${prefix} [u]pdate Kiss-VSCode" updateKissVscode) (registerCommand "${prefix} [t]est and [u]pdate Kiss-VSCode" testAndUpdateKissVscode) // 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 (function :Void prepareInterp []