Text Table🔗 i

;Minimalistic example:

> (print-table

'((abcdefggggh)

(123456775415646547987411)

(111223333445678888)))

┌───┬───┬────┬──┬─┬──────────┬────┬────┐

│a│b│c │d │e│f │gggg│h │

├───┼───┼────┼──┼─┼──────────┼────┼────┤

│123│456│77│54│1│5646547987│41│1 │

├───┼───┼────┼──┼─┼──────────┼────┼────┤

│111│22 │3333│44│5│6 │7 │8888│

└───┴───┴────┴──┴─┴──────────┴────┴────┘

;With more bells and whistles

> (print-table

'((abcdefggggh)

(123456775415646547987411)

(111223333445678888))

#:border-style'double

#:framed?#f

#:row-sep?#t

#:align'(leftcenterright))

a║ b ║ c║ d║e║ f║gggg║ h

═══╬═══╬════╬══╬═╬══════════╬════╬════

123║456║77║54║1║5646547987║41║ 1

═══╬═══╬════╬══╬═╬══════════╬════╬════

111║22 ║3333║44║5║ 6║ 7║8888

;Custom border style using border-style-frame/c

> (print-table '((abcabcabc)

(abcdefababcdef)

(aabcdefabc))

#:border-style

'("╭─┬╮"

"│.││"

"├─┼┤"

"╰─┴╯")

#:align'(center)

#:framed?#t

#:row-sep?#t)

╭──────┬──────┬──────╮

│.abc..│.abc..│.abc..│

├──────┼──────┼──────┤

│abcdef│..ab..│abcdef│

├──────┼──────┼──────┤

│..a...│abcdef│.abc..│

╰──────┴──────┴──────╯

;Custom border style using border-style2/c

> (print-table '((abcabcabc)

(abcdefababcdef)

(aabcdefabc))

#:border-style

'(("<table>""""""")

("<tr><td> "" "" </td><td> "" </td></tr>")

("""""""")

("</table>"""""""))

#:framed?#t

#:row-sep?#f)

<table>

<tr><td> abc</td><td> abc</td><td> abc</td></tr>

<tr><td> abcdef </td><td> ab </td><td> abcdef </td></tr>

<tr><td> a</td><td> abcdef </td><td> abc</td></tr>

</table>

;LaTeX style

> (print-table '((abcabcabc)

(abcdefababcdef)

(aabcdefabc))

#:border-style'latex)

\begin{tabular}{|l|l|l|}

\hline

abc& abc& abc\\

\hline

abcdef & ab & abcdef \\

\hline

a& abcdef & abc\\

\hline

\end{tabular}

;Aligning numbers (incorrectly then well)

> (print-table

#:row-sep?'(#t#f...)

#:col-sep?'(#t#f...)

#:align'(leftright...center)

#:->string

(list

~a ;Name

~a (~r* )(~r* #:precision'(=2))(~r* #:notation'exponential);Speed

~a );Unit

;The table:

(map (λ (l)(pattern-list->list l6))

`((NameSpeed...Unit)

(Alice10..."km/h")

(Bob,(sqrt 2)..."m/s")

(Charlie+inf.0+nan.0......n/a)

(light,(* 299792458(expt 103))..."mm/s"))))

┌───────┬─────────────────────────────────────────────────────────────────┐

│Name │ SpeedSpeed SpeedSpeed Unit│

├───────┼─────────────────────────────────────────────────────────────────┤

│Alice│10 10 10.001e+01 km/h│

│Bob│1.4142135623730951 1.4142141.41 1.414214e+00 m/s │

│Charlie│+inf.0 +nan.0+inf.0 +nan.0 n/a │

│light│299792458000 299792458000 299792458000.00 2.997925e+11 mm/s│

└───────┴─────────────────────────────────────────────────────────────────┘

;Empty style and doubly repeating alignments

> (print-simple-table

#:border-style'empty

#:align'(rightleft......)

(list (make-list10'*)

(make-list10'**)

(make-list10'***)

(make-list10'****)

(make-list10'*****)

(make-list10"|")))

**********

********************

******************************

****************************************

**************************************************

||||||||||

;Multiple separators

> (print-table (for/list ((i6))(for/list ((j10))(* (+ i1)(+ j1))))

#:row-sep?'(#t#f......)

#:col-sep?'(#t#f......))

┌─┬─────┬─────┬─────┬─────┬──┐

│1│23 │45 │67 │89 │10│

├─┼─────┼─────┼─────┼─────┼──┤

│2│46 │810│12 14│16 18│20│

│3│69 │12 15│18 21│24 27│30│

├─┼─────┼─────┼─────┼─────┼──┤

│4│812│16 20│24 28│32 36│40│

│5│10 15│20 25│30 35│40 45│50│

├─┼─────┼─────┼─────┼─────┼──┤

│6│12 18│24 30│36 42│48 54│60│

└─┴─────┴─────┴─────┴─────┴──┘