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")
|
||||
?~(a-path ~ `(pave:neo u.a-path))
|
||||
?~(b-path ~ `(pave:neo u.b-path))
|
||||
~ :: XX fill in target
|
||||
==
|
||||
|
@ -65,7 +65,13 @@
|
||||
=/ vavb=[vase vase] (get-deps-vases bowl)
|
||||
=. result.cell
|
||||
(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
|
||||
|
@ -11,7 +11,7 @@
|
||||
|= col=@ud
|
||||
%+ turn (gulf rowstart rowend)
|
||||
|= 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
|
||||
@ -56,7 +56,11 @@
|
||||
:_ sta
|
||||
=; conf
|
||||
:~ :- (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
|
||||
?~ refa.poke
|
||||
|
@ -2,4 +2,5 @@ $: code=@t
|
||||
result=(unit (each vase tang))
|
||||
refa=(unit pith)
|
||||
refb=(unit pith)
|
||||
target=(unit [=pith =stud:neo])
|
||||
==
|
||||
|
@ -9,5 +9,6 @@ $% [%inc-width ~]
|
||||
text=@t
|
||||
refa=(unit pith)
|
||||
refb=(unit pith)
|
||||
target=(unit [pith stud:neo])
|
||||
==
|
||||
==
|
Loading…
Reference in New Issue
Block a user