       (when-let [blob (store/get store id)]
         (println (str id))
         (let [content (:content blob)
+              key (key/parse-key blob)
               data (edn/parse-data blob)]
-          ; TODO: interpret PGP keys
-          (cond data               (print-edn-blob data)
+          (cond key                (print-key-blob key)
+                data               (print-edn-blob data)
                 (:binary opts)     (print-binary-blob content)
                 (textual? content) (print-text-blob content)
                 :else              (print-binary-blob content)))

      (println (str \u001b "[7m" \% \u001b "[0m")))))


(defn- print-edn-blob
  "Prints an EDN blob's values."
  [blob]

  (:require
    [byte-streams]
    [clojure.java.io :as io]
    [mvxcvi.crypto.pgp :as pgp]
    [puget.printer :as puget]
    [vault.blob.store :as store]
    [vault.data.edn :as edn]
    [vault.data.key :as key]
    [vault.tool.blob :refer [enumerate-prefix]]))


