;;; Template                                                                                                   
(define (fill-template path-matcher  #!key
                       (title: "Página principal")
                       (head-content "Cabeçalho")
                       (menu-content "Menu")
                       (body-content "Corpo")
                       (bottom-content "Rodapé")
                       css doctype headers charset no-ajax use-ajax
                       no-template no-session no-db no-javascript-compression
                       method use-sxml)
  (define-page path-matcher
    (λ(#!optional path)
      `(div (@ (id "container"))
            (div (@ (id "head")) ,head-content)
            (div (@ (id "menu")) ,menu-content)
            (div (@ (id "body")) ,body-content)
            (div (@ (id "bottom")) ,bottom-content)))
    title: title css: css doctype: doctype headers: headers
    charset: charset no-ajax: no-ajax use-ajax: use-ajax
    no-template: no-template no-session: no-session no-db: no-db
    no-javascript-compression: no-javascript-compression
    method: method use-sxml: use-sxml)