mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
21 lines
300 B
Plaintext
21 lines
300 B
Plaintext
:: Produce an ivory pill
|
|
::
|
|
:::: /hoon/ivory/gen
|
|
::
|
|
/? 310
|
|
/+ pill
|
|
::
|
|
::::
|
|
!:
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
arg=$@(~ [top=path ~])
|
|
~
|
|
==
|
|
:- %noun
|
|
^- pill:pill
|
|
=/ sys=path
|
|
?^ arg top.arg
|
|
/(scot %p p.bec)/[q.bec]/(scot %da now)/sys
|
|
(ivory:pill sys)
|