diff --git a/collects/scriblib/autobib.rkt b/collects/scriblib/autobib.rkt index 4d31b698..a6baa611 100644 --- a/collects/scriblib/autobib.rkt +++ b/collects/scriblib/autobib.rkt @@ -222,7 +222,8 @@ (define (gen-bib tag group sec-title style maybe-disambiguator maybe-render-date-bib maybe-render-date-cite - maybe-datepara bib (and ambiguous?? (disambiguator num-ambiguous*)) i)) (values bib num-ambiguous* (cons para* rev-disambiguated*)))) (reverse rev-disambiguated*))) + + (define (make-space) + (list + (make-paragraph (make-style #f '()) '("")) + (make-paragraph (make-style #f '()) '("")))) + (make-part #f `((part ,tag)) (list sec-title) (make-style #f '(unnumbered)) null - (list (make-table (send style bibliography-table-style) disambiguated)) + (list (make-table (send style bibliography-table-style) + (add-between #:splice? #t + disambiguated + (for/list ([i (in-range 1 spaces)]) + (make-space))))) null)) (define (bib->entry bib style disambiguation render-date-bib i) @@ -353,6 +364,7 @@ (~or (~optional (~seq #:style style) #:defaults ([style #'author+date-style])) (~optional (~seq #:disambiguate fn) #:defaults ([fn #'#f])) (~optional (~seq #:render-date-in-bib render-date-bib) #:defaults ([render-date-bib #'#f])) + (~optional (~seq #:spaces spaces) #:defaults ([spaces #'1])) (~optional (~seq #:render-date-in-cite render-date-cite) #:defaults ([render-date-cite #'#f])) (~optional (~seq #:datestring e)))