fix merge order
This commit is contained in:
parent
ccf27e641d
commit
5ac6cfbcf3
2 changed files with 3 additions and 2 deletions
|
@ -83,7 +83,7 @@
|
||||||
cp-resource-map (if from-cp
|
cp-resource-map (if from-cp
|
||||||
(apply merge (map virtual-path-map (cp/get-resources base-path paths)))
|
(apply merge (map virtual-path-map (cp/get-resources base-path paths)))
|
||||||
{})
|
{})
|
||||||
resulting-map (merge fs-resource-map cp-resource-map)]
|
resulting-map (merge cp-resource-map fs-resource-map)]
|
||||||
(if (empty? resulting-map)
|
(if (empty? resulting-map)
|
||||||
[]
|
[]
|
||||||
(vals resulting-map))))
|
(vals resulting-map))))
|
||||||
|
|
|
@ -521,7 +521,8 @@
|
||||||
klipsified-pages (map klipsify (read-pages config))
|
klipsified-pages (map klipsify (read-pages config))
|
||||||
modelled-pages (cond
|
modelled-pages (cond
|
||||||
(= page-model :flat) klipsified-pages
|
(= page-model :flat) klipsified-pages
|
||||||
(= page-model :hierarchic) (hierarchic/build-hierarchic-map page-root-uri klipsified-pages))
|
(= page-model :hierarchic)
|
||||||
|
(hierarchic/build-hierarchic-map page-root-uri klipsified-pages))
|
||||||
home-page (->> modelled-pages
|
home-page (->> modelled-pages
|
||||||
(filter #(boolean (:home? %)))
|
(filter #(boolean (:home? %)))
|
||||||
(first))
|
(first))
|
||||||
|
|
Loading…
Reference in a new issue