enhance: use transducers

pull/6529/head
rcmerci 2022-09-21 18:32:14 +08:00
parent eae49ec1f5
commit 628cecc2fd
1 changed files with 15 additions and 11 deletions

View File

@ -146,15 +146,19 @@
(defn- get-page-refs-from-property-names
[properties {:property-pages/keys [enabled? excludelist]}]
(if (contains? #{true nil} enabled?)
(some->> properties
(map (comp name first))
(sequence
(comp (map (comp name first))
(remove string/blank?)
(remove (set (map name excludelist)))
;; Remove built-in properties as we don't want pages
;; created for them by default
(remove (set (map name (into (gp-property/editable-built-in-properties)
(gp-property/hidden-built-in-properties)))))
distinct)
(remove (into #{}
(map name)
(apply conj
(gp-property/editable-built-in-properties)
(gp-property/hidden-built-in-properties))))
(distinct))
properties)
[]))
(defn- get-page-ref-names-from-properties