commit a4875b8fe5c6f3d224e5e46fcfb40f5fdf396145 parent f19be46ac4b6fd7025ed35a73e79ad91a428c91b Author: David Van Horn <dvanhorn@ccs.neu.edu> Date: Fri, 23 Jun 2017 10:58:25 -0400 Use exact-chars for URL arguments in badge commands. Diffstat:
| M | scribble-lib/scribble/acmart.rkt | | | 13 | ++++--------- |
1 file changed, 4 insertions(+), 9 deletions(-)
diff --git a/scribble-lib/scribble/acmart.rkt b/scribble-lib/scribble/acmart.rkt @@ -80,8 +80,6 @@ [CCSXML (->* () () #:rest (listof pre-content?) any/c)]) -(provide - invisible-element-to-collect-for-acmart-extras) (define-syntax-rule (defopts name ...) (begin (define-syntax (name stx) @@ -138,9 +136,6 @@ (make-css-addition (abs "acmart.css")) (make-tex-addition (abs "acmart.tex"))))) -(define invisible-element-to-collect-for-acmart-extras - (make-element (make-style "invisible-element-to-collect-for-acmart-extras" acmart-extras) '())) - ;; ---------------------------------------- ;; Abstracts: @@ -182,19 +177,19 @@ (define (acmBadgeR #:url [url #f] str) (make-paragraph (make-style 'pretitle '()) (if url - (make-multiarg-element (make-style "SacmBadgeRURL" multicommand-props) + (make-multiarg-element (make-style "SacmBadgeRURL" (cons 'exact-chars multicommand-props)) (list (decode-string url) (decode-string str))) - (make-element (make-style "acmBadgeR" command-props) + (make-element (make-style "acmBadgeR" (cons 'exact-chars command-props)) (decode-string str))))) (define (acmBadgeL #:url [url #f] str) (make-paragraph (make-style 'pretitle '()) (if url - (make-multiarg-element (make-style "SacmBadgeLURL" multicommand-props) + (make-multiarg-element (make-style "SacmBadgeLURL" (cons 'exact-chars multicommand-props)) (list (decode-string url) (decode-string str))) - (make-element (make-style "acmBadgeL" command-props) + (make-element (make-style "acmBadgeL" (cons 'exact-chars command-props)) (decode-string str))))) (define (received #:stage [s #f] str)