aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--md.bqn11
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