aboutsummaryrefslogtreecommitdiff
path: root/svg.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'svg.bqn')
-rw-r--r--svg.bqn11
1 files changed, 4 insertions, 7 deletions
diff --git a/svg.bqn b/svg.bqn
index 2881a925..be859fec 100644
--- a/svg.bqn
+++ b/svg.bqn
@@ -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 ← {∾⟨"<",𝕩,"/>"⟩}