feat(web/panettone): Add direct anchor links to comments

Fixes: #31
Change-Id: I5a8228229eb2b68bdfc5addd305ab055443aa5a6
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1581
Reviewed-by: lukegb <lukegb@tvl.fyi>
Tested-by: BuildkiteCI

web/panettone/src/css.lisp

@@ -77,7 +77,11 @@
      (.comment-info
       :color ,color/gray
       :margin 0
-      :padding-top "1rem")
+      :padding-top "1rem"
+
+      (a :text-decoration "none")
+      ((:and a :hover)
+       :text-decoration "underline"))
 
      ((:or .comment .event)
       :padding-top "1rem"
@@ -86,6 +90,10 @@
 
       (p :margin 0))
 
+     ((:and (:or .comment .event) :target)
+      :border-color ,color/primary
+      :border-bottom-width "3px")
+
      (.event
       :color ,color/gray))))
 

web/panettone/src/panettone.lisp

@@ -272,23 +272,26 @@
 (defgeneric render/issue-history-item (item))
 
 (defmethod render/issue-history-item ((comment model:issue-comment))
+  (let ((fragment (format nil "comment-~A" (id comment))))
     (who:with-html-output (*standard-output*)
-    (who:htm
       (:li
        :class "comment"
+       :id fragment
        (:p (who:str (body comment)))
        (:p
         :class "comment-info"
         (:span :class "username"
                (who:esc (displayname (author comment)))
                " at "
-              (who:esc (format-dottime (created-at comment)))))))))
+               (:a :href (concatenate 'string "#" fragment)
+                   (who:esc (format-dottime (created-at comment))))))))))
 
 (defmethod render/issue-history-item ((event model:issue-event))
   (let ((user (find-user-by-dn (acting-user-dn event))))
     (who:with-html-output (*standard-output*)
       (:li
        :class "event"
+       :id
        (who:esc (displayname user))
        (if (string= (field event) "STATUS")
            (who:htm