1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 11:24:21 +03:00
shrub/pkg/arvo/gen/show-vat.hoon

21 lines
490 B
Plaintext
Raw Normal View History

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)
=/ welt=(list [@tas @ud])
=+ .^(=waft:clay cx+(weld pax /sys/kelvin))
%+ sort ~(tap in (waft-to-wefts:clay waft))
|= [a=weft b=weft]
?: =(lal.a lal.b)
(lte num.a num.b)
(lte lal.a lal.b)
:~ '/sys/kelvin:'
(sell !>(welt))
'/desk/bill:'
2021-11-10 11:58:24 +03:00
(sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
2021-06-29 02:07:29 +03:00
==