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