anchor.diff: -
   (in-package :website)
   
   ;;;
  
positive.code:     (:show
       (with-html
         (:div :class "dismiss-button"
           (render-link (f_% (setf (mode widget) :folded))
                        "Hide"))
         (render-widget (poem-widget widget))))
      (:folded
  
negative.code:              " by "
               (str (poem-author poem)))
             (:div :class "show-button"
               (render-link (f_% (setf (mode widget) :show)
                                 (mark-dirty widget))
                            "Show"))))))))
  
  (defun make-foldable-poem-widget (poem poem-widget-class mode)
  