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

Add book-chapter-location to autobib (#182)

Browse Source
This commit is contained in:
mlemmer 2019-05-01 23:36:11 -04:00 committed by Ben Greenman
parent 7635f21788
commit dce36bfc18
2 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -236,6 +236,17 @@ Combines elements to generate an element that is suitable for
describing a dissertation.}
@defproc[(book-chapter-location [title any/c]
[#:pages pages (or (list/c any/c any/c) #f) #f]
[#:section section any/c #f]
[#:volume volume any/c #f]
[#:publisher publisher any/c #f])
element?]{
Combines elements to generate an element that is suitable for
describing a paper's location within a chapter or part of a book.}
@defproc[(author-name [first any/c]
[last any/c]
[#:suffix suffix any/c #f])

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

@ -29,6 +29,8 @@
(-> #:institution any/c #:number any/c element?)]
[dissertation-location
(->* [#:institution any/c] [#:degree any/c] element?)])
[book-chapter-location
(->* [any/c] [#:pages (or/c (list/c any/c any/c) #f) #:section any/c #:volume any/c #:publisher any/c] element?)]
other-authors
editor
abbreviate-given-names)
@ -563,6 +565,27 @@
#:degree [degree "PhD"])
@elem{@to-string[degree] dissertation, @to-string[org]})
(define (book-chapter-location
location
#:pages [pages #f]
#:series [series #f]
#:volume [volume #f]
#:publisher [publisher #f])
(let* ([s @elem{In @italic{@elem{@|location|}}}]
[s (if series
@elem{@|s|, @(format "~a" series)}
s)]
[s (if volume
@elem{@|s| volume @(format "~a" volume)}
s)]
[s (if pages
@elem{@|s|, pp. @(to-string (car pages))--@(to-string (cadr pages))}
s)]
[s (if publisher
@elem{@|s| @(format "~a" publisher)}
s)])
s))
;; ----------------------------------------
(define (author-name first last #:suffix [suffix #f])