urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-09-11 20:27:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

revert vase pretty-printing

Browse Source
This commit is contained in:
Will Hanlen 2024-06-19 11:17:04 -04:00
parent 436d474f7c
commit 152fcf0b27
1 changed files with 45 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
pkg/arvo/neo/cod/std/src/con/vase-htmx.hoon
View File

@ -2,19 +2,26 @@
:- [%vase %$ %htmx] :- [%vase %$ %htmx]
|= vax=vase |= vax=vase
|= =bowl:neo |= =bowl:neo
=; revert :: XX fix vase printing
;/ (of-wall:format (~(win re (sell vax)) 0 80)) ::
=/ depth=@ud 2 =/ depth=@ud 2
=/ ty p.vax =/ ty p.vax
|- ^- manx |- ^- manx
=* loop $ =* loop $
|^ ^- manx |^ ^- manx
?: =(depth 0) ?: =(depth 0)
;/ "Bottoming out" ;/ "Bottoming out"
=/ arms (slow:neo ty) =/ arms (slow:neo ty)
=/ items=(list item:dprint:neo) =/ items=(list item:dprint:neo)
(zing (turn arms |=(ls=(list term) `(list item:dprint:neo)`(drop (find-item-in-type:dprint:neo ls ty))))) (zing (turn arms |=(ls=(list term) `(list item:dprint:neo)`(drop (find-item-in-type:dprint:neo ls ty)))))
;div ;div
;* (turn items print-item) ;*
== ?: =(0 (lent items))
;=
;+ ;/ (of-wall:format (~(win re (sell vax)) 0 80))
==
(turn items print-item)
==
++ print-item ++ print-item
|= val=item:dprint:neo |= val=item:dprint:neo
^- manx ^- manx
@ -22,7 +29,7 @@
%core (print-core +.val) %core (print-core +.val)
%chapter (print-chapter +.val) %chapter (print-chapter +.val)
%arm (print-arm +.val) %arm (print-arm +.val)
%view %view
;div ;div
;* (turn items.val print-overview-item) ;* (turn items.val print-overview-item)
== ==
@ -30,7 +37,7 @@
++ print-overview-item ++ print-overview-item
|= tim=overview-item:dprint:neo |= tim=overview-item:dprint:neo
^- manx ^- manx
?- -.tim ?- -.tim
%header (print-overview-header +.tim) %header (print-overview-header +.tim)
%item (print-overview-item-actual +.tim) %item (print-overview-item-actual +.tim)
== ==
@ -80,7 +87,7 @@
;div ;div
;* (print-what "Overview" docs) ;* (print-what "Overview" docs)
;* (print-what "Tome" p.tom) ;* (print-what "Tome" p.tom)
;* ;*
%+ turn ~(tap by q.tom) %+ turn ~(tap by q.tom)
|= [=term =hoon] |= [=term =hoon]
^- manx ^- manx
@ -101,31 +108,33 @@
=/ t (~(play ut sut) gen) =/ t (~(play ut sut) gen)
^- manx ^- manx
;div ;div.fc.g2
;h3 ;h3: {(weld "+" name)}
; + ;details.br1.bd1
; {name} ;summary.br1.b1.p-1: signature
== ;code.p2
;div ;pre.mono
;details ;*
;summary: Signature %+ turn (wash [0 80] ~(duck easy-print:neo t))
;code |= tap=tape
;pre ;div: {tap}
;*
%+ turn (wash [0 80] ~(duck easy-print:neo t))
|= tap=tape
;div: {tap}
==
== ==
== ==
;div: Docs
;* (print-what "" adoc)
;* (print-what "Product" pdoc)
;* (print-what "$" cdoc)
== ==
;div: Children ;details.br1.bd1
;+ ;summary.br1.b1.p-1: docs
loop(ty (~(play ut ty) gen), depth (dec depth)) ;div.p2.fc.g1
;* (print-what "" adoc)
;* (print-what "Product" pdoc)
;* (print-what "$" cdoc)
==
==
;details.br1.bd1
;summary.br1.b1.p-1: children
;div.p2
;+ loop(ty (~(play ut ty) gen), depth (dec depth))
==
==
== ==
:: ::
++ print-what ++ print-what
@ -138,11 +147,11 @@
;div ;div
; {(trip p.u.wat)} ; {(trip p.u.wat)}
== ==
;details ;details.br1.bd1
;summary ;summary.p-1.b1.br1
; {(trip p.u.wat)} ; {(trip p.u.wat)}
== ==
;div ;div.p2
;* (turn q.u.wat print-sect) ;* (turn q.u.wat print-sect)
== ==
== ==