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

insert special characters to converted ktxt2 blocks

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-14 14:01:03 -07:00
parent d3b8bbcf8a
commit 8b871bf8e9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
projects/kiss-vscode/src/ktxt2/KTxt2.kiss
View File

@@ -119,7 +119,7 @@
(let [conversions (validConversions conversions "${base}.${sourceExt}" "${base}.${outputExt}" element.source)] (let [conversions (validConversions conversions "${base}.${sourceExt}" "${base}.${outputExt}" element.source)]
(when (= 1 (count conversions)) (when (= 1 (count conversions))
(let [onlyConversion (first (collect (conversions.iterator)))] (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)))) (toString elements))))
(function :String insertSpecialChars [:String text] (function :String insertSpecialChars [:String text]

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

@@ -67,7 +67,7 @@
(when (= "Overwrite" overwrite) (when (= "Overwrite" overwrite)
(withValueOrQuickPickMap chosenConversion conversions (withValueOrQuickPickMap chosenConversion conversions
(whenLet [converted (whenLet [converted
(try (chosenConversion.convert (KTxt2.applySpecialChars source)) (try (KTxt2.insertSpecialChars (chosenConversion.convert (KTxt2.applySpecialChars source)))
(catch [e] (errorMessage "Conversion error: $e") null))] (catch [e] (errorMessage "Conversion error: $e") null))]
(makeEdit (makeEdit
->edit (edit.replace document.uri (rangeFromStartEnd outputStart outputEnd) converted))))))) ->edit (edit.replace document.uri (rangeFromStartEnd outputStart outputEnd) converted)))))))