fix merge order

This commit is contained in:
jem 2020-02-17 20:33:52 +01:00
parent ccf27e641d
commit 5ac6cfbcf3
2 changed files with 3 additions and 2 deletions

View file

@ -83,7 +83,7 @@
cp-resource-map (if from-cp
(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)
[]
(vals resulting-map))))

View file

@ -521,7 +521,8 @@
klipsified-pages (map klipsify (read-pages config))
modelled-pages (cond
(= 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
(filter #(boolean (:home? %)))
(first))