meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

mob-seassion

Browse source
This commit is contained in:
lukas 2019-12-27 11:00:41 +01:00
parent f74c21e586
commit e3bc96ce4e
1 changed files with 45 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
src/cryogen_core/compiler.clj
View file

@ -239,7 +239,7 @@
[{:keys [blog-prefix page-root-uri debug?] :as params} pages] [{:keys [blog-prefix page-root-uri debug?] :as params} pages]
(when-not (empty? pages) (when-not (empty? pages)
(println (blue "compiling pages")) (println (blue "compiling pages"))
(cryogen-io/create-folder (cryogen-io/path "/" blog-prefix page-root-uri)) ;(cryogen-io/create-folder (cryogen-io/path "/" blog-prefix page-root-uri))
(doseq [{:keys [uri] :as page} pages] (doseq [{:keys [uri] :as page} pages]
(println "-->" (cyan uri)) (println "-->" (cyan uri))
(when debug? (when debug?
@ -494,44 +494,56 @@
author-root-uri theme debug? page-model author-root-uri theme debug? page-model
page-root-uri resources] page-root-uri resources]
:as config} (read-config) :as config} (read-config)
posts (map klipsify (add-prev-next (read-posts config))) posts
posts-by-tag (group-by-tags posts) (map klipsify (add-prev-next (read-posts config)))
posts (tag-posts posts config) posts-by-tag
latest-posts (->> posts (take recent-posts) vec) (group-by-tags posts)
klipsified-pages (map klipsify (read-pages config)) posts
modelled-pages (cond (tag-posts posts config)
(= page-model :flat) klipsified-pages latest-posts
(= page-model :hierarchic) (hierarchic/build-hierarchic-map page-root-uri klipsified-pages)) (->> posts (take recent-posts) vec)
home-page (->> modelled-pages klipsified-pages
(filter #(boolean (:home? %))) (map klipsify (read-pages config))
(first)) modelled-pages
other-pages (->> modelled-pages (cond
(remove #{home-page}) (= page-model :flat) klipsified-pages
(add-prev-next)) (= page-model :hierarchic) (hierarchic/build-hierarchic-map page-root-uri klipsified-pages))
params (merge config home-page
{:today (java.util.Date.) (->> modelled-pages
:title (:site-title config) (filter #(boolean (:home? %)))
:active-page "home" (first))
:tags (map (partial tag-info config) (keys posts-by-tag)) other-pages
:latest-posts latest-posts (->> modelled-pages
:pages other-pages (remove #{home-page})
:home-page (if home-page (add-prev-next))
home-page params
(assoc (first latest-posts) :layout "home.html")) (merge config
:archives-uri (page-uri "archives.html" config) {:today (java.util.Date.)
:index-uri (page-uri "index.html" config) :title (:site-title config)
:tags-uri (page-uri "tags.html" config) :active-page "home"
:rss-uri (cryogen-io/path "/" blog-prefix rss-name) :tags (map (partial tag-info config) (keys posts-by-tag))
:site-url (if (.endsWith site-url "/") (.substring site-url 0 (dec (count site-url))) site-url)}) :latest-posts latest-posts
file-resource-path (str "file:resources/templates/themes/" theme) :pages other-pages
classpath-resource-path (str "templates/themes/" theme)] :home-page (if home-page
home-page
(assoc (first latest-posts) :layout "home.html"))
:archives-uri (page-uri "archives.html" config)
:index-uri (page-uri "index.html" config)
:tags-uri (page-uri "tags.html" config)
:rss-uri (cryogen-io/path "/" blog-prefix rss-name)
:site-url (if (.endsWith site-url "/") (.substring site-url 0 (dec (count site-url))) site-url)})
file-resource-path
(str "file:resources/templates/themes/" theme)
classpath-resource-path
(str "templates/themes/" theme)]
(when debug? (when debug?
(println (blue "debug: page-model:")) (println (blue "debug: page-model:"))
(println "\t-->" (cyan page-model)) (println "\t-->" (cyan page-model))
(println (blue "debug: home-page:")) (println (blue "debug: home-page:"))
(println "\t-->" (cyan (-> params :home-page)))) (println "\t-->" (cyan (-> params :home-page))))
;; TODO: replace by file-resource-path or classpath-resource-path ;; TODO: replace by file-resource-path or classpath-resource-path
(set-custom-resource-path! (str "file:resources/templates/themes/" theme)) (println file-resource-path)
(set-custom-resource-path! file-resource-path)
;(cryogen-io/wipe-public-folder keep-files) ;(cryogen-io/wipe-public-folder keep-files)
(cp-io/delete-resource-recursive! (cp-io/path "resources/public" blog-prefix)) (cp-io/delete-resource-recursive! (cp-io/path "resources/public" blog-prefix))
(println (blue "copying theme resources")) (println (blue "copying theme resources"))