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