diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2.kiss index 369f9c9b..4567ebe2 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2.kiss @@ -119,7 +119,7 @@ (let [conversions (validConversions conversions "${base}.${sourceExt}" "${base}.${outputExt}" element.source)] (when (= 1 (count conversions)) (let [onlyConversion (first (collect (conversions.iterator)))] - (set element.output (onlyConversion.convert (applySpecialChars element.source))))))))) + (set element.output (insertSpecialChars (onlyConversion.convert (applySpecialChars element.source)))))))))) (toString elements)))) (function :String insertSpecialChars [:String text] diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss index b0df54cf..482941db 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss @@ -67,7 +67,7 @@ (when (= "Overwrite" overwrite) (withValueOrQuickPickMap chosenConversion conversions (whenLet [converted - (try (chosenConversion.convert (KTxt2.applySpecialChars source)) + (try (KTxt2.insertSpecialChars (chosenConversion.convert (KTxt2.applySpecialChars source))) (catch [e] (errorMessage "Conversion error: $e") null))] (makeEdit ->edit (edit.replace document.uri (rangeFromStartEnd outputStart outputEnd) converted)))))))