bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 1b4d15957cc0bd16ed8bee7205fcc72ff5dac3ed
parent 8a8557267960b42a66cd850697cf21ff1f79da6b
Author: David Van Horn <dvanhorn@cs.umd.edu>
Date:   Wed,  2 Aug 2017 13:16:59 -0400

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.
Diffstat:
M
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
@@ -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]