(defmacro with-html (&body body)
  "quick wrapper around cl-who:with-html-output"
  `(cl-who:with-html-output (s *html-output-stream*)
     ,@body))

(defmacro content-html (content &key (wrapper-id nil))
  `(with-html (:main :class "wrapper" :id ,wrapper-id
		    (:section :class "container" :id "header"
			      (:img :class "img" :src ,(website-standard-image) :height "45")
			      ,@content))))