Você não pode selecionar mais de 25 tópicos
Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
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))))
|