MyFavMirrors/RSSPAPER
1
0
Fork 0
mirror of https://github.com/tanrax/RSSPAPER.git synced 2025-11-25 03:56:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

update statics

Browse Source
This commit is contained in:
Andros Fenollosa
2021-07-20 01:00:40 +02:00
parent fd6e9f07f9
commit f18e78db42
9 changed files with 27 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
src/rsspaper/html.clj
View File

@@ -2,18 +2,32 @@
(:require
[clojure.java.io :as io]
[rsspaper.config :refer [config]]
[clojure.string :as str]
[selmer.parser :as s]))
(defn make-html
[articles]
;; Render html in dist/index.html
(let [dir "dist"
path (str dir "/index.html")]
(let [dir-dist "dist/"
path-theme (io/resource (str "themes/" (:theme config) "/"))
path-dist-index (str dir-dist "index.html")
]
;; Remove old index.html
(when (.exists (io/file path)) (io/delete-file path))
#_(when (.exists (io/file path-dist-index)) (io/delete-file path-dist-index))
;; Make dir dist
(.mkdir (java.io.File. dir))
#_(.mkdir (java.io.File. dir-dist))
;; Make dist/index.html
(with-open [wrtr (io/writer path)]
(.write wrtr (s/render-file (str "themes/" (:theme config) ".html") {:title (:title config)
:articles articles})))))
#_(with-open [wrtr (io/writer path-dist-index)]
(.write wrtr (s/render-file (str path-theme "index.html") {:title (:title config)
:articles articles})))
;; Make statics
;; Iterate statics
(doseq [file (.listFiles (io/file path-theme) )]
(let [path (.getPath file)
relative-path (second (str/split path #"resources/"))
relative-dist-path (str dir-dist relative-path)]
;; Remove old static
(when (.exists (io/file relative-dist-path)) (io/delete-file relative-dist-path))
;; Copy new static
(io/copy (io/file path) (io/file dir-dist))))))