revert vase pretty-printing

This commit is contained in:
Will Hanlen 2024-06-19 11:17:04 -04:00
parent 436d474f7c
commit 152fcf0b27

View File

@ -2,6 +2,8 @@
:- [%vase %$ %htmx]
|= vax=vase
|= =bowl:neo
=; revert :: XX fix vase printing
;/ (of-wall:format (~(win re (sell vax)) 0 80)) ::
=/ depth=@ud 2
=/ ty p.vax
|- ^- manx
@ -13,7 +15,12 @@
=/ items=(list item:dprint:neo)
(zing (turn arms |=(ls=(list term) `(list item:dprint:neo)`(drop (find-item-in-type:dprint:neo ls ty)))))
;div
;* (turn items print-item)
;*
?: =(0 (lent items))
;=
;+ ;/ (of-wall:format (~(win re (sell vax)) 0 80))
==
(turn items print-item)
==
++ print-item
|= val=item:dprint:neo
@ -101,16 +108,12 @@
=/ t (~(play ut sut) gen)
^- manx
;div
;h3
; +
; {name}
==
;div
;details
;summary: Signature
;code
;pre
;div.fc.g2
;h3: {(weld "+" name)}
;details.br1.bd1
;summary.br1.b1.p-1: signature
;code.p2
;pre.mono
;*
%+ turn (wash [0 80] ~(duck easy-print:neo t))
|= tap=tape
@ -118,14 +121,20 @@
==
==
==
;div: Docs
;details.br1.bd1
;summary.br1.b1.p-1: docs
;div.p2.fc.g1
;* (print-what "" adoc)
;* (print-what "Product" pdoc)
;* (print-what "$" cdoc)
==
;div: Children
;+
loop(ty (~(play ut ty) gen), depth (dec depth))
==
;details.br1.bd1
;summary.br1.b1.p-1: children
;div.p2
;+ loop(ty (~(play ut ty) gen), depth (dec depth))
==
==
==
::
++ print-what
@ -138,11 +147,11 @@
;div
; {(trip p.u.wat)}
==
;details
;summary
;details.br1.bd1
;summary.p-1.b1.br1
; {(trip p.u.wat)}
==
;div
;div.p2
;* (turn q.u.wat print-sect)
==
==