[new] Add utils to de/serialize public part of KeyChains

Author: ptaoussanis

src/taoensso/tempel.clj

@@ -446,7 +446,7 @@
               ?key-id   (bytes/read-dynamic-?str in)]
           (enc/assoc-when
             {:kind :encrypted-keychain, :version 1,
-             :keychain (keys/keychain-restore nil ba-kc-pub)}
+             :keychain (keys/keychain-thaw nil ba-kc-pub)}
             :ba-aad          ?ba-aad
             :key-id          ?key-id
             :has-hmac?       has-hmac?
@@ -1379,3 +1379,19 @@
   (let [kc        (keychain)
         ba-signed (sign (as-ba "cnt") kc {:ba-aad (as-ba "aad")})]
     (signed ba-signed kc {:return :map #_:_test})))
+
+(defn keychain-freeze-public
+  "Takes a `KeyChain` and serializes any public keys it contains
+  to a storable byte[]. Returns the byte[].
+
+  Thaw (deserialize) output with: `keychain-thaw-public`."
+  ^bytes [keychain]
+  (get (keys/keychain-freeze keychain) :ba-kc-pub))
+
+(defn keychain-thaw-public
+  "Complement of `keychain-freeze-public`.
+  Takes a serialized byte[] of public keys and returns
+  a `KeyChain` that contains those public keys."
+  [ba-kc-pub] (keys/keychain-thaw nil ba-kc-pub))
+
+(comment (let [kc (keychain)] (enc/submap? @kc @(keychain-thaw-public (keychain-freeze-public kc)))))

src/taoensso/tempel/keys.clj

@@ -265,7 +265,7 @@
     (delay (mkc-freeze  m-keychain))
     ?meta))
 
-(defn keychain-restore
+(defn keychain-thaw
   "Thaws `KeyChain` from frozen byte[]s."
   ([ba-kc-prv ba-kc-pub] (-keychain nil (mkc-thaw ba-kc-prv ba-kc-pub)))
   ([ba-kc_             ] (-keychain nil (mkc-thaw ba-kc_))))
@@ -1162,7 +1162,7 @@
             (let [?ba-kc-prv (bytes/read-dynamic-?ba in)
                   ?ba-ucnt   (bytes/read-dynamic-?ba in) ; User content
                   _          (df/read-resv!          in)
-                  keychain   (keychain-restore ?ba-kc-prv ?ba-kc-pub)]
+                  keychain   (keychain-thaw ?ba-kc-prv ?ba-kc-pub)]
 
               (case return
                 :keychain   keychain