From e6792588cf41e70197b859a75b87d024c80eb2ea Mon Sep 17 00:00:00 2001
From: gnat <natalieconnolly621@gmail.com>
Date: Mon, 21 Oct 2024 05:51:08 -0700
Subject: [PATCH] improve view-thought

---
 src/html/view-thought.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/html/view-thought.lisp b/src/html/view-thought.lisp
index 6314d09..3fc1f88 100644
--- a/src/html/view-thought.lisp
+++ b/src/html/view-thought.lisp
@@ -1,7 +1,8 @@
 (defun html ()
   (page "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' && echo '{thought}' || echo thoughts index]"
         `(section ()
+                  "$[echo > /tmp/footnote_count]"
                   (h1 (:style "display: $[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' && echo block || echo none]") "$[cat ./html/thoughts/$(basename '{thought}') | grep '<!-- TITLE:' | sed 's/<!-- TITLE://; s/-->//']")
                   "$[cat ./html/thoughts/$(basename '{thought}') | grep '<!-- DATE:' | sed 's/<!-- DATE://; s/-->//']" (br)
-                  (div () "$[include ./html/thoughts/$(basename '{thought}')]")
-                  "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' || (echo '<h1>thoughts:</h1>'; ls ./html/thoughts | while read -r file; do echo \"<p>$(cat ./html/thoughts/$file | grep '<!-- DATE:' | sed 's/<!-- DATE://; s/-->//') <a href=?thought=$file>$file</a></p>\"; done | sort --numeric --reverse)]")))
+                  (div () "$[include \"./html/thoughts/$(basename '{thought}')\"]")
+                  "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' || (echo '<h1>thoughts:</h1>'; ls ./html/thoughts | while read -r file; do echo \"<p>$(cat ./html/thoughts/$file | grep '<!-- DATE:' | sed 's/<!-- DATE://; s/-->//') <a href=?thought=$file>$(cat ./html/thoughts/$file | grep '<!-- TITLE:' | sed 's/<!-- TITLE://; s/-->//')</a></p>\"; done | sort --numeric --reverse)]")))