diff options
Diffstat (limited to 'haunt.scm')
| -rw-r--r-- | haunt.scm | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -13,8 +13,15 @@ (define post-prefix "post") +(define (posts/reverse-file-name posts) + "Returns POSTS sorted in reverse file name order." + (sort posts + (lambda (a b) + (string>? (post-file-name a) (post-file-name b))))) + (define (filter-now posts) - (filter (lambda (p) (member "now" (post-tags p))) posts)) + (posts/reverse-file-name + (filter (lambda (p) (member "now" (post-tags p))) posts))) (define (filter-not-now posts) (posts/reverse-chronological |