anchor.diff:    (with-html-output-to-string (*standard-output* nil)
       (:script :type "text/javascript"
         (str (parenscript:ps
  -             (defun bark (preview)
  -               (alert (parenscript:@ preview id))))))
  +             (defun show-overlay (name full description)
  +               (let ((overlay (parenscript:chain document
  +                                                 (get-element-by-id "portfolio-overlay")))
  +                     (image (parenscript:chain document
  +                                               (get-element-by-id "portfolio-overlay-article-image")))
  +                     (text (parenscript:chain document
  +                                              (get-element-by-id "portfolio-overlay-article-text"))))
  +                 (setf (parenscript:@ overlay style visibility) "visible")
  +                 (setf (parenscript:@ image src) full)
  +                 (setf (parenscript:@ text inner-h-t-m-l) description)
  +                 )))))
  +
       (htm
         (:article :class "portfolio-preview-article"
           (let* ((lower-category (string-downcase category))
  
positive.code:                    (for named-web-path = (format nil "~a~a" web-path name))
                     (for preview = (format nil "~a/preview.png" named-web-path))
                     (for full = (format nil "~a/full.png" named-web-path))
                     (for description = (format nil "~a/description" named-web-path))
              (htm
                (:img :class "portfolio-preview"
                      :id (str name)
                      :src (str preview)
                      :onclick (parenscript:ps-inline (bark this))))))))
  
      (:div
        :class "portfolio-overlay"
        (:div
          :class "portfolio-overlay-modal"
          (:article
  
negative.code: (defpackage :fu-er-com.portfolio
    (:use :cl :hunchentoot :cl-who :iterate))
  (in-package :fu-er-com.portfolio)
  
  (defun file-string (path)
    (with-open-file (stream path)
      (let ((data (make-string (file-length stream))))
        (read-sequence data stream)
        data)))
  
  (defun article (title link img description &optional rank)
    (with-html-output-to-string (*standard-output* nil)
  