fix: inline classes for property page values

pull/11177/head
Gabriel Horner 2024-04-24 09:45:01 -04:00
parent 4c2a00d890
commit a91b34a2a0
1 changed files with 6 additions and 6 deletions

View File

@ -193,7 +193,7 @@
(if (nil? id) (if (nil? id)
(let [inline-class-uuid (let [inline-class-uuid
(when inline-class (when inline-class
(or (ldb/get-page (db/get-db) inline-class) (or (:block/uuid (ldb/get-page (db/get-db) inline-class))
(do (log/error :msg "Given inline class does not exist" :inline-class inline-class) (do (log/error :msg "Given inline class does not exist" :inline-class inline-class)
nil)))] nil)))]
(p/let [page (page-handler/<create! page {:redirect? false (p/let [page (page-handler/<create! page {:redirect? false
@ -300,11 +300,11 @@
:transform-fn (fn [results input] :transform-fn (fn [results input]
(if-let [[_ new-page class-input] (and (empty? results) (re-find #"(.*)#(.*)$" input))] (if-let [[_ new-page class-input] (and (empty? results) (re-find #"(.*)#(.*)$" input))]
(let [repo (state/get-current-repo) (let [repo (state/get-current-repo)
class-names (map #(:block/original-name (db/entity repo [:block/uuid %])) string-classes) class-ents (map #(db/entity repo [:block/uuid %]) string-classes)
descendent-classes (->> class-names class-names (map :block/original-name class-ents)
;; FIXME: descendent-classes (->> class-ents
;; (mapcat #(db/get-namespace-pages repo %)) (mapcat #(model/get-class-children repo (:db/id %)))
(map :block/original-name))] (map #(:block/original-name (db/entity repo %))))]
(->> (concat class-names descendent-classes) (->> (concat class-names descendent-classes)
(filter #(string/includes? % class-input)) (filter #(string/includes? % class-input))
(mapv #(hash-map :value (str new-page "#" %))))) (mapv #(hash-map :value (str new-page "#" %)))))