mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 17:32:11 +03:00
34 lines
818 B
Plaintext
34 lines
818 B
Plaintext
|
/- spider
|
||
|
|
/+ strandio
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= arg=vase
|
||
|
|
=+ !<([scratch=desk real=desk ~] arg)
|
||
|
|
|^
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
;< apps=(map term vase) bind:m load-apps
|
||
|
|
(pure:m !>((~(run by apps) mug)))
|
||
|
|
::
|
||
|
|
++ scratch-path
|
||
|
|
|= [=bowl:spider =path]
|
||
|
|
(weld /(scot %p our.bowl)/[scratch]/(scot %da now.bowl) path)
|
||
|
|
::
|
||
|
|
++ load-apps
|
||
|
|
=/ m (strand ,(map term vase))
|
||
|
|
^- form:m
|
||
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
||
|
|
=+ .^(=arch %cy (scratch-path bowl /app))
|
||
|
|
=/ apps ~(tap in ~(key by dir.arch))
|
||
|
|
=/ rails
|
||
|
|
%- malt
|
||
|
|
%+ murn apps
|
||
|
|
|= =term
|
||
|
|
^- (unit [^term rail:ford])
|
||
|
|
=+ .^(=app=^arch %cy (scratch-path bowl /app/[term]))
|
||
|
|
?. (~(has by dir.app-arch) %hoon)
|
||
|
|
~
|
||
|
|
`[term our.bowl^scratch /hoon/[term]/app]
|
||
|
|
(build-cores:strandio rails)
|
||
|
|
--
|