diff --git a/src/html/view-thought.lisp b/src/html/view-thought.lisp
index a174b1b..f8adbd3 100644
--- a/src/html/view-thought.lisp
+++ b/src/html/view-thought.lisp
@@ -3,6 +3,11 @@
`(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 (:style "height: 0; margin-top: 5px; justify-content: space-between; align-items: center; display: $[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' && echo flex || echo none;]")
+ (p () "$[cat ./html/thoughts/$(basename '{thought}') | grep '//']")
+ (p () "categories: $[cat ./html/thoughts/$(basename '{thought}') | grep '//' | awk -F';' '{ for (i=1; i<=NF; i++) { sub(/^ +| +$/, \"\", $i); if ($i != \"\") printf \"%s, \", $i, $i } }' | sed 's/, $//']"))
+ "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' && echo '
' || true]"
(div () "$[include \"./html/thoughts/$(basename '{thought}')\"]")
- "$[test \"$(echo '{' 'thought' '}' | sed 's/ //g')\" != '{thought}' || (echo '