 (s/def ::id integer?)
 (s/def ::text string?)
 (s/def ::name string?)
-(s/def ::nickname (s/keys :req-un [::name ::id]))
+(s/def ::nickname (s/or :eden (s/keys :req-un [::name ::id])
+                        :dbas string?))
 (s/def ::author (s/keys :req-un [::nickname]
                         :opt-un [::uid]))
 

  (let [identifier (:identifier statement)
        content (:content statement)]
    {:text (:text content)
     :author {:nickname (:author content)}
     :identifier {:aggregate-id (:aggregate-id identifier)
                  :entity-id (int (:entity-id identifier))
                  :version (:version identifier)}}))

                         (str (t :search :origin) ": " aggregator)
                         [:br]])
                      [:span.label.label-default
                       (str (t :search :author) ": " (:nickname author))]]]]]))))
(def result (om/factory Result))

(defui Results
