summaryrefslogtreecommitdiff
path: root/app/lib/nostrill.hoon
diff options
context:
space:
mode:
Diffstat (limited to 'app/lib/nostrill.hoon')
-rw-r--r--app/lib/nostrill.hoon44
1 files changed, 44 insertions, 0 deletions
diff --git a/app/lib/nostrill.hoon b/app/lib/nostrill.hoon
new file mode 100644
index 0000000..41caff2
--- /dev/null
+++ b/app/lib/nostrill.hoon
@@ -0,0 +1,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)]
+ --
+--