From 1b4d15957cc0bd16ed8bee7205fcc72ff5dac3ed Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Wed, 2 Aug 2017 13:16:59 -0400 Subject: [PATCH] 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. --- scribble-lib/scribble/acmart.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scribble-lib/scribble/acmart.rkt b/scribble-lib/scribble/acmart.rkt index 79ef787e..d630f9dd 100644 --- a/scribble-lib/scribble/acmart.rkt +++ b/scribble-lib/scribble/acmart.rkt @@ -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]