bunbun/natalieee.net
1
0
Fork 0
forked from nat/natalieee.net
Code Pull Requests Activity

make scripts and script execution nix compatible

Browse Source
This commit is contained in:
Winter
2025-05-19 11:59:12 -07:00
parent adb7f61436
commit 24f44ec093
4 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
srv/content/file_io.hy
View File

@ -6,27 +6,27 @@
(setv (get hy-env "PATH") (+ (get hy-env "PATH") ":./www/site/scripts"))
(defn execute-bash [data]
(sub r"\$\[(.*?)\]" (fn [sequence]
(. (check-output (.group sequence 1) :shell True :executable "/bin/bash" :env hy-env) (decode) (strip)))
(defn execute-bash [data]
(sub r"\$\[(.*?)\]" (fn [sequence]
(. (check-output (.group sequence 1) :shell True :executable "bash" :env hy-env) (decode) (strip)))
data))
(defn parse-html-file [path #** kwargs]
(with [f (open path "r")]
(setv data (.read f)))
(for [[k v] (.items kwargs)]
(setv data (.replace data f"{"{"}{k}{"}"}" (str v))))
(execute-bash data))
(defn send-raw-file [path]
(setv [mime-type _] (guess-type path))
(when (not mime-type)
(setv mime-type "text/plain"))
(with [f (open path "rb")]
(setv data (.read f)))
(return #({"Content-Type" mime-type "Cache-Control" "max-age=300, stale-while-revalidate=3600"} data)))