urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-24 13:06:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

cell creation loop

Browse Source
This commit is contained in:
hanfel-dovned 2024-05-15 16:41:17 -07:00 committed by Will Hanlen
parent 22c11a5115
commit b34118e9cb
2 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/neo/src/std/con/accel-htmx.hoon
View File

@ -13,11 +13,11 @@
;table.wf.grow.basis-half
;tbody.scroll-none
;*
%+ turn (gulf 1 4)
%+ turn (gulf 1 10)
|= x=@
;tr
;*
%+ turn (gulf 1 4)
%+ turn (gulf 1 10)
|= y=@
=/ val=(unit pail:neo) (~(get by kids.bowl) ~[ud/x ud/y])
=/ vaf (fall val [%accel-cell !>(*accel-cell)])

24
pkg/arvo/neo/src/std/imp/accel.hoon
View File

@ -16,23 +16,13 @@
++ init
|= old=(unit vase)
:_ (need old)
:~ [#/[p/our.bowl]/home/accel/1/1 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/1/2 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/1/3 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/1/4 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/2/1 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/2/2 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/2/3 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/2/4 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/3/1 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/3/2 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/3/3 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/3/4 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/4/1 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/4/2 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/4/3 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
[#/[p/our.bowl]/home/accel/4/4 %make %accel-cell `!>(['~' ~ ~ ~]) ~]
==
%- zing
%+ turn (gulf 1 10)
|= col=@ud
%+ turn (gulf 1 10)
|= row=@ud
[#/[p/our.bowl]/home/accel/[ud/col]/[ud/row] %make %accel-cell `!>(['~' ~ ~ ~]) ~]
::
++ poke
|= [=stud:neo vax=vase]
^- (quip card:neo vase)