mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 01:41:37 +03:00
15 lines
345 B
Plaintext
15 lines
345 B
Plaintext
:- %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))))
|
|
==
|