mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 05:22:27 +03:00
command interface - give a cell a target pith and stud, and output will route to that pith
This commit is contained in:
parent
6fd8378779
commit
ae372ea6c1
@ -25,4 +25,5 @@
|
|||||||
(vol:mu "code")
|
(vol:mu "code")
|
||||||
?~(a-path ~ `(pave:neo u.a-path))
|
?~(a-path ~ `(pave:neo u.a-path))
|
||||||
?~(b-path ~ `(pave:neo u.b-path))
|
?~(b-path ~ `(pave:neo u.b-path))
|
||||||
|
~ :: XX fill in target
|
||||||
==
|
==
|
||||||
|
@ -65,7 +65,13 @@
|
|||||||
=/ vavb=[vase vase] (get-deps-vases bowl)
|
=/ vavb=[vase vase] (get-deps-vases bowl)
|
||||||
=. result.cell
|
=. result.cell
|
||||||
(render-hoon code.cell vavb)
|
(render-hoon code.cell vavb)
|
||||||
[~ !>(cell)]
|
:_ !>(cell)
|
||||||
|
?~ target.cell ~
|
||||||
|
?~ result.cell ~
|
||||||
|
?- -.u.result.cell
|
||||||
|
%.n ~
|
||||||
|
%.y [pith.u.target.cell %poke [stud.u.target.cell p.u.result.cell]]~
|
||||||
|
==
|
||||||
--
|
--
|
||||||
|%
|
|%
|
||||||
++ state %accel-cell
|
++ state %accel-cell
|
||||||
|
@ -11,7 +11,7 @@
|
|||||||
|= col=@ud
|
|= col=@ud
|
||||||
%+ turn (gulf rowstart rowend)
|
%+ turn (gulf rowstart rowend)
|
||||||
|= row=@ud
|
|= row=@ud
|
||||||
[#/[p/our.bowl]/home/accel/[ud/col]/[ud/row] %make %accel-cell `!>(['~' ~ ~ ~]) ~]
|
[#/[p/our.bowl]/home/accel/[ud/col]/[ud/row] %make %accel-cell `!>(['~' ~ ~ ~ ~]) ~]
|
||||||
--
|
--
|
||||||
::
|
::
|
||||||
^- firm:neo
|
^- firm:neo
|
||||||
@ -56,7 +56,11 @@
|
|||||||
:_ sta
|
:_ sta
|
||||||
=; conf
|
=; conf
|
||||||
:~ :- (welp here.bowl ~[[ud/row.poke] [ud/column.poke]])
|
:~ :- (welp here.bowl ~[[ud/row.poke] [ud/column.poke]])
|
||||||
[%make %accel-cell `!>([text.poke ~ refa.poke refb.poke]) conf]
|
:* %make
|
||||||
|
%accel-cell
|
||||||
|
`!>([text.poke ~ refa.poke refb.poke target.poke])
|
||||||
|
conf
|
||||||
|
==
|
||||||
==
|
==
|
||||||
:: there has to be a more elegant way to do this
|
:: there has to be a more elegant way to do this
|
||||||
?~ refa.poke
|
?~ refa.poke
|
||||||
|
@ -2,4 +2,5 @@ $: code=@t
|
|||||||
result=(unit (each vase tang))
|
result=(unit (each vase tang))
|
||||||
refa=(unit pith)
|
refa=(unit pith)
|
||||||
refb=(unit pith)
|
refb=(unit pith)
|
||||||
|
target=(unit [=pith =stud:neo])
|
||||||
==
|
==
|
||||||
|
@ -9,5 +9,6 @@ $% [%inc-width ~]
|
|||||||
text=@t
|
text=@t
|
||||||
refa=(unit pith)
|
refa=(unit pith)
|
||||||
refb=(unit pith)
|
refb=(unit pith)
|
||||||
|
target=(unit [pith stud:neo])
|
||||||
==
|
==
|
||||||
==
|
==
|
Loading…
Reference in New Issue
Block a user