mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
28 lines
599 B
Plaintext
28 lines
599 B
Plaintext
!:
|
|
:: /=main=/fun/reboot/hoon
|
|
::
|
|
=> .(- `[who=@p how=path]`-)
|
|
|= [est=time eny=@uw]
|
|
|= arg=*
|
|
=+ ^= lok ^- case
|
|
?: =(~ arg) [%da est]
|
|
?> =(~ +.arg)
|
|
((hard case) -.arg)
|
|
=+ pre=`path`[(scot %p who) %arvo ~(rent co %$ (dime lok)) ~]
|
|
=+ ^= vay ^- (list ,[p=@tas q=@tas])
|
|
:~ [%$ %zuse]
|
|
[%a %ames]
|
|
[%b %batz]
|
|
[%c %clay]
|
|
[%d %dill]
|
|
[%e %eyre]
|
|
[%f %ford]
|
|
[%g %gall]
|
|
==
|
|
:_ ~
|
|
%+ turn vay
|
|
|= [saw=@tas nam=@tas]
|
|
=+ pax=(weld pre `path`[nam ~])
|
|
=+ txt=.^(%cx (weld pax `path`[%hoon ~]))
|
|
[%xx [%veer saw pax txt]]
|