Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
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))))
|