anchor.diff:  
   (require 'cl-ppcre)
   (require 'drakma)
  +(require 'cl-who)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Configuration
  
positive.code: 
  (defun format-tags (tag-list)
    "Format the tags into a comma-separated list"
    (format nil "<i>~{~a~^, ~}</i>" tag-list))
  
  #|
  which had the " . tag_or_tags ($flickr_photo_tags) .  " " . 
  
negative.code: 			:external-format :utf-8)
      (format file "<!--~a--><strong>How I made this image.</strong><br />~%I found a palette at colr called '~a' with the following ~a: ~a.<br />~%I searched for those tags on flickr and found an image called <a href=\"~a\">~a</a> by ~a.<br />~%I traced that using autotrace and applied the colr palette to it.<br />~%This image is licenced under the <a href='http://creativecommons.org/licenses/by-sa/3.0/'>~%Creative Commons Attribution Share-Alike Licence</a>"
  	    (current-rfc-822-time)	    
  	    (cl-who:escape-string palette-name)
  	    (tag-or-tags palette-tags)
  	    (format-tags palette-tags)
  	    photourl 
  	    (cl-who:escape-string photoname)
  	    (cl-who:escape-string photousername))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Main flow of control
  