anchor.diff:            (format pane "~a <~a>~%"
                     (alimenta::title item)
                     (alimenta::link item)))))
  -    (let ((text (alimenta::content item)))
  +    (let ((text (plump:text (plump:parse (alimenta::content item)))))
         (format pane "~&~{~{~a~^ ~}~^~%~}~2&"
                 (remove-if #'null
                            (mapcar #'tokens
  
positive.code: (defmacro with-interactor ((interactor-symbol) &body body)
    `(let ((,interactor-symbol (clim:find-pane-named clim:*application-frame* 'int)))
       ,@body))
  
  (define-alimenta-command (to-feed :name t) ()
    (let ((int (clim:find-pane-named clim:*application-frame* 'int))
  
negative.code:             ('default  'flopped)
              (t 'default)))))
  
  #|
  (clim:run-frame-top-level
    (clim:make-application-frame 'alimenta-clim::alimenta))
  |#
  