anchor.diff:    (with-html-output-to-string (*standard-output* nil)
       (str (article "Games"
                     "/portfolio?category=games"
  +                  "/img/portfolio/games/volley/preview.png"
                     "Professional projects."))
       (str (article "Vector"
                     "/portfolio?category=vector"
  +                  "/img/portfolio/framed-placeholder.png"
                     "UI design and other vectorized pieces."))
       (str (article "Raster"
                     "/portfolio?category=raster"
  +                  "/img/portfolio/framed-placeholder.png"
                     "Illustrations and personal projects."))
       (str (article "Sketches"
                     "/portfolio?category=sketches"
  +                  "/img/portfolio/framed-placeholder.png"
                     "Doodles of noodles."))))
   
   (defun games ()
     (with-html-output-to-string (*standard-output* nil)
       (str (article "Volley"
                     "/portfolio?category=games&id=volley"
  +                  "/img/portfolio/games/volley/preview.png"
                     "A game I made."))
       (str (article "Family Guy : The Quest for Stuff"
                     "/portfolio?category=games&id=family-guy"
  +                  "/img/portfolio/games/family-guy/preview.png"
                     "A super top hit mega money shot."))
       (str (article "Tiny Monsters"
                     "/portfolio?category=games&id=tiny-monsters"
  +                  "/img/portfolio/games/tiny-monsters/preview.png"
                     "A cute money grubber."))))
   
   (defun art (category)
  
positive.code:       (:article
          :class "portfolio-article"
          (:img :class "portfolio-article-image"
                :src "/img/portfolio/framed-placeholder.png")
          (:h2 :class "portfolio-article-title" (str title))
          (when rank
            (htm (:h4 :class "portfolio-article-rank" (str rank))))
  
negative.code:   (:use :cl :hunchentoot :cl-who :parenscript))
  (in-package :fu-er-com.portfolio)
  
  (defun article (title link img description &optional rank)
    (with-html-output-to-string (*standard-output* nil)
      (:a
        :class "portfolio-article-link"
  