Include fmt.bqn from md.bqn instead of duplicating the code

1 files changed, 2 insertions, 60 deletions

diff --git a/md.bqn b/md.bqn
index bc6c9d8e..e2b65992 100644
--- a/md.bqn
+++ b/md.bqn
@@ -545,66 +545,8 @@ GetMultiHighlights ← {
 ################################
 # Format an array to a character matrix
 # Won't work on functions until we can catch errors
-Fmt ← {
-  # Vertical padding for arrays of rank greater than 2
-  PadV ← {
-    # Leading shape
-    ls ← ¯1↓≢𝕩
-    # Empty lines after each row: 1 if it's at the end of a 2-cell, plus
-    # 1 if it's at the end of a 2-cell and a 3-cell, and so on
-    p ← ⥊ +⎉¯1‿∞´ ×⌜˜`⌾⌽ (-1⌈ls)↑¨1
-    # But none at the very end
-    p ↩ 0⌾(¯1⊸⊑) p
-    Pad ← {i←/1+𝕨 ⋄ (¯1¨⌾((¬∊i)⊸/)i) ⊏ 𝕩∾(¯1⊑≢𝕩)⥊" "}
-    p (⊑0∊ls)◶⟨Pad,+´⊸↑⟩ ((×´ls)∾¯1⊑≢𝕩) ⥊ 𝕩
-  }⍟(2 < =)
-  # Horizontal padding: just some spaces on either side
-  PadH ← {
-    (𝕨/" ") (∾⎉1∾⎉1⊣) 𝕩
-  }
-  Pad ← PadH⟜PadV
-  Enframe ← {(1≠𝕨)∨(1≠≠𝕩)∨⊑2∊+`-˝"⟨⟩"=⌜⊏𝕩}◶{
-    ≍"⟨"∾(¯1↓1↓⊏𝕩)∾"⟩"
-  }‿{
-    l ← ¯1 ⊑ ≢𝕩
-    ∾ ⟨ # "┼╒╛╪"
-      1‿l↑∾⟨"┌",(5⊸<)◶⟨⥊"·─"⊏˜1⌊⊢,⍕⟩𝕨⟩
-      ((4⌊0⌈𝕨-1)⊑"·╵╎┆┊")⌾⊑ 𝕩
-      (1∾-l)↑"┘"
-    ⟩
-  }
-  FmtEmpty ← (0‿0≢≢)◶("┌┐"≍"└┘")‿(((2≠=)∨0=≠)◶{
-    '┐'⌾(0‿¯1⊸⊑) 2 Enframe 1 PadH " "¨𝕩
-  }‿{
-    ≍"⟨⟩"∾˜(1<≠)◶⟨"",'⥊'⌾(¯1⊸⊑)·∾·∾⟜"‿"¨⍕¨⟩≢𝕩
-  })
-  PaddingJoin ← {1𝕊𝕩;
-    s ← ≢¨ 𝕩
-    w ← ⌈˝⍟(=-1˜)1⊑¨s
-    h ← ⌈˝⎉1 ⊑¨s
-    ∾⎉2 ≍⍟(0⌈2-=) (h ∾⌜ 𝕨×w¬(-𝕨×≠w)↑1) ↑¨ 𝕩
-  }
-  FmtMixed ← {
-    (=𝕩) Enframe 2 Pad 𝕨 PaddingJoin F¨𝕩
-  }
-  F ← (2⌊≡)◶(≍≤⟜∞◶⟨"'"⊸(∾∾⊣),⍕⟩)‿{
-    num ← 𝕩≤∞ ⋄ r ← =𝕩
-    ((≠(0⊸<+≤)+´)⥊num)◶{
-      # All characters
-      k ← -≠ c ← ¯1↓≢𝕩
-      q ← '"'
-      𝕩 ↩ (1+q=⊢)⊸/⍟(k=0) 𝕩
-      (r Enframe 1 PadH PadV)⍟(1≠r) ≍ (c↑q) ∾⎉k 𝕩 ∾⎉k ⌽⌾⥊c↑q
-    }‿{
-      # Not homogeneous, or empty
-      (∨´0=≢)◶FmtMixed‿FmtEmpty 𝕩
-    }‿{
-      # All numbers
-      ¯1 FmtMixed 𝕩
-    } 𝕩
-  }‿FmtMixed
-  F 𝕩
-}
+fmtm ← ⟨•path∾"src/fmt.bqn"⟩ •EX •path∾"dzref"
+Fmt ← ⍕ _fmtm
 
 
 ################################