gistfile1.lisp

(defmacro with-layout ((&key (header *header-html*)
                             (side *side-html*)
                             (footer *footer-html*)
                             (title "title here")
                             (css "/css/main.css")
                             )
                       &body body)
  `(cl-who:with-html-output-to-string (*standard-output* nil :prologue nil :indent t)
      (:html
       (:head (:title ,title)
              (:link :rel "stylesheet" :type "text/css" :href ,css)
              )
       (:body
        (:div
         :id "body"
         (:div
          :id "header"
          ,@header
          )
         (:div
          :id "navigation"
          ,@side
          )
         (:div
          :id "contents"
          ,@body
          )
         (:div
          :id "footer"
          ,@footer
          )
         )
        )
       )
     )
  )