1 files changed, 51 insertions, 0 deletions
diff --git a/desk/lib/nostr/keys.hoon b/desk/lib/nostr/keys.hoon
new file mode 100644
index 0000000..90eb563
--- /dev/null
+++ b/desk/lib/nostr/keys.hoon
@@ -0,0 +1,51 @@
+/-  sur=nostr
+/+  js=json-nostr, sr=sortug
+|%
+++  gen-sub-id  |=  eny=@  ^-  @t
+  %-  crip  (scag 60 (scow:sr %uw eny))
+++  gen-keys  |=  eny=@  ^-  keys:sur
+  =,  secp256k1:secp:crypto
+  =/  privkey
+  |-  
+    =/  k  (~(rad og eny) (bex 256))
+    ?.  (lth k n.t)  $  k
+
+  =/  pubkey  (priv-to-pub privkey)
+  =/  pub  (compress-point pubkey)
+  :: =/  pub  (serialize-point pubkey)
+  [pub=pub priv=privkey]
+::
+++  hash-event  |=  raw=raw-event:sur  ^-  @ux
+  =/  jon  (raw-event:en:js raw)
+  =/  jstring  (en:json:html jon)
+  (swp 3 (shax jstring))
+
+++  raws
+  |=  [eny=@ bits=@]
+  ^-  [@ @]
+  [- +>-]:(~(raws og eny) bits)
+
+++  sign-event  |=  [priv=@ux hash=@ux eny=@]
+  =^  sed  eny  (raws eny 256)
+  (sign:schnorr:secp256k1:secp:crypto priv hash sed)
+
+
+:: 
+++  validate-pubkey  |=  pubkey=@ux  ^-  ?
+  =/  tap  (scow:sr %ux pubkey)
+  .=  (lent tap)  64
+::  
+++  diff-filters
+|=  [a=filter:sur b=filter:sur]  ^-  filter:sur
+  =/  ids      (unit-set-dif ids.a ids.b)
+  =/  authors  (unit-set-dif authors.a authors.b)
+  =/  kinds    (unit-set-dif kinds.a kinds.b)
+  =/  tags  ~
+  =/  since  ~
+  =/  until  ~
+  =/  limit  ~  :: TODO
+  [ids authors kinds tags since until limit]
+++  unit-set-dif
+  |*  [a=(unit) b=(unit)]
+    %^  clap  a  b  |*  [x=(set) y=(set)]  (~(dif in x) y)
+--