page-definer

(use awful html-tags)

(define (dk-nav)
  (<ul> (<li> (link "http://duckduckgo.com" "ddg"))))

(define (define-my-page path content)
  (define-page path
    (lambda ()
      (<html>
       (<head>
        (<style> "p { color:#00ffbb } p.left { float:left; } .content { margin-left: 100px } .container { width:100% }"))
       (<body>
        (<div> id: "container"
               (<p> id: "left" (dk-nav))
               (<div> id: "content" (content))))))))

(define-my-page (main-page-path)
  (lambda ()
    (<p>  "hello world!")))