From d50eac2effe61bcd7e3fa9584b5dab652b54938f Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 16 Nov 2010 13:27:50 -0500
Subject: [PATCH] Sort bib entries by year when authors are equal.

Works only when just the year is specified.
---
 collects/scriblib/autobib.rkt | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/collects/scriblib/autobib.rkt b/collects/scriblib/autobib.rkt
index 8971c0c296..0aa4d3fa61 100644
--- a/collects/scriblib/autobib.rkt
+++ b/collects/scriblib/autobib.rkt
@@ -88,12 +88,21 @@
 (define (extract-bib-key b)
   (author-element-names (auto-bib-author b)))
 
+(define (extract-bib-year b)
+  (string->number (auto-bib-date b)))
+
+
 (define (gen-bib tag group)
-  (let* ([author<? (lambda (a b)
-                     (string<? (extract-bib-key a) (extract-bib-key b)))]
+  (let* ([author/date<? 
+          (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)
                                (lambda (k v) k))
-                     author<?)])
+                     author/date<?)])
     (make-part
      #f
      `((part ,tag))