(define (widgets) '((foo) (bar)))

(define widget-debugger-page
  (let* ((widget-names (map car (widgets)))
         (menu-items (map (lambda (name)
                            `(menu-item (@ (id ,(symbol->string name))
                                           (icon "home")
                                           (text ,(symbol->string name))
                                           (href "/")
                                           )))
                          widget-names)))
    `(layout (@ (menu-items ,menu-items)
                (title "Widget Debugger"))
             (h1 "Welcome to the Widget Debugger")
             (groupbox (@ (title "Test"))
                       (statusbox))
             (h1 (@ (style "clear: both;")) "---B<---")
             )))

(pp widget-debugger-page)