From 2afb23928e1984d475cc460e1672e8f6fa0e4dbe Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 11 Aug 2021 17:21:31 -0400
Subject: Allow clicking on header to get fragment link

---
 md.bqn | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'md.bqn')

diff --git a/md.bqn b/md.bqn
index 6990f238..c5c579c3 100644
--- a/md.bqn
+++ b/md.bqn
@@ -256,8 +256,11 @@ Markdown ← {filename𝕊𝕩:
       b ← bounds ⍋ 𝕩
       ((2|b)∨∊⟜("-"∾'0'+↕10))⊸/ 𝕩+32×1=b
     }
-    extensions { tag ∾↩ " id="∾""""(∾∾⊣) Slugify 𝕩 }⍟⊣ 𝕩
-    tag Html ProcInline Trim 𝕩
+    ExtHtml ← 𝕩{
+      s←Slugify 𝕗 ⋄ Q ← """"⊸(∾∾⊣)
+      (𝕨 ∾ " id="∾Q s) Html ("a class=""header"" href="∾Q"#"∾s) Html 𝕩
+    }
+    tag extensions◶Html‿ExtHtml ProcInline Trim 𝕩
   }⟜⊑
 
   # List items start with a bullet (unordered) or number (ordered).
-- 
cgit v1.2.3