fix KTxt2 import split by paragraphs

This commit is contained in:
2021-12-03 19:47:56 -07:00
parent 3b5d03005b
commit f8e1d5d8ce
2 changed files with 2 additions and 2 deletions

View File

@@ -55,7 +55,7 @@
oldFileMTime
(mTime oldConfigFile)
userConfigMTime
(let [foldersToCheck [(userConfigDir) builtinConfigDir ]]
(let [foldersToCheck [(userConfigDir) builtinConfigDir]]
(when commandsDir
(foldersToCheck.push commandsDir))
(apply max

View File

@@ -8,7 +8,7 @@
outputType (if (outputType.startsWith ".") (outputType.substr 1) outputType)
ktxt2Filename "${file}.${outputType}.ktxt2"
&mut newContents ""
:kiss.List<String> inputBlocks (.split (File.getContent file) splitBy)]
:kiss.List<String> inputBlocks (.split (.replace (File.getContent file) "\r" "") splitBy)]
(doFor block (inputBlocks.slice 0 -1)
(+= newContents (_blockOf block splitBy)))
(+= newContents (_blockOf (last inputBlocks) ""))