Support strong emphasis (but not weird emphasis combinations)

1 files changed, 6 insertions, 5 deletions

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