Provide ccsdesc, use exact-chars.
The ccsdesc function was defined, but not provided. Also added use of exact-chars since its argument contains characters such as "~" which should not be converted to \sim.
This commit is contained in:
parent
8a85572679
commit
1b4d15957c
|
@ -77,6 +77,7 @@
|
||||||
[acmBadgeL (->* (string?) (#:url string?) block?)]
|
[acmBadgeL (->* (string?) (#:url string?) block?)]
|
||||||
[received (->* (string?) (#:stage string?) block?)]
|
[received (->* (string?) (#:stage string?) block?)]
|
||||||
[citestyle (-> content? block?)]
|
[citestyle (-> content? block?)]
|
||||||
|
[ccsdesc (->* (string?) (#:number exact-integer?) block?)]
|
||||||
[CCSXML
|
[CCSXML
|
||||||
(->* () () #:rest (listof pre-content?)
|
(->* () () #:rest (listof pre-content?)
|
||||||
any/c)])
|
any/c)])
|
||||||
|
@ -214,10 +215,10 @@
|
||||||
(define (ccsdesc #:number [n #f] str)
|
(define (ccsdesc #:number [n #f] str)
|
||||||
(make-paragraph (make-style 'pretitle '())
|
(make-paragraph (make-style 'pretitle '())
|
||||||
(if n
|
(if n
|
||||||
(make-multiarg-element (make-style "SccsdescNumber" multicommand-props)
|
(make-multiarg-element (make-style "SccsdescNumber" (cons 'exact-chars multicommand-props))
|
||||||
(list (number->string n)
|
(list (number->string n)
|
||||||
(decode-string str)))
|
(decode-string str)))
|
||||||
(make-element (make-style "ccsdesc" command-props)
|
(make-element (make-style "ccsdesc" (cons 'exact-chars command-props))
|
||||||
(decode-string str)))))
|
(decode-string str)))))
|
||||||
|
|
||||||
(define (title #:tag [tag #f]
|
(define (title #:tag [tag #f]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user