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

Add newline placeholder in Ktxt2

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-03 15:58:17 -07:00
parent 3a3d69d13a
commit eaaf443ca2
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -67,8 +67,11 @@
"${blockStartEnd}${source}$(if outputLocked lockedStart unlockedStart)${output}${blockStartEnd}")))) "${blockStartEnd}${source}$(if outputLocked lockedStart unlockedStart)${output}${blockStartEnd}"))))
// To save window space after each block editor, ¶ can be used in place of \n\n // To save window space after each block editor, ¶ can be used in place of \n\n
// and ↵ in place of \n
(function :String applySpecialChars [:String text] (function :String applySpecialChars [:String text]
(text.replace "¶" "\n\n")) (.replace
(text.replace "¶" "\n\n")
"↵" "\n"))
// Return [sourceFile outputFile] // Return [sourceFile outputFile]
(function :Array<String> extractFileContents [:Stream fileStream :String->Dynamic reportError] (function :Array<String> extractFileContents [:Stream fileStream :String->Dynamic reportError]

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

@@ -10,9 +10,14 @@
(defNew [&prop :ExtensionContext context]) (defNew [&prop :ExtensionContext context])
(method :String insertSpecialChars [:String text] (method :String insertSpecialChars [:String text]
(if (text.endsWith "\n\n") (let [text (text.replace "\r" "")]
(+ (text.substr 0 (- text.length 2)) "¶") (cond
text)) ((text.endsWith "\n\n")
(+ (substr text 0 -2) "¶"))
((text.endsWith "\n")
(+ (substr text 0 -1) "↵"))
(true
text))))
(method :Promise<Void> resolveCustomTextEditor [:TextDocument document :WebviewPanel webviewPanel :CancellationToken _token] (method :Promise<Void> resolveCustomTextEditor [:TextDocument document :WebviewPanel webviewPanel :CancellationToken _token]
(set webviewPanel.webview.options (object enableScripts true)) (set webviewPanel.webview.options (object enableScripts true))