on main help sign in
add monkey patch for groups
fa58580John Hyde
desk/app/astrolabe.hoon+11−1
@@ -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
36+ ==
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 "]"))
310::
312::
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+::
311++ read-doc
321++ read-doc
312 |= =path
322 |= =path
313 =/ doc-path=^path :(weld /doc/usr path /udon)
323 =/ doc-path=^path :(weld /doc/usr path /udon)
desk/desk.docket-0+1−1
@@ -4,7 +4,7 @@
4 image+'https://raw.githubusercontent.com/johnhyde/astrolabe/main/ui/src/assets/astrolabe-tile.svg'
4 image+'https://raw.githubusercontent.com/johnhyde/astrolabe/main/ui/src/assets/astrolabe-tile.svg'
5 glob-http+['https://s3.us-east-2.amazonaws.com/warkgnall.com/urbit/astrolabe/globs/glob-0v4.88rt1.guqn5.nnatp.lca68.ej9aj.glob' 0v4.88rt1.guqn5.nnatp.lca68.ej9aj]
5 glob-http+['https://s3.us-east-2.amazonaws.com/warkgnall.com/urbit/astrolabe/globs/glob-0v4.88rt1.guqn5.nnatp.lca68.ej9aj.glob' 0v4.88rt1.guqn5.nnatp.lca68.ej9aj]
6 base+'astrolabe'
6 base+'astrolabe'
7− version+[1 0 0]
7+ version+[1 0 1]
8 website+'https://github.com/johnhyde/astrolabe'
8 website+'https://github.com/johnhyde/astrolabe'
9 license+'MIT'
9 license+'MIT'
10==
10==
desk/lib/astrolabe.hoon+21
@@ -203,4 +203,25 @@
203 ^- $-(json [%share ship])
203 ^- $-(json [%share ship])
204 (of share+(su ;~(pfix sig fed:ag)) ~)
204 (of share+(su ;~(pfix sig fed:ag)) ~)
205 --
205 --
206+::
207+::
208+++ groups-link-thatch
209+'''
210+setInterval(() => {
211+ const spans = document.querySelectorAll('section > div > div > div > span > span:first-child');
212+ spans.forEach((span) => {
213+ if (span.innerHTML !== '~') return;
214+ let c = span.parentElement.parentElement;
215+ if (c.children.length > 1) return;
216+ let patp = c.innerText;
217+ let b = document.createElement('a');
218+ b.innerHTML = "View in Astrolabe";
219+ b.className = 'button ml-4';
220+ b.href = 'web+urbitgraph://astrolabe/ship/' + patp;
221+ b.target = '_blank';
222+ b.style.backgroundColor = "navy";
223+ c.appendChild(b);
224+ });
225+}, 100);
226+'''
206--
227--