suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

autobib: add #:spaces argument to define-cite that puts N spaces between each bibliography entry

Browse Source 
original commit: 37f47f7d68ae2a9e843190437f1e65f04c500397
This commit is contained in:
Jon Rafkind 2013-02-28 22:40:10 -07:00
parent 4e188c38da
commit 5aa01a0aaa
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scriblib/autobib.rkt
View File

@ -222,7 +222,8 @@
(define (gen-bib tag group sec-title
style maybe-disambiguator
maybe-render-date-bib maybe-render-date-cite
maybe-date<? maybe-date=?)
maybe-date<? maybe-date=?
spaces)
(define disambiguator (or maybe-disambiguator default-disambiguation))
(define date<? (or maybe-date<? default-date<?))
(define date=? (or maybe-date=? default-date=?))
@ -304,12 +305,22 @@
(bib->para 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 #:date<? date<?) #:defaults ([date<? #'#f]))
(~optional (~seq #:date=? date=?) #:defaults ([date=? #'#f]))) ...)
@ -365,7 +377,7 @@
(define (citet bib-entry . bib-entries)
(add-inline-cite group (cons bib-entry bib-entries) the-style date<? date=?))
(define (generate-bibliography #:tag [tag "doc-bibliography"] #:sec-title [sec-title "Bibliography"])
(gen-bib tag group sec-title the-style fn render-date-bib render-date-cite date<? date=?))))]))
(gen-bib tag group sec-title the-style fn render-date-bib render-date-cite date<? date=? spaces))))]))
(define (ends-in-punc? e)
(regexp-match? #rx"[.!?,]$" (content->string e)))