anchor.diff:      (:html
         (:head
           (:style :type "text/css"
  -                      "a:hover {text-decoration:underline;}
  -a {color: #5C8A2F;}")
  +                      "
  +                       a:hover {text-decoration:underline;}
  +                       a {color: #5C8A2F;}
  +                       td > a {color: #fff; text-decoration: none;}")
           (:title "Kindista"))
   
         (:body :style "font-family: Ubuntu, Roboto, \"Segoe UI\", \"Helvetica Neue\", Tahoma, sans-serif;"
  
positive.code: 
  (defun email-action-button (url message)
    (html
      (:a :class *style-a* :href url (str message))))
  
  (defun no-reply-notice
    (&optional (instructions "do so from their profile on Kindista.org"))
  
negative.code: 
  (defparameter *style-button*
    "margin: 0.35em 0.5em 0.35em 0;
     font-size: 1.2em;
     background: #3c6dc8;
     background: -moz-linear-gradient( top, #3c6dc8 0%, #29519c);
     background: -ms-linear-gradient( top, #3c6dc8 0%, #29519c);
  