mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 01:33:53 +03:00
separate out hood dsl implementation from main switchboard
This commit is contained in:
parent
564d7ebf0c
commit
63d8c83cea
@ -92,13 +92,7 @@
|
||||
~& loaded+-.dat
|
||||
[~ %_(+> lac (~(put by lac) -.dat dat))]
|
||||
::
|
||||
++ coup-drum-phat (wrap take-coup-phat):from-drum
|
||||
++ coup-helm-hi (wrap coup-hi):from-helm
|
||||
++ coup-helm-ask (wrap coup-ask):from-helm
|
||||
++ coup-kiln-fancy (wrap take-coup-fancy):from-kiln
|
||||
++ coup-kiln-reload (wrap take-coup-reload):from-kiln
|
||||
++ coup-kiln-spam (wrap take-coup-spam):from-kiln
|
||||
++ diff-sole-effect-drum-phat (wrap diff-sole-effect-phat):from-drum
|
||||
::
|
||||
++ from-lib
|
||||
|* _[%sample ..$ _abet]:(hood-sample)
|
||||
=> .(+< [identity start finish]=+<)
|
||||
@ -113,7 +107,16 @@
|
||||
++ from-kiln (from-lib %kiln [..$ _abet]:(hood-kiln))
|
||||
++ from-womb (from-lib %womb [..$ _abet]:(hood-womb))
|
||||
++ from-write (from-lib %write [..$ _abet]:(hood-write))
|
||||
::
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
++ coup-drum-phat (wrap take-coup-phat):from-drum
|
||||
++ coup-helm-hi (wrap coup-hi):from-helm
|
||||
++ coup-helm-ask (wrap coup-ask):from-helm
|
||||
++ coup-kiln-fancy (wrap take-coup-fancy):from-kiln
|
||||
++ coup-kiln-reload (wrap take-coup-reload):from-kiln
|
||||
++ coup-kiln-spam (wrap take-coup-spam):from-kiln
|
||||
++ diff-sole-effect-drum-phat (wrap diff-sole-effect-phat):from-drum
|
||||
++ init-helm |=({way/wire *} [~ +>])
|
||||
++ made-write (wrap made):from-write
|
||||
++ made-kiln (wrap take-made):from-kiln
|
||||
|
Loading…
Reference in New Issue
Block a user