(define-module (operationnull static)
  #:use-module (haunt artifact)
  #:use-module (haunt reader commonmark)
  #:use-module (haunt html)
  #:use-module (haunt builder blog)
  #:use-module (operationnull theme)
  #:export (static-page))


(define* (static-page page destination title
                      #:key
                      (theme main-theme)
                      (reader commonmark-reader))
  "Return a builder procedure that reads FILE into SXML, adjusts it
according to the THEME and serialize to HTML and put it to
build-directory of the site.  DESTINATION is a relative resulting file
path."
  (lambda (site posts)
    (list
     (serialized-artifact
      destination
      (with-layout theme site title page)
      sxml->html))))