(use awful sxml-transforms)

(define (define-solaronite-page path content)
  (define-page path
    (lambda (#!optional path)
      (sxml->html
       `(,the-doctype
	 (html
	  (head (title ,(the-title path)))
	  (body ,(content))))))))