anchor.diff:                          "Dismiss"))
            (render-widget (poem-widget widget)))))
       (:folded
  -     (print (mode widget))
        (let ((poem (poem (poem-widget widget))))
          (with-html
            (:div :class "widget folded-poem"
  
positive.code: (defwidget poem-selector (on-demand-selector)
    ((poem-widget-class :accessor poem-selector-poem-widget-class
                        :initarg  :poem-widget-class
                        :type     (or class symbol))
     (poem-list :type list)))
  
  (defmethod initialize-instance :after ((obj poem-selector) &key &allow-other-keys)
    (setf (slot-value obj 'poem-list)
          (mapcar (lambda (poem)
                    (make-foldable-poem-widget obj
                                               poem
  
negative.code:          :type     (or :show :folded))))
  
  (defmethod render-widget ((widget foldable-poem-widget) &key &allow-other-keys)
    (print (mode widget))
    (ecase (mode widget)
      (:show
       (with-html
         (:div :class "widget unfolded-poem"
           (:div :style "text-align:right"
  