From b2806d7af02e46069c5604baab70592f3e6096bc Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 24 Sep 2020 14:08:54 -0400
Subject: Support table column alignment in md.bqn

---
 md.bqn | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'md.bqn')

diff --git a/md.bqn b/md.bqn
index 428992d0..45fdada0 100644
--- a/md.bqn
+++ b/md.bqn
@@ -254,14 +254,17 @@ Markdown ← {filename𝕊𝕩:
     r ← b > » '\' = 𝕩      # Non-escaped bars
     1 -˜ (¬r∨«b>r) × o + +` r
   }
+  alignments ← (" align="""∾∾⟜"""")⍟(0<≠)¨ ""‿"right"‿"left"‿"center"
   ProcTable ← {
     rows ← (Trim¨ CutTableRow⊸⊔)¨ 𝕩
-    inc ← ¬ rule ← ∧´∘∾¨'-'=rows
-    rows ↩ ProcInline¨¨⌾(inc⊸/) rows
+    incl ← ¬ rule ← (∧´∾∊"-:"˙)¨ rows
+    align ← alignments ⊏˜ (+˜⊸+´0‿¯1⊏⊢)¨ ':' = ⊑ rule / rows
+    rows ↩ ProcInline¨¨⌾(incl⊸/) rows
     rows ↩ (⊏rows) (⊢ ∾ ⟨""⟩ /˜ 0⌈-○≠)¨ rows
-    rowType ← inc / +` rule  # Head or body
-    DoRow ← { lf ∾ JoinLines 𝕨⊸Html¨ 𝕩 }
-    rows ↩ (rowType ⊏ "th"‿"td") DoRow¨ inc/rows
+    rowType ← incl / +` rule  # Head or body
+    tags ← rowType ⊏ "th"‿"td"
+    DoRow ← { lf ∾ JoinLines 𝕨 Html¨ 𝕩 }
+    rows ↩ (<˘ tags ∾⌜ align) DoRow¨ incl/rows
     rowGroups ← ¯1 ↓ rowType ⊔○(∾⟜2) "tr"⊸Html¨ rows
     sections ← "thead"‿"tbody" Html⟜(lf ∾ JoinLines)¨ rowGroups
     "table" Html lf ∾ JoinLines (0 < ≠¨rowGroups) / sections
-- 
cgit v1.2.3