(use-modules (web html))


(define *images*
  '(("Thinkgeek \"Bow Before Me For I Am Root\" XXL" . "bow_root.jpg")
    ("Thinkgeek Power Symbol XXXL" . "power.jpg")
    ("Thingeek \"Reverse Engineeer\" XXXL" . "reverse_engineer.jpg")
    ("Thinkgeek \"Go Away Or I Will Replace You With a Very Small Shell Script\" XXXL" . "shell_script.jpg")
    ("Thinkgeek \"Codito Ergo Sum\" XXXL" . "codito.jpg")
    ("Thinkgeek RTFM XXL" . "rtfm.jpg")
    ("Thinkgeek STFU XXXL" . "stfu.jpg")))

(define *ad-dir* "img/misc/ad/")

(display
 (apply xhtml:table
	(map (lambda (x)
	       (let ((desc (car x))
		     (img (cdr x)))
		 (xhtml:tr (xhtml:td (car x))
			   (xhtml:td
			    (xhtml:a
			     (xhtml:img #:atts
					(list
					 (cons 'src
					       (string-append
						*ad-dir* "prev/pre_"
						img))
					 (cons 'alt desc)))
			     #:atts (list (cons 'href
						(string-append
						 *ad-dir*
						 img))))))))
	       *images*)))

(display (xhtml:tags (xhtml:img #:atts '((src . "foo")))
		     (xhtml:img #:atts '((src . "bar")))))