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.
12345678910111213141516 |
- (module io *
- (import scheme (chicken file) (chicken io))
-
- (import config paths)
-
- (define (read-post-file config path)
- (let ([absolute-path (absolute-post-path config path)])
- (call-with-input-file absolute-path (lambda (port) (read-string #f port)))))
-
- (define (fetch-posts config)
- (let* ([posts-path (config-posts-dir config)]
- [post-paths (directory posts-path)])
- (map
- (lambda (path)
- (cons path (read-post-file config path)))
- post-paths))))
|