nat/htmlgen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update home; fix timezone issue?

Browse Source
This commit is contained in:
gnat 2024-09-05 05:14:40 -07:00
parent 400cb86aee
commit 550c318db6
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/home.lisp
View File

@ -7,7 +7,10 @@
(br) (br)
"I am not sure what I am going to use this site for, it only exists because I was <del>procrastinating my calculus homework</del> bored one day" "I am not sure what I am going to use this site for, it only exists because I was <del>procrastinating my calculus homework</del> bored one day"
(br) (br)
"website homepage visit-counter: $[echo visit >> files/home_visit_counter; cat files/home_visit_counter | wc -l]")) "website homepage visit-counter: $[echo visit >> files/home_visit_counter; cat files/home_visit_counter | wc -l]"
(br)
(br)
"if you are here, I am rather curious as to why. I encourage you to use the post arbitrary data section of this page to tell me how you found my site."))
(section () (section ()
(h2 () "particularly notable pages") (h2 () "particularly notable pages")
(a (:href "/html/site-info.html") "information about this website") (a (:href "/html/site-info.html") "information about this website")

2
src/html/natalie-info.lisp
View File

@ -6,7 +6,7 @@
"despite this, I shall attempt a suitable description of myself.") "despite this, I shall attempt a suitable description of myself.")
(br) (br)
"ideally, I am to be referred to as an \"it\" or a \"she\". the former is preferred to some degree. I suppose I may reasonably be described as asexual. " (br) "ideally, I am to be referred to as an \"it\" or a \"she\". the former is preferred to some degree. I suppose I may reasonably be described as asexual. " (br)
"timezone I am in: " ,(exec-command "date '+%Z (UTC%z)'") (br) "timezone I am in: " ,(exec-command "TZ=\"America/Los_Angeles\" date '+%Z (UTC%z)'") (br)
"age: $[echo $(( $(date +%s) - $(date -d \"2007-04-01\" +%s) ))] seconds. that is $[echo \"scale=8; ($(date +%s) - $(date -d '2007-04-01' +%s)) / (365.25*24*3600)\" | bc] [earth] years." (br) "age: $[echo $(( $(date +%s) - $(date -d \"2007-04-01\" +%s) ))] seconds. that is $[echo \"scale=8; ($(date +%s) - $(date -d '2007-04-01' +%s)) / (365.25*24*3600)\" | bc] [earth] years." (br)
"I am kind of a college student. it is complicated. I will be a college student with less complicated circumstances by fall of 2025, barring unforseen circumstances." (br) "I am kind of a college student. it is complicated. I will be a college student with less complicated circumstances by fall of 2025, barring unforseen circumstances." (br)
"I like systems. particularly ones that have reasonably consistent behavior based on a set of rules. this is omnipresent in my interests." (br) "I like systems. particularly ones that have reasonably consistent behavior based on a set of rules. this is omnipresent in my interests." (br)