MyFavMirrors
/
RSSPAPER
mirror of https://github.com/tanrax/RSSPAPER.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix format

This commit is contained in:
Andros Fenollosa 2021-07-31 01:31:13 +02:00
parent da46864b9b
commit 2e9846a22c
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/rsspaper/html.clj
View File

@ -1,11 +1,11 @@
(ns rsspaper.html (ns rsspaper.html
(:require (:require
[clojure.java.io :as io] [clojure.java.io :as io]
[rsspaper.config :refer [config]] [rsspaper.config :refer [config]]
[rsspaper.feeds :refer [get-articles]] [rsspaper.feeds :refer [get-articles]]
[selmer.parser :as s] [selmer.parser :as s]
[me.raynes.fs :as fs] [me.raynes.fs :as fs]
[me.raynes.fs.compression :as fsc])) [me.raynes.fs.compression :as fsc]))
(defn copy-uri-to-file [uri file] (defn copy-uri-to-file [uri file]
(with-open [in (io/input-stream uri) (with-open [in (io/input-stream uri)
@ -29,8 +29,7 @@
(selmer.parser/set-resource-path! path-theme) (selmer.parser/set-resource-path! path-theme)
(with-open [writer (io/writer path-dist-index)] (with-open [writer (io/writer path-dist-index)]
(.write writer (s/render-file file-index {:title (:title config) (.write writer (s/render-file file-index {:title (:title config)
:articles (get-articles) :articles (get-articles)})))
})))
;; Make static ;; Make static
(copy-uri-to-file (str path-theme zip-static) tmp-static) (copy-uri-to-file (str path-theme zip-static) tmp-static)
(fsc/unzip tmp-static dir-dist))) (fsc/unzip tmp-static dir-dist)))