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

autobib book-location: fix capitalization of ordinal editions

Browse Source
This commit is contained in:
Stephen Chang 2017-08-02 13:17:38 -04:00 committed by Ben Greenman
parent 1b4d15957c
commit f707394839
2 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -522,11 +522,17 @@
s)])
s))
(define (string-capitalize str)
(if (non-empty-string? str)
(let ([chars (string->list str)])
(list->string (cons (char-upcase (car chars)) (cdr chars))))
str))
(define (book-location
#:edition [edition #f]
#:publisher [publisher #f])
(let* ([s (if edition
@elem{@(string-titlecase (to-string edition)) edition}
@elem{@(string-capitalize (to-string edition)) edition}
#f)]
[s (if publisher
(if s

19
scribble-test/tests/scriblib/autobib.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require rackunit scriblib/autobib)
(require rackunit scriblib/autobib scribble/base scribble/core)
(test-case "define-cite"
;; Check that `define-cite` binds the expected identifiers
@ -39,6 +39,23 @@
(check-exn exn:fail?
(λ () (book-location))))
(define (mk-bookloc-elem/ed ed) (element (style #f '()) (list ed " edition")))
(test-case "book-location-edition-capitalization"
(check-equal? (book-location #:edition 'a)
(mk-bookloc-elem/ed "A"))
(check-equal? (book-location #:edition "first")
(mk-bookloc-elem/ed "First"))
(check-equal? (book-location #:edition 'Third)
(mk-bookloc-elem/ed "Third"))
(check-equal? (book-location #:edition 1)
(mk-bookloc-elem/ed "1"))
(check-equal? (book-location #:edition "1st")
(mk-bookloc-elem/ed "1st"))
(check-equal? (book-location #:edition "4th")
(mk-bookloc-elem/ed "4th")))
(test-case "techrpt-location"
(check-not-exn
(λ () (techrpt-location #:institution "MIT" #:number 'AIM-353)))