urbit/pkg/arvo/gen/show-vat.hoon

:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [=desk ~]
        ~
    ==
:-  %tang
%-  flop  ^-  tang
=/  pax=path  /(scot %p p.bec)/[desk]/(scot %da now)
=+  .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin))
:~  '/sys/kelvin:'
    leaf/"[{<lal>} {<num>}]"
    '/desk/bill:'
    (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
==
/gen/show-vat.hoon 2021-06-29 02:07:29 +03:00			`:- %say`
			`\|= $: [now=@da eny=@uvJ bec=beak]`
			`[=desk ~]`
			`~`
			`==`
			`:- %tang`
			`%- flop ^- tang`
			`=/ pax=path /(scot %p p.bec)/[desk]/(scot %da now)`
			`=+ .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin))`
show-vat: change output formatting to match +vats 2022-05-07 11:16:30 +03:00			`:~ '/sys/kelvin:'`
			`leaf/"[{<lal>} {<num>}]"`
			`'/desk/bill:'`
gen: fix broken generators 2021-11-10 11:58:24 +03:00			`(sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))`
/gen/show-vat.hoon 2021-06-29 02:07:29 +03:00			`==`