Add code for combinator diagram

1 files changed, 6 insertions, 0 deletions

diff --git a/svg.bqn b/svg.bqn
index 69441d66..ae7b12de 100644
--- a/svg.bqn
+++ b/svg.bqn
@@ -1,5 +1,11 @@
 # Utilities for creating SVG diagrams as strings
 
+# Snag the code highlighter from md.bqn
+Highlight ← {
+  AddT ← (↑∾"t"∾↓)¨˜⟜(1‿2⥊˜≢)  # span to tspan
+  (1¨ <⊸∾ ·AddT⌾⊑GetHighlights)⊸Modify 𝕩
+}
+
 IsLines ← 1<≡
 DeNest ← {(3⌊≡)◶⟨!∘0,⥊<,⊢,∾𝕊¨⟩ ⥊𝕩}
 Indent ← "  "⊸∾¨ DeNest