nat/natalieee.net
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix issue with url params

Browse Source
This commit is contained in:
natalie roentgen connolly
2025-05-12 15:26:10 -07:00
parent 96a4cc08ae
commit a16f30aac0
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
srv/content/router.hy
View File

@ -40,7 +40,7 @@
(return (dict
:code 200
:body (parse-html-file "./www/site/html/html/view-thought.html" #** (. request (get "route") (get "parameters")))))))
:body (parse-html-file "./www/site/html/html/view-thought.html" #** (dfor [k v] (.items (. request (get "route") (get "parameters"))) k (quote-plus v)))))))
(when (= path "/style.css")
(when (!= method "GET")

2
www/src/pages/html/view-thought.hy
View File

@ -9,7 +9,7 @@
(if-param-then-else param-name f"'{{{param-name}}}'" otherwise))
(defn get-thought-param-field [field]
#[f[ cat www/data/thought-registry | grep -P "\t{{thought}}\t" | awk -v FS=$'\t' '{{print ${(get (dict :tags "1" :file-name "2" :title "3" :date "4" :description "5") field)}}}' ]f])
#[f[ cat www/data/thought-registry | grep -P '\t{{thought}}\t'| awk -v FS=$'\t' '{{print ${(get (dict :tags "1" :file-name "2" :title "3" :date "4" :description "5") field)}}}' ]f])
(defn subshell [#* lines]
#[f[({(.join "; " lines)})]f])