archie
/
hiltons.xyz
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Extract file-listing functionality into list-files

This commit is contained in:
Archie Hilton 2024-11-04 21:30:13 +00:00
parent 6ef987639d
commit 709ca93d98
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/website/core.clj
View File

@ -8,25 +8,25 @@
(def html-dir "./site/html") (def html-dir "./site/html")
(def output-dir "./out") (def output-dir "./out")
(defn list-files [directory]
(filter #(.isFile %) (file-seq (io/file directory))))
;; Thank you https://clojure.org/api/cheatsheet ;; Thank you https://clojure.org/api/cheatsheet
; Generate a keyword-string map of the templates folder ; Generate a keyword-string map of the templates folder
(defn generate-template-map (defn generate-template-map
"Grab all files in the template directory and insert them into a map with "Grab all files in the template directory and insert them into a map with
the filenames as keyword keys" the filenames as keyword keys"
[template-dir] [template-dir]
(let [files (filter #(.isFile %) (file-seq (io/file template-dir)))] (let [files (list-files template-dir)]
(reduce #(assoc %1 (keyword (.getName %2)) (slurp %2)) {} files))) (reduce #(assoc %1 (keyword (.getName %2)) (slurp %2)) {} files)))
; Generate a string-string map of the new filepaths and the unprocessed contents ; Generate a string-string map of the new filepaths and the unprocessed contents
(defn generate-output-file-map (defn generate-output-file-map
"Take the input html files, read them, and create a mapping of their paths to "Take the input html files, read them, and create a mapping of their paths to
their contents. their contents.
This would probably be better as a list of maps each containing a :contents
and :path keyword.
" "
[html-dir, output-dir] [html-dir, output-dir]
(let [file-listing (filter #(.isFile %) (file-seq (io/file html-dir))) (let [file-listing (list-files html-dir)
contents (map slurp file-listing) contents (map slurp file-listing)
old-paths (map #(.getPath %) file-listing) old-paths (map #(.getPath %) file-listing)
rootless-paths (map #(subs % (count html-dir)) old-paths) rootless-paths (map #(subs % (count html-dir)) old-paths)
@ -40,10 +40,6 @@ the filenames as keyword keys"
(spit (first file_map_entry) (second file_map_entry))) (spit (first file_map_entry) (second file_map_entry)))
(defn insert_templates (defn insert_templates
"Go through and check all the template names in the file then
mark which templates exist and which dont
Using this we can report an error for any templates which do not exist"
[file-map-entry template-map] [file-map-entry template-map]
(let [file (first file-map-entry) (let [file (first file-map-entry)
contents (second file-map-entry) contents (second file-map-entry)