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

added author+date-square-bracket-style

Browse Source
This commit is contained in:
Robby Findler 2017-08-14 07:23:09 -05:00
parent 0931c3577a
commit 01b279d5ba
2 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scribble-doc/scriblib/scribblings/autobib.scrbl
View File

@ -144,10 +144,16 @@ optionally given @racket[render-date-expr] functions.
@deftogether[(
@defthing[author+date-style any/c]
@defthing[author+date-square-bracket-style any/c]
@defthing[number-style any/c]
)]{
Styles for use with @racket[define-cite].}
Styles for use with @racket[define-cite].
The @racket[author+date-square-bracket-style] definition is the same
as @racket[author+date-style], except that references to citations
are enclosed in @litchar["[]"] instead of @litchar["()"].
}
@defproc[(bib? [v any/c]) boolean?]{

36
scribble-lib/scriblib/autobib.rkt
View File

@ -14,7 +14,7 @@
racket/contract)
(provide define-cite
author+date-style number-style
author+date-style author+date-square-bracket-style number-style
make-bib in-bib (rename-out [auto-bib? bib?])
author-name org-author-name
(contract-out
@ -195,20 +195,28 @@
(error 'default-disambiguation "Citations too ambiguous for default disambiguation scheme."))
(make-element #f (list (format "~a" (integer->char (+ 97 n))))))
(define author+date-style
(define author+date-style%
(class object%
(define/public (bibliography-table-style) bib-single-style)
(define/public (entry-style) bibentry-style)
(define/public (disambiguate-date?) #t)
(define/public (collapse-for-date?) #t)
(define/public (get-cite-open) "(")
(define/public (get-cite-close) ")")
(define/public (get-group-sep) "; ")
(define/public (get-item-sep) ", ")
(define/public (render-citation date-cite i) date-cite)
(define/public (render-author+dates author dates) (list* author " " dates))
(define/public (bibliography-line i e) (list e))
(super-new)))
(define author+date-style (new author+date-style%))
(define author+date-square-bracket-style
(new
(class object%
(define/public (bibliography-table-style) bib-single-style)
(define/public (entry-style) bibentry-style)
(define/public (disambiguate-date?) #t)
(define/public (collapse-for-date?) #t)
(define/public (get-cite-open) "(")
(define/public (get-cite-close) ")")
(define/public (get-group-sep) "; ")
(define/public (get-item-sep) ", ")
(define/public (render-citation date-cite i) date-cite)
(define/public (render-author+dates author dates) (list* author " " dates))
(define/public (bibliography-line i e) (list e))
(class author+date-style%
(define/override (get-cite-open) "[")
(define/override (get-cite-close) "]")
(super-new))))
(define number-style