; -*- scheme -*-

((table (border 0)
        (cellspacing 5)
        (class "vmenu")
        (align center))
 (tr ((th (colspan 2)) ((a (href "http://www.hackerposse.com/~rozzin")) rozzin)))
 .
 #.(map (lambda (x)
          `(tr ((td (align right)
                    (class visualid))
                ((img (alt "@") (width 24) (height 24)
                      (src ,(string-append "/~rozzin/menu-icons/"
                                           (cadr x))))))
               ((td (class menu-item)) ((a (href ,(car x))) ,(cadr x)))))
        (map (lambda (file)
               (list (read-line (open-input-file (string-append "menu/"
                                                                file)))
                     file))
             (list-files-matching "menu" "^[^.][^,]*[^~]$"))))