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

fix bug with arpa n-gon footer

Browse Source
This commit is contained in:
main
2025-07-05 04:28:40 -07:00
parent b0d0c1767b
commit 4c18a29a0c
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
srv/content/router.hy
View File

@ -89,13 +89,14 @@
(f method post request #** kwargs) (f method post request #** kwargs)
(otherwise method post request #** kwargs))))) (otherwise method post request #** kwargs)))))
(defn 303-if-not-arpa [f] (defn 303-if-not-arpa [[unless (fn [#* _] False)]]
(fn [method path request] (fn [f]
(if (. request (get "headers") (get "Host") (endswith "arpa")) (fn [method path request]
(f method path request) (if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request))
(dict (f method path request)
:code 303 (dict
:headers {"Location" f"http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa{(. request (get "route") (get "unparsed_route"))}"})))) :code 303
:headers {"Location" f"http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa{(. request (get "route") (get "unparsed_route"))}"})))))
(defn shtml-file-response [file [code 200] [no-exec False] [template-params {}]] (defn shtml-file-response [file [code 200] [no-exec False] [template-params {}]]
(dict (dict
@ -122,19 +123,19 @@
;; *.arpa web n-gon ;; *.arpa web n-gon
(setv members (arpa-n-gon.get-members)) (setv members (arpa-n-gon.get-members))
(defn [(route "/arpa-n-gon" GET) 303-if-not-arpa] /arpa-n-gon #route-args (shtml-file-response "arpa-n-gon.html" :template-params (dict :n_gon (arpa-n-gon.n-gon-name (len members)) :n_gon_inc (arpa-n-gon.n-gon-name (+ (len members) 1)) :n (len members)))) (defn [(route "/arpa-n-gon" GET) (303-if-not-arpa)] /arpa-n-gon #route-args (shtml-file-response "arpa-n-gon.html" :template-params (dict :n_gon (arpa-n-gon.n-gon-name (len members)) :n_gon_inc (arpa-n-gon.n-gon-name (+ (len members) 1)) :n (len members))))
(defn [(route "/arpa-n-gon/nav" GET) 303-if-not-arpa (forward-params "current" "style") (require-params "current") ] /arpa-n-gon/nav #route-args [current [style None]] (defn [(route "/arpa-n-gon/nav" GET) (303-if-not-arpa :unless (fn [request] (in "from-iframe" (. request (get "route") (get "parameters") (keys))))) (forward-params "current" "style") (require-params "current") ] /arpa-n-gon/nav #route-args [current [style None]]
(shtml-file-response "arpa-n-gon-nav.html" :no-exec True :template-params (dict (shtml-file-response "arpa-n-gon-nav.html" :no-exec True :template-params (dict
:style style :style style
:next (+ "http://" (get (arpa-n-gon.next-member members current) "arpa-domain")) :next (+ "http://" (get (arpa-n-gon.next-member members current) "arpa-domain"))
:prev (+ "http://" (get (arpa-n-gon.prev-member members current) "arpa-domain")) :prev (+ "http://" (get (arpa-n-gon.prev-member members current) "arpa-domain"))
:n_gon (arpa-n-gon.n-gon-name (len members))))) :n_gon (arpa-n-gon.n-gon-name (len members)))))
(defn [(route "/arpa-n-gon/next" GET) 303-if-not-arpa (forward-params "current" )(require-params "current")] /arpa-n-gon/next #route-args [current] (dict (defn [(route "/arpa-n-gon/next" GET) (303-if-not-arpa) (forward-params "current" )(require-params "current")] /arpa-n-gon/next #route-args [current] (dict
:code 303 :code 303
:headers {"Location" (+ "http://" (get (arpa-n-gon.next-member members current) "arpa-domain"))})) :headers {"Location" (+ "http://" (get (arpa-n-gon.next-member members current) "arpa-domain"))}))
(defn [(route "/arpa-n-gon/prev" GET) 303-if-not-arpa (forward-params "current") (require-params "current")] /arpa-n-gon/next #route-args [current] (dict (defn [(route "/arpa-n-gon/prev" GET) (303-if-not-arpa) (forward-params "current") (require-params "current")] /arpa-n-gon/next #route-args [current] (dict
:code 303 :code 303
:headers {"Location" (+ "http://" (get (arpa-n-gon.prev-member members current) "arpa-domain"))})) :headers {"Location" (+ "http://" (get (arpa-n-gon.prev-member members current) "arpa-domain"))}))

2
www/src/templates/footer.hy
View File

@ -20,5 +20,5 @@
(a (:href "https://stellophiliac.github.io/roboring") "roboring") (a (:href "https://stellophiliac.github.io/roboring") "roboring")
(a (:href "https://stellophiliac.github.io/roboring/0x6e6174/next") "->")) (a (:href "https://stellophiliac.github.io/roboring/0x6e6174/next") "->"))
(iframe (:src "/arpa-n-gon/nav?current=natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa&style=/assets/arpa-n-gon.css")))) (iframe (:src "/arpa-n-gon/nav?current=natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa&style=/assets/arpa-n-gon.css&from-iframe"))))
(span ~(run "git log -1 --format=%h")))) (span ~(run "git log -1 --format=%h"))))