@@ -18,7 +18,10 @@
19 ^- (quip card _this)
19 ^- (quip card _this)
21+ :~ ug-handler-card:hc
22+ groups-link-patch-card:hc
21− [az-events-card:hc]~
23+ az-events-card:hc
23++ on-save !>(state)
26++ on-save !>(state)
@@ -30,8 +33,7 @@
30 (on-naive-state:hc get-nas:hc)
33 (on-naive-state:hc get-nas:hc)
31 ?> ?=(%4 -.new)
34 ?> ?=(%4 -.new)
32 =/ cards=(list card)
35 =/ cards=(list card)
33− =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
36+ :~ ug-handler-card:hc
34− :~ [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]
35 groups-link-patch-card:hc
37 groups-link-patch-card:hc
37 =. cards (weld cards-01 cards)
39 =. cards (weld cards-01 cards)
@@ -311,10 +313,13 @@
311 s+(crip :(weld "[" gal-data main-data "]"))
313 s+(crip :(weld "[" gal-data main-data "]"))
317+ =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])
318+ [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]
314++ groups-link-patch-card
319++ groups-link-patch-card
315 =/ catch [%cord '/apps/groups/desk.js']
320 =/ catch [%cord '/apps/groups/desk.js']
316 =/ hatch [%before "."]
321 =/ hatch [%before "."]
317− =/ patch [/apps/astrolabe catch hatch groups-link-thatch]
322+ =/ patch [/apps/groups catch hatch groups-link-thatch]
318 =/ patch-kit-vase !>([/groups/astrolabe/link patch])
323 =/ patch-kit-vase !>([/groups/astrolabe/link patch])
319 [%pass /monkey/patch/groups/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]
324 [%pass /monkey/patch/groups/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]