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

fix spelling error

Browse Source
This commit is contained in:
gnat 2024-10-08 23:52:39 -07:00
parent aca0606797
commit 0453815422
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/html/random-thoughts.lisp
View File

@ -1,6 +1,6 @@
(defun html () (defun html ()
(page "natalie \"thoughts\"" `((section () (page "natalie \"thoughts\"" `((section ()
(h1 () "arbitrary thoughts generated by natalie") (h1 () "arbitrary thoughts generated by natalie")
"it is bad lat thinking of things to make blog posts for. this webpage might contain things that it would put in a blog post if it was more proficient at writing filler. it might also contain other things.") "it is bad at thinking of things to make blog posts for. this webpage might contain things that it would put in a blog post if it was more proficient at writing filler. it might also contain other things.")
,(exec-command "for file in ./html/thoughts/*; do echo $(grep DATE $file | awk '{print $3 $4}') $file; done | sort -k1,1 -r | cut -d' ' -f2 | while read -r file; do echo \"<section><details id='$(basename $file)'><summary>$(grep '^<!-- DATE:' $file | sed 's/^<!-- DATE: //; s/-->$//; s/.$//'): $(grep '^<!-- TITLE:' $file | sed 's/^<!-- TITLE: //; s/-->$//')</summary><div class=thought>$(include $file)</details></section>\"; done")))) ,(exec-command "for file in ./html/thoughts/*; do echo $(grep DATE $file | awk '{print $3 $4}') $file; done | sort -k1,1 -r | cut -d' ' -f2 | while read -r file; do echo \"<section><details id='$(basename $file)'><summary>$(grep '^<!-- DATE:' $file | sed 's/^<!-- DATE: //; s/-->$//; s/.$//'): $(grep '^<!-- TITLE:' $file | sed 's/^<!-- TITLE: //; s/-->$//')</summary><div class=thought>$(include $file)</details></section>\"; done"))))