blob: 41caff2379bbd6e19cc200e87215b36b67273eca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
/- post=trill-post, nsur=nostr, sur=nostrill, gate=trill-gate, comms=nostrill-comms
/+ trill=trill-post, nostr-keys, sr=sortug, jsonlib=json-nostrill
|%
::
++ default-state |= =bowl:gall ^- state:sur
=/ s *state-0:sur
=/ l public-relays:nsur
:: =/ l (scag 1 l)
:: =/ l ~['wss://relay.damus.io' 'wss://nos.lol']
=/ rl %+ turn l |= t=@t [t *relay-stats:nsur]
:: =/ l ~[['wss://relay.damus.io' ~]]
=/ key (gen-keys:nostr-keys eny.bowl)
=/ keyl [key ~]
s(relays (malt rl), keys keyl)
++ print-relay-stats
|= rm=(map @t relay-stats:nsur)
=/ l ~(tap by rm)
|- ?~ l ~
=/ [url=@t rs=relay-stats:nsur] i.l
~& relay=url
~& connected=connected.rs
~& sub-count=~(wyt by reqs.rs)
=/ total-received
%+ roll ~(tap by reqs.rs)
|= [[* es=event-stats:nsur] acc=@ud]
%+ add acc received.es
~& >> total=total-received
$(l t.l)
::
++ cards
|_ =bowl:gall
++ shim-binding ^- card:agent:gall
[%pass /binding %arvo %e %connect [~ /nostr-shim] dap.bowl]
++ update-ui |= =fact:ui:sur ^- card:agent:gall
=/ jon (fact:en:jsonlib fact)
[%give %fact ~[/ui] %json !>(jon)]
:: ++ update-followers |= =fact:comms ^- card:agent:gall
++ update-followers |= =fact:comms ^- card:agent:gall
[%give %fact ~[/follow] %noun !>(fact)]
--
--
|
