Allow loading a file with the name in the first line of an SVG comment

1 files 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 𝕩