diff options
Diffstat (limited to 'svg.bqn')
| -rw-r--r-- | svg.bqn | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -6,16 +6,13 @@ Highlight ← { (1¨ <⊸∾ ·AddT⌾⊑GetHighlights)⊸Modify 𝕩 } -IsLines ← 1<≡ -DeNest ← {(3⌊≡)◶⟨!∘0,⥊<,⊢,∾𝕊¨⟩ ⥊𝕩} -Indent ← " "⊸∾¨ DeNest - # Create a node from a tag name and interior text. Enc ← { + DeNest ← {(3⌊≡)◶⟨!∘0,⥊<,⊢,∾𝕊¨⟩ ⥊𝕩} open ← ∾⟨"<",𝕨,">"⟩ - close← ∾⟨"</", (⊑𝕨⊐" ")↑𝕨, ">"⟩ - l ← IsLines 𝕩 - ∾ open (Indent⍟l 𝕩){𝕨‿𝕗‿𝕩}○(⥊∘<⍟l) close + close← ∾⟨"</", (∧`𝕨≠' ')/𝕨, ">"⟩ + l ← 1 < d←≡𝕩 + ∾ open ({" "⊸∾¨(∾DeNest¨)⍟(3≤d)⥊𝕩}⍟l 𝕩){𝕨‿𝕗‿𝕩}○(⥊∘<⍟l) close } Void ← {∾⟨"<",𝕩,"/>"⟩} |
