From 99ebfb2faf3a73dd90d8e30d16c80ce371cc0d14 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 19 Jul 2020 14:59:33 -0400
Subject: Support strong emphasis (but not weird emphasis combinations)

---
 md.bqn | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'md.bqn')

diff --git a/md.bqn b/md.bqn
index 42e88a42..1e107a9a 100644
--- a/md.bqn
+++ b/md.bqn
@@ -279,11 +279,12 @@ Markdown ← {𝕊𝕩:1𝕊𝕩; extensions𝕊𝕩:
 
     # Emphasis (still rudimentary)
     eMasks ← (unused ∧ 𝕩⊸=)¨ "*_"
-    eInds ← ∾ (⊢-2|⊢)∘≠⊸↑∘/¨ eMasks
-    include ∧↩ ¬ I2M ∧ eInds
-    eTags ← eInds ≠⊸⥊ "<em>"‿"</em>"
-    eInds ∾↩ codeBounds
-    eTags ∾↩ codeBounds ≠⊸⥊ "<code>"‿"</code>"
+    eMasks ↩ 0⊸Shr⊸∧¨⊸(⊣∾˜0⊸Shl⊸∨⊸<¨) eMasks
+    eInds ← (⊢-2|⊢)∘≠⊸↑∘/¨ eMasks
+    include ∧↩ ¬ I2M ∧ ∾ eInds∾1+2↓eInds
+    eInds ∾↩ ⟨codeBounds⟩
+    eTags ← ∾ eInds ≠⊸⥊¨ 2‿2‿1 / ("<"‿"</"∾¨·<∾⟜">")¨ "em"‿"strong"‿"code"
+    eInds ↩ ∾ eInds
 
     # Remove backslashes used for escaping
     include ∧↩ codeMask ∨ 1 ⌽ actual
-- 
cgit v1.2.3