anchor.diff:           :type     (or :show :folded))))
   
   (defmethod render-widget ((widget foldable-poem-widget) &key &allow-other-keys)
  +  (print (mode widget))
     (ecase (mode widget)
       (:show
  -     (print (mode widget))
        (with-html
          (:div :class "widget unfolded-poem"
            (:div :style "text-align:right"
  
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:                 (find-persistent-objects *store* 'poem)))
    (setf (on-demand-lookup-function obj)
          (lambda (obj tokens)
            (declare (ignore obj))
            (values (make-widget "") tokens nil :no-cache))))
  
  ;;;
  
  