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

Provide ccsdesc, use exact-chars.

Browse Source 
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:
David Van Horn 2017-08-02 13:16:59 -04:00 committed by Ben Greenman
parent 8a85572679
commit 1b4d15957c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scribble-lib/scribble/acmart.rkt
View File

@ -77,6 +77,7 @@
[acmBadgeL (->* (string?) (#:url string?) block?)]
[received (->* (string?) (#:stage string?) block?)]
[citestyle (-> content? block?)]
[ccsdesc (->* (string?) (#:number exact-integer?) block?)]
[CCSXML
(->* () () #:rest (listof pre-content?)
any/c)])
@ -214,10 +215,10 @@
(define (ccsdesc #:number [n #f] str)
(make-paragraph (make-style 'pretitle '())
(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)
(decode-string str)))
(make-element (make-style "ccsdesc" command-props)
(make-element (make-style "ccsdesc" (cons 'exact-chars command-props))
(decode-string str)))))
(define (title #:tag [tag #f]