From 7b7204e598c80d6ceed6d8ae12e7863684a62590 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 6 Oct 2020 09:59:26 -0400
Subject: Add code for combinator diagram

---
 svg.bqn | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'svg.bqn')

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
-- 
cgit v1.2.3