suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Sort bib entries by year when authors are equal.

Browse Source 
Works only when just the year is specified.

original commit: d50eac2effe61bcd7e3fa9584b5dab652b54938f
This commit is contained in:
Sam Tobin-Hochstadt 2010-11-16 13:27:50 -05:00
parent 1f37c2230a
commit 865ad8584c
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/scriblib/autobib.rkt
View File

@ -88,12 +88,21 @@
(define (extract-bib-key b) (define (extract-bib-key b)
(author-element-names (auto-bib-author b))) (author-element-names (auto-bib-author b)))
(define (extract-bib-year b)
(string->number (auto-bib-date b)))
(define (gen-bib tag group) (define (gen-bib tag group)
(let* ([author<? (lambda (a b) (let* ([author/date<?
(string<? (extract-bib-key a) (extract-bib-key b)))] (lambda (a b)
(or
(string<? (extract-bib-key a) (extract-bib-key b))
(and (string=? (extract-bib-key a) (extract-bib-key b))
(extract-bib-year a) (extract-bib-year b)
(< (extract-bib-year a) (extract-bib-year b)))))]
[bibs (sort (hash-map (bib-group-ht group) [bibs (sort (hash-map (bib-group-ht group)
(lambda (k v) k)) (lambda (k v) k))
author<?)]) author/date<?)])
(make-part (make-part
#f #f
`((part ,tag)) `((part ,tag))