aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiguel Ángel Moreno <mail@migalmoreno.com>2023-05-19 11:29:28 +0200
committerMiguel Ángel Moreno <mail@migalmoreno.com>2023-05-19 11:29:28 +0200
commit389595a5c9be282b3c568880f49d9bfefb4d287b (patch)
tree46ea84831d20a220265752179b7ebdcc3cae02aa
parentfaca54002b3895aafae814984fef317eaf635706 (diff)
feat: Make block page URL not clickable and modify styling
-rw-r--r--router.lisp30
1 files changed, 17 insertions, 13 deletions
diff --git a/router.lisp b/router.lisp
index 3555429..557e865 100644
--- a/router.lisp
+++ b/router.lisp
@@ -447,18 +447,22 @@ If REVERSE, reverse the redirect logic."
:padding 0
:margin 0)
`(.container
- :display "flex"
- :height "100vh"
- :justify-content "center"
- :align-items "center"
- :flex-direction "column")
- `("#banner"
- :display "flex"
- :justify-content "center"
- :flex-direction "column"
- :width "70vw")
- `("#url"
- :text-decoration "underline"))))
+ :display flex
+ :height 100vh
+ :justify-content center
+ :align-items center
+ :flex-direction column
+ :text-align center)
+ `(|#banner|
+ :display flex
+ :justify-content center
+ :flex-direction column
+ :width 70vw)
+ `(|#url|
+ :text-decoration none
+ :font-weight bold
+ :color ,theme:accent
+ :pointer-events none))))
(spinneret:with-html-string
(:style blocked-style)
(:div :class "container"
@@ -466,7 +470,7 @@ If REVERSE, reverse the redirect logic."
(:div :id "banner"
(:h1 "The page you're trying to access has been blocked.")
(when url
- (:a :id "url" :href url url)))))))
+ (:a :id "url" url)))))))
(defgeneric dispatch-route (request-data route)
(:documentation "Dispatch ROUTE with REQUEST-DATA."))