dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

post: Rename post->time to post-time. 

* haunt/post.scm (post->time): Rename to...
  (post-time): ...this.
This commit is contained in:
David Thompson 2015-04-13 19:24:20 -04:00
parent 87aaae2585
commit 3614b3e9b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
haunt/post.scm
View File

@ -59,14 +59,14 @@
char-set:whitespace)) char-set:whitespace))
"-")) "-"))
(define (post->time post) (define (post-time post)
(date->time-utc (post-ref post 'date))) (date->time-utc (post-ref post 'date)))
(define (posts/reverse-chronological posts) (define (posts/reverse-chronological posts)
"Returns POSTS sorted in reverse chronological order." "Returns POSTS sorted in reverse chronological order."
(sort posts (sort posts
(lambda (a b) (lambda (a b)
(time>? (post->time a) (post->time b))))) (time>? (post-time a) (post-time b)))))
(define (posts/group-by-tag posts) (define (posts/group-by-tag posts)
"Return an alist of tags mapped to the posts that used them." "Return an alist of tags mapped to the posts that used them."