anchor.diff:  		   "Sep" "Oct" "Nov" "Dec"))
   	    year hours minutes seconds)))
   
  -(defun save-writeup (filename palette-name palette-tags photourl photoname 
  -		     photousername)
  +(defun palette-description (name tags)
  +  (format nil "I found a palette at colr called '~a' with the following ~a: <i>~a</i>."
  +	  (cl-who:escape-string name)
  +	  (tag-or-tags tags)
  +	  (format-tags tags)))
  +
  +(defun photo-description (url name)
  +  (format nil "I searched for those tags on flickr and found an image called <a href=\"~a\">~a</a>."url name))
  +
  +(defun photo-user-description (username)
  +  (format nil "Photo by ~a." username))
  +
  +(defun save-writeup (filename description)
     "Save an html fragment describing how the work was made and satisfying BY-SA"
     (with-open-file (file filename :direction :output 
   			:if-exists :supersede
   			: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>"
  +    (format file "<!--~a--><strong>How I made this image.</strong><br />~a~%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))))
  +	    description)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Main flow of control
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +
  +(defvar *tries* 0)
   
   (defun jpeg-file-path ()
     "The absolute file path for the local copy of the current flickr jpeg file"
  
positive.code: 
  (defun format-tags (tag-list)
    "Format the tags into a comma-separated list"
    (format nil "<i>~{~a~^, ~}</i>" 
  	  (map 'list 
  	       #'cl-who:escape-string  
  	       tag-list)))
  
negative.code: (defvar *flickr-api-key* "")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Call local command line tools
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  