2020-03-21 01:30:24 +03:00
|
|
|
/- spider
|
|
|
|
|
/+ strandio
|
|
|
|
|
=, strand=strand:spider
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=+ !<([scratch=desk real=desk ~] arg)
|
|
|
|
|
|^
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
^- form:m
|
2020-03-21 01:30:52 +03:00
|
|
|
;< apps=(map path vase) bind:m load-apps
|
2020-03-21 01:30:24 +03:00
|
|
|
(pure:m !>((~(run by apps) mug)))
|
|
|
|
|
::
|
|
|
|
|
++ scratch-path
|
|
|
|
|
|= [=bowl:spider =path]
|
|
|
|
|
(weld /(scot %p our.bowl)/[scratch]/(scot %da now.bowl) path)
|
|
|
|
|
::
|
|
|
|
|
++ load-apps
|
2020-03-21 01:30:52 +03:00
|
|
|
=/ m (strand ,(map path vase))
|
2020-03-21 01:30:24 +03:00
|
|
|
^- 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)
|
|
|
|
|
~
|
2020-03-21 01:30:52 +03:00
|
|
|
`[/[term] our.bowl^scratch /hoon/[term]/app]
|
2020-03-21 01:30:24 +03:00
|
|
|
(build-cores:strandio rails)
|
|
|
|
|
--
|
