mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-13 11:45:45 +03:00
32 lines
673 B
Plaintext
32 lines
673 B
Plaintext
!:
|
|
:: /=main=/fun/reset/hoon
|
|
::
|
|
=> .(-< `who=@p`-<)
|
|
|= [est=time *]
|
|
|= arg=*
|
|
=+ ^= lok ^- case
|
|
?: =(~ arg) [%da est]
|
|
?> =(~ +.arg)
|
|
((hard case) -.arg)
|
|
=+ cav=(scot (dime lok))
|
|
=+ top=`path`[(scot %p who) %arvo cav ~]
|
|
=+ pax=`path`(weld top `path`[%hoon ~])
|
|
:_ ~
|
|
:- [%xx %vega pax]
|
|
^- (list gift)
|
|
=+ ^= vay ^- (list ,[p=@tas q=@tas])
|
|
:~ [%$ %zuse]
|
|
[%a %ames]
|
|
[%b %batz]
|
|
[%c %clay]
|
|
[%d %dill]
|
|
[%e %eyre]
|
|
[%f %ford]
|
|
[%g %gall]
|
|
==
|
|
%+ turn vay
|
|
|= [a=@tas b=@tas]
|
|
=+ pax=(weld top `path`[b ~])
|
|
=+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
|
|
`gift`[%xx %veer a pax txt]
|