mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
21 lines
490 B
Plaintext
21 lines
490 B
Plaintext
:- %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:'
|
|
(sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
|
|
==
|