From 73dc9172b8686444bc1e6126a0f4377e8373fbb7 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 17 Jul 2020 20:05:50 -0400
Subject: Handle escaped |s in tables

---
 doc/md.bqn | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/doc/md.bqn b/doc/md.bqn
index b303fb30..9a3c90bc 100644
--- a/doc/md.bqn
+++ b/doc/md.bqn
@@ -163,7 +163,12 @@ Markdown ← {𝕊𝕩:1𝕊𝕩; extensions𝕊𝕩:
   # Any line that starts with a | is a table, at least in my lazy version
   IsTable ← 1˜
   ProcTable ← {
-    rows ← (Trim¨ ((1-˜¬×+`)'|'⊸=)⊸⊔)¨ 𝕩
+    CutRow ← {
+      b ← '|' = 𝕩
+      r ← b > 0 Shl '\' = 𝕩
+      1 -˜ (¬r∨1⌽b>r) × +`r
+    }
+    rows ← (Trim¨ CutRow⊸⊔)¨ 𝕩
     inc ← ¬ rule ← ∧´∘∾¨'-'=rows
     rows ↩ ProcInline¨¨⌾(inc⊸/) rows
     rowType ← inc / +` rule  # Head or body
-- 
cgit v1.2.3