@@ -31,7 +31,9 @@
3131 ?> ?=(%4 -.new)
3232 =/ cards=(list card)
3333 =/ 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
36+ ==
3537 =. cards (weld cards-01 cards)
3638 [cards this(state new)]
3739++ on-poke on-poke:def
@@ -308,6 +310,14 @@
308310 (pdata:smel (pmeta:smel gal npoint) ~)
309311 s+(crip :(weld "[" gal-data main-data "]"))
310312::
313+::
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]]
320+::
311321++ read-doc
312322 |= =path
313323 =/ doc-path=^path :(weld /doc/usr path /udon)