From e861e7f18d11bbc85cb3ea01e53d4b2eb736b537 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 9 May 2022 15:38:15 -0400 Subject: [PATCH] report error when ktxt2 source and output ext are same --- .../kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss index c1c103b9..9490053b 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss @@ -123,12 +123,16 @@ (function exportSourceAndOutputFiles [document] (let [:String ktxt2FullFilename document.fileName - [sourceText outputText] (KTxt2.extractFileContents (Stream.fromFile ktxt2FullFilename) ->message (errorMessage message)) ktxt2Directory (ktxt2FullFilename.directory) ktxt2Filename (ktxt2FullFilename.withoutDirectory) [baseFilename sourceExt outputExt ktxt2Ext] (ktxt2Filename.split ".") sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}") outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")] - (File.saveContent sourceFilename sourceText) - (File.saveContent outputFilename outputText) - (print "Export for $(document.fileName.withoutDirectory) succeeded."))) \ No newline at end of file + (when (= sourceExt outputExt) + (let [m "Source and output extension cannot be the same in $ktxt2Filename"] + (errorMessage m) + (throw m))) + (let [[sourceText outputText] (KTxt2.extractFileContents (Stream.fromFile ktxt2FullFilename) ->message (errorMessage message))] + (File.saveContent sourceFilename sourceText) + (File.saveContent outputFilename outputText) + (print "Export for $(document.fileName.withoutDirectory) succeeded.")))) \ No newline at end of file