|
@ -198,14 +198,14 @@ |
|
|
; Grab a post id given a post name |
|
|
; Grab a post id given a post name |
|
|
; Return false if it does not exist |
|
|
; Return false if it does not exist |
|
|
(define (git-href post-name) |
|
|
(define (git-href post-name) |
|
|
(let ([get-post-id (commit->post-id post-name)]) |
|
|
(let ([convert-commit (commit->post-id post-name)]) |
|
|
(match |
|
|
(match |
|
|
(get-post-id |
|
|
(map convert-commit |
|
|
(memf |
|
|
(memf |
|
|
get-post-id |
|
|
convert-commit |
|
|
(current-commits))) |
|
|
(current-commits))) |
|
|
[(list-rest post-id _) post-id] |
|
|
[(list-rest post-id _) post-id] |
|
|
[_ #f]))) |
|
|
[x #f]))) |
|
|
|
|
|
|
|
|
; Add or refresh a post id associated with that post name |
|
|
; Add or refresh a post id associated with that post name |
|
|
(define (git-set! post-name post-id) |
|
|
(define (git-set! post-name post-id) |
|
|