|
|
@ -48,6 +48,8 @@
|
|
|
|
[:small (h (:name instance))]]
|
|
|
|
[:small (h (:name instance))]]
|
|
|
|
[:p [:small [:a {:href (path :instance-edit-form instance)}
|
|
|
|
[:p [:small [:a {:href (path :instance-edit-form instance)}
|
|
|
|
"Edit Instance"]]]
|
|
|
|
"Edit Instance"]]]
|
|
|
|
|
|
|
|
(when-not (empty? (:properties instance))
|
|
|
|
|
|
|
|
[:section.properties
|
|
|
|
[:h2 "Properties"]
|
|
|
|
[:h2 "Properties"]
|
|
|
|
(for [prop (:properties instance)
|
|
|
|
(for [prop (:properties instance)
|
|
|
|
:let [attr (:attribute prop)
|
|
|
|
:let [attr (:attribute prop)
|
|
|
@ -59,7 +61,7 @@
|
|
|
|
(list [:h3 (h (:name attr))]
|
|
|
|
(list [:h3 (h (:name attr))]
|
|
|
|
[:div {:class (str "instance-content "
|
|
|
|
[:div {:class (str "instance-content "
|
|
|
|
"attr-type-" type)}
|
|
|
|
"attr-type-" type)}
|
|
|
|
(render-fn (:value prop))]))
|
|
|
|
(render-fn (:value prop))]))])
|
|
|
|
(when-not (empty? (:links-out instance))
|
|
|
|
(when-not (empty? (:links-out instance))
|
|
|
|
[:section.links
|
|
|
|
[:section.links
|
|
|
|
[:h2 "Outgoing Links"]
|
|
|
|
[:h2 "Outgoing Links"]
|
|
|
|