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 '//']") "$[cat ./html/thoughts/$(basename '{thought}') | grep '//']" (br) - (div () "$[include ./html/thoughts/$(basename '{thought}')]") - "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' || (echo '
$(cat ./html/thoughts/$file | grep '//') $file
\"; done | sort --numeric --reverse)]"))) + (div () "$[include \"./html/thoughts/$(basename '{thought}')\"]") + "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' || (echo '$(cat ./html/thoughts/$file | grep '//') $(cat ./html/thoughts/$file | grep '//')
\"; done | sort --numeric --reverse)]")))