@@ -18,7 +18,10 @@
1818++ on-init
1919 ^- (quip card _this)
2020 :_ this
21− [az-events-card:hc]~
21+ :~ ug-handler-card:hc
22+ groups-link-patch-card:hc
23+ az-events-card:hc
24+ ==
2225::
2326++ on-save !>(state)
2427++ on-load
@@ -30,8 +33,7 @@
3033 (on-naive-state:hc get-nas:hc)
3134 ?> ?=(%4 -.new)
3235 =/ cards=(list card)
33− =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
34− :~ [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]
36+ :~ ug-handler-card:hc
3537 groups-link-patch-card:hc
3638 ==
3739 =. cards (weld cards-01 cards)
@@ -311,10 +313,13 @@
311313 s+(crip :(weld "[" gal-data main-data "]"))
312314::
313315::
316+++ ug-handler-card
317+ =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
318+ [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]
314319++ groups-link-patch-card
315320 =/ catch [%cord '/apps/groups/desk.js']
316321 =/ hatch [%before "."]
317− =/ patch [/apps/astrolabe catch hatch groups-link-thatch]
322+ =/ patch [/apps/groups catch hatch groups-link-thatch]
318323 =/ patch-kit-vase !>([/groups/astrolabe/link patch])
319324 [%pass /monkey/patch/groups/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]
320325::