From 469606c1983236ca823e648fd664bd5f8dd391df Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 6 Oct 2020 21:30:50 -0400
Subject: Allow loading a file with the name in the first line of an SVG
 comment

---
 md.bqn | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/md.bqn b/md.bqn
index d8b7e10c..3dc88c13 100644
--- a/md.bqn
+++ b/md.bqn
@@ -317,10 +317,11 @@ Markdown ← {filename𝕊𝕩:
   # Lazy rule: if it starts with < and contains >, it's probably HTML
   IsHtmlBlock ← ("<!--"≡4↑⊢)◶('>'∨´∘=⊢)‿2
   useRepl←0 ⋄ GetRepl ← {𝕩⋄ useRepl↩1 ⋄ repl}
-  ProcComment ← ⟨"<!--REPL-->"⟩⊸≢◶⟨
-    GetRepl
-    ("<!--SVG"≡⊑∘⊢)◶JoinLines‿(SvgExec∘JoinLines 1↓¯1↓⊢)
-  ⟩
+  ProcComment ← ⟨"<!--REPL-->"⟩⊸≢◶GetRepl‿{
+    n←≠s←"<!--SVG" ⋄ l←¯3↓⍟(1=≠𝕩)⊑𝕩 ⋄ a←s≡n↑l
+    Source ← {((0<≠)◶<‿(•LNS •path∾path∾⊢) Trim n↓l) ∾ 1↓¯1↓𝕩}
+    SvgExec⍟a JoinLines Source⍟a 𝕩
+  }
   ProcHtml ← {
     codeMask ← "<code>" (6⥊0)⊸»⊸(>○(⌈`(1+↕∘≠)⊸×))○(⍷⟜𝕩 ∾ 0⥊˜1-˜≠) "</code>"
     (1¨ <⊸∾ codeMask⊸GetMultiHighlights)⊸Modify 𝕩
-- 
cgit v1.2.3