diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2.kiss index e6774da2..4f080b15 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2.kiss @@ -55,7 +55,7 @@ (set block.output outputBlock) (set block.outputStart outputStartPosition) (set block.outputEnd outputEndPosition))) - (None + (otherwise (break))) (elements.push (Block block)))) elements)) diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss index 5ef3efb8..989b109e 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss @@ -46,7 +46,7 @@ }))) ((objectWith [type "find"] text) (_find text)) - (otherType (throw "bad message $event for KTxt2Editor")))) + (otherwise (throw "bad message $event for KTxt2Editor")))) (window.addEventListener "scroll" ->(let [s (getState)] @@ -399,10 +399,9 @@ (content.appendChild topLink))) (doFor [idx element] (.slice (collect (enumerate ktxt2Elements)) elementScrollY (+ elementScrollY PAGE_SIZE)) (case element - ((Comment (objectWith text)) - (throw "comments are no longer a feature!")) ((Block (objectWith source output outputLocked)) - (blockElements source output outputLocked idx)))) + (blockElements source output outputLocked idx)) + (otherwise (throw "shouldn't happen")))) (when (> (- ktxt2Elements.length 1) (+ elementScrollY SCROLL_AMOUNT)) (let [downLink (document.createElement "a") bottomLink (document.createElement "a")]