   "Projects a blob into a node record."
   [blob]
   (when-let [{:keys [id content]} blob]
-    [{:blob id
-      :size (count content)
-      :type (:data/type blob)
-      ; TODO: label pgp keys
-      :stored-at (time/now)}]))
+    {:blob id
+     :size (count content)
+     :type (:data/type blob)
+     ; TODO: label pgp keys
+     :stored-at (time/now)}))
 
 
 (defn node->stats

    []))


(defn links-from
  "Look up data links by source hash-id."
  [graph & [source-id]]
  (index/find (:links-from graph)
              {:source source-id}))


(defn links-to
  "Look up data sorted by target hash-id and source blob type."
  [graph & [target-id data-type]]
  (index/find (:links-reverse graph)
              {:target target-id
               :type data-type}))

  "Schema for blob graph link records."
  {:source HashID     ; source hash-id
   :type   Keyword    ; source blob type
   :key    Keyword    ; if the blob is a map, top-level key the link was found under
   :target HashID})   ; target hash-id


