Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

123456789101112131415
  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)))