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

comments: add anti-bot measure

Browse Source
This commit is contained in:
natalie roentgen connolly
2025-07-03 23:52:15 -07:00
parent 8726de8b3b 9f6bbef4b2
commit 36796b9f50
4 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
www/src/assets/style.css
View File

@ -248,7 +248,7 @@ section.comments {
flex-direction: column;
gap: 2ch;
> form {
div > form {
display: grid;
grid-template-rows: 12ch 20px;
grid-template-columns: repeat(auto-fill, minmax(min(150px, 100%), 1fr));
@ -256,7 +256,7 @@ section.comments {
> textarea {
resize: none;
grid-row: 1;
grid-column: 1 / 4;
grid-column: 1 / 5;
}
> #name {
@ -271,6 +271,10 @@ section.comments {
grid-row: 2
}
> #commit {
grid-row: 2
}
> * {
border-radius: 0;
background: var(--alt-bg);

17
www/src/templates/comments.hy
View File

@ -2,11 +2,16 @@
(defn comments [route]
`(section (:class comments)
(h2 comments)
(form (:id comment :method post :action ~f"/comment?route={route}" :autocomplete off)
(textarea (:id comment :name comment :placeholder comment :required True :maxlength 2048))
(input (:id name :type text :name name :placeholder username :required True :maxlength 32))
(input (:id website :type text :name site :placeholder "website (not required)" :maxlength 256))
(input (:id submit :type submit :value post)))
(div
(h2 comments)
(p "as an anti-bot measure, in order for $VIEWER's comment to be stored on the server, $VIEWER" (span (:style "font-weight: bold") " MUST ")
"enter the commit hash of the current deployment found in the bottom right of the page footer. failure to do so will result in the comment being disregarded.")
(form (:id comment :method post :action ~f"/comment?route={route}" :autocomplete off)
(textarea (:id comment :name comment :placeholder comment :required True :maxlength 2048))
(input (:id name :type text :name name :placeholder username :required True :maxlength 32))
(input (:id website :type text :name site :placeholder "website (not required)" :maxlength 256))
(input (:id commit :type text :name commit :placeholder "commit" :maxlength 8))
(input (:id submit :type submit :value post))))
(~f"$[ls -r ./www/data/comments/{(quote-plus route :safe "")} | xargs -I# cat ./www/data/comments/{(quote-plus route :safe "")}/#]")))

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

@ -18,4 +18,5 @@
(div (:style "flex-direction: row; width: 14ch; gap: 2ch; margin-right: 5px;")
(a (:href "https://stellophiliac.github.io/roboring/0x6e6174/previous") "<-")
(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") "->"))))
(span ~(run "git log -1 --format=%h"))))