; -*- scheme -*-

((table (border 0)
        (cellspacing 5)
        (class "vmenu")
        (align center))
 (tr ((th (colspan 2)) ((a (href "/~rozzin")) rozzin)))
 .
 #.(map (lambda (x)
          `(tr ((td (align right)
                    (class visualid))
                ((object (width 24) (height 24)
                         (data ,(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" "^[^.][^,]*[^~]$"))))