@@ -31,7 +31,9 @@
31 ?> ?=(%4 -.new)
31 ?> ?=(%4 -.new)
32 =/ cards=(list card)
32 =/ cards=(list card)
33 =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
33 =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
34− [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]~
34+ :~ [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]
35+ groups-link-patch-card:hc
35 =. cards (weld cards-01 cards)
37 =. cards (weld cards-01 cards)
36 [cards this(state new)]
38 [cards this(state new)]
37++ on-poke on-poke:def
39++ on-poke on-poke:def
@@ -308,6 +310,14 @@
308 (pdata:smel (pmeta:smel gal npoint) ~)
310 (pdata:smel (pmeta:smel gal npoint) ~)
309 s+(crip :(weld "[" gal-data main-data "]"))
311 s+(crip :(weld "[" gal-data main-data "]"))
314+++ groups-link-patch-card
315+ =/ catch [%cord '/apps/groups/desk.js']
316+ =/ hatch [%before "."]
317+ =/ patch [/apps/astrolabe catch hatch groups-link-thatch]
318+ =/ patch-kit-vase !>([/groups/astrolabe/link patch])
319+ [%pass /monkey/patch/groups/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]
311++ read-doc
321++ read-doc
313 =/ doc-path=^path :(weld /doc/usr path /udon)
323 =/ doc-path=^path :(weld /doc/usr path /udon)