mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 10:21:31 +03:00
27 lines
731 B
Plaintext
27 lines
731 B
Plaintext
|
:: Produce a raw event to reload a vane
|
||
|
|
::
|
||
|
|
:: Try: .event/ovo +reload-event %c, then restart urbit with
|
||
|
|
:: -I pier/.urb/put/event.ovo
|
||
|
|
::
|
||
|
|
:- %say
|
||
|
|
|= $: [now=@da eny=@uvJ bek=beak]
|
||
|
|
[[tam=term ~] ~]
|
||
|
|
==
|
||
|
|
:- %ovo
|
||
|
|
=/ top `path`/(scot %p p.bek)/[q.bek]/(scot r.bek)
|
||
|
|
=/ nam
|
||
|
|
=/ van=(list [term ~])
|
||
|
|
:- zus=[%zuse ~]
|
||
|
|
~(tap by dir:.^(arch %cy (welp top /sys/vane)))
|
||
|
|
?. =(1 (met 3 tam))
|
||
|
|
tam
|
||
|
|
=+ ^- zaz=(list [p=knot ~])
|
||
|
|
(skim van |=([a=term ~] =(tam (end 3 1 a))))
|
||
|
|
?> ?=([[@ ~] ~] zaz)
|
||
|
|
`term`p.i.zaz
|
||
|
|
=/ tip (end 3 1 nam)
|
||
|
|
=/ bip ?:(=('z' tip) %$ tip)
|
||
|
|
=/ way ?:(=('z' tip) (welp top /sys/[nam]) (welp top /sys/vane/[nam]))
|
||
|
|
=/ fil .^(@ %cx (welp way /hoon))
|
||
|
|
[//arvo %veer bip way fil]
|