enhance: sort parent class options

src/main/frontend/components/hierarchy.cljs

@@ -59,7 +59,6 @@
 
 (rum/defc db-version-hierarchy
   [page namespace-pages]
-  ;; TODO: Add check for cyclic hierarchies
   (let [parent-children-map (reduce (fn [acc m]
                                       (update acc
                                               (get-in m [:block/namespace :db/id])

src/main/frontend/components/page.cljs

@@ -411,14 +411,16 @@
   [page class on-select]
   (let [repo (state/get-current-repo)
         children-pages (model/get-namespace-children repo (:db/id page))
+        ;; Disallows cyclic hierarchies
         exclude-ids (-> (set (map (fn [id] (:block/uuid (db/entity id))) children-pages))
                         (conj (:block/uuid page))) ; break cycle
         classes (->> (model/get-all-classes repo)
                      (remove (fn [[_name id]] (contains? exclude-ids id))))
-        options (map (fn [[name id]] {:label name
-                                      :value id
-                                      :selected (= class id)})
-                     classes)
+        options (sort-by :label
+                         (map (fn [[name id]] {:label name
+                                               :value id
+                                               :selected (= class id)})
+                              classes))
         options (cons (if class
                         {:label "Choose parent page"
                          :value ""}