(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))
	(test (pp `(layout (@ (menu-items ,menu-items)))))
	(menu-items ''((menu-item (@ (id "home") (icon "home") (text "Home") (href "/")))
		       (menu-item (@ (id "home") (icon "home") (text "Home") (href "/")))
		       ))
	(test (pp menu-items))
	(test (pp `(layout (@ (menu-items ,menu-items)))))
	)
 `(layout (@ (menu-items ,menu-items
			 ;`((menu-item (@ (id "statusbox") (icon "home") (text "statusbox") (href "/")))
			 ;  (menu-item (@ (id "menu-item") (icon "home") (text "menu-item") (href "/"))))
			 )
	     (title "Widget Debugger"))
	  (h1 "Welcome to the Widget Debugger")
	  (groupbox (@ (title "Test"))
		    (statusbox)
		    )
	  (h1 (@ (style "clear: both;")) "---B<---")
	  )))