You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

build.scm 460B

  1. (module build (build-posts build-post)
  2. (import scheme (chicken io))
  3. (import config paths)
  4. (define (build-post config post)
  5. (let* ([path (car post)]
  6. [content (cdr post)]
  7. [absolute-path (absolute-build-path config path)])
  8. (call-with-output-file
  9. absolute-path
  10. (lambda (port) (write-string content #f port)))))
  11. (define (build-posts config posts)
  12. (map (lambda (post) (build-post config post)) posts)))