From dbade02df05c32e7ff3f746587823896401d87ee Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 11 Mar 2021 09:51:48 -0500 Subject: Use Group trailing length in md.bqn --- md.bqn | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/md.bqn b/md.bqn index 819679a4..4f2fcf6d 100644 --- a/md.bqn +++ b/md.bqn @@ -291,7 +291,7 @@ Markdown ← {filename𝕊𝕩: tags ← rowType ⊏ "th"‿"td" DoRow ← { lf ∾ JoinLines 𝕨 Html¨ 𝕩 } rows ↩ (<˘ tags ∾⌜ align) DoRow¨ incl/rows - rowGroups ← ¯1 ↓ rowType ⊔○(∾⟜2) "tr"⊸Html¨ rows + rowGroups ← (rowType∾2) ⊔ "tr"⊸Html¨ rows sections ← "thead"‿"tbody" Html⟜(lf ∾ JoinLines)¨ rowGroups "table" Html lf ∾ JoinLines (0 < ≠¨rowGroups) / sections } @@ -411,8 +411,8 @@ Markdown ← {filename𝕊𝕩: linkPos ← ⊏˘ lInds lInds +⎉1↩ 1‿0‿1‿0 unused ∧↩ include ∧↩ ¬ ≠` I2M ⥊ (¯1‿1+0‿3⊸⊏)˘ lInds - linkGroup ← 1 -˜ (1‿0⥊˜≢)⊸(/ (⊣×>)○(+`I2M) ¬⊸/) ⥊lInds - links ← ProcLink¨˝˘ (lInds≠⊸≍2) (⊣⥊×´⊸↑) linkGroup ⊔ 𝕩 + linkGroup ← 1 -˜ (⊣×>)○(+`I2M)´ (≠⊸⥊⟜↕∾⊢)⟜2⊸⊔ ⥊lInds + links ← ProcLink¨˝˘ ∘‿2 ⥊ linkGroup ⊔ 𝕩 # Emphasis (still rudimentary) eMasks ← (unused ∧ 𝕩⊸=)¨ "*_" @@ -581,7 +581,7 @@ GetHighlights ← { # Given a list of pairs, get a mask indicating included regions ToMask ← (≠`∨⊢) (≠𝕩)↑/⁼∘∾ # Split rows and group into text‿comments - tc ← ((⊏˘b)⊏c) 2{𝕗↑⊔○(∾⟜𝕗)} <˘b + tc ← ((⊏˘b)⊏c) ∾⟜2⊸⊔ <˘b # Color with "String" and "Comment" col ⌈↩ +´ (2‿1-˜≠classes) × ToMask¨ tc -- cgit v1.2.3