anchor.diff:                           (cons "main" (md "math.md")))))
   
   ;;; Poems
  -
  -(setf (website-heading "poetry") "Poetry")
   
   (defun make-poems-page ()
     (make-instance 'static-selector
  
positive.code:     (:div :class "footer"
        (:div :class "impressum"
          (:a :href "/impressum" "Impressum")))))
  
  ;;; Website Header
  
  (let ((headings (make-hash-table :test #'equal)))
    (defun website-heading (key)
      (multiple-value-bind (value present) (gethash key headings)
        (if present
            value
            (string-capitalize key))))
  
    (defun (setf website-heading) (value key)
      (setf (gethash key headings) value))
  
    nil)
  
  ;;; Starting point
  
  
negative.code: 
  ;;; Pensieve
  
  (defun make-pensieve-page ()
    (make-instance 'on-demand-selector
                   :lookup-function (lambda (selector tokens)
  