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

fix KTxt2 import split by paragraphs

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-03 19:47:56 -07:00
parent 3b5d03005b
commit f8e1d5d8ce
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/Main.kiss
View File

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

2
projects/kiss-vscode/src/commands/KTxt2Tools.kiss
View File

@@ -8,7 +8,7 @@
outputType (if (outputType.startsWith ".") (outputType.substr 1) outputType) outputType (if (outputType.startsWith ".") (outputType.substr 1) outputType)
ktxt2Filename "${file}.${outputType}.ktxt2" ktxt2Filename "${file}.${outputType}.ktxt2"
&mut newContents "" &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) (doFor block (inputBlocks.slice 0 -1)
(+= newContents (_blockOf block splitBy))) (+= newContents (_blockOf block splitBy)))
(+= newContents (_blockOf (last inputBlocks) "")) (+= newContents (_blockOf (last inputBlocks) ""))