|
@@ -16,7 +16,7 @@
|
|
|
;; Disallows cyclic hierarchies
|
|
;; Disallows cyclic hierarchies
|
|
|
exclude-ids (-> (set (map (fn [id] (:block/uuid (db/entity id))) children-pages))
|
|
exclude-ids (-> (set (map (fn [id] (:block/uuid (db/entity id))) children-pages))
|
|
|
(conj (:block/uuid page))) ; break cycle
|
|
(conj (:block/uuid page))) ; break cycle
|
|
|
- classes (->> (model/get-all-classes repo {:except-root-class? true})
|
|
|
|
|
|
|
+ classes (->> (model/get-all-classes repo)
|
|
|
(remove (fn [e] (contains? exclude-ids (:block/uuid e)))))
|
|
(remove (fn [e] (contains? exclude-ids (:block/uuid e)))))
|
|
|
options (sort-by :label
|
|
options (sort-by :label
|
|
|
(map (fn [entity] {:label (:block/title entity)
|
|
(map (fn [entity] {:label (:block/title entity)
|