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

autobib: book-chapter fixes

Browse Source 
- move `)` for contract-out
- fix keyword in contract
- add `to-string` uses
This commit is contained in:
Ben Greenman 2019-05-02 00:05:55 -04:00
parent dce36bfc18
commit 4a88753757
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,9 +28,9 @@
[techrpt-location
(-> #:institution any/c #:number any/c element?)]
[dissertation-location
(->* [#:institution any/c] [#:degree any/c] element?)])
(->* [#: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?)]
(->* [any/c] [#:pages (or/c (list/c any/c any/c) #f) #:series any/c #:volume any/c #:publisher any/c] element?)])
other-authors
editor
abbreviate-given-names)
@ -571,18 +571,18 @@
#:series [series #f]
#:volume [volume #f]
#:publisher [publisher #f])
(let* ([s @elem{In @italic{@elem{@|location|}}}]
(let* ([s @elem{In @italic{@elem{@to-string[location]}}}]
[s (if series
@elem{@|s|, @(format "~a" series)}
@elem{@|s|, @to-string[series]}
s)]
[s (if volume
@elem{@|s| volume @(format "~a" volume)}
@elem{@|s| volume @to-string[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)}
@elem{@|s| @to-string[publisher]}
s)])
s))