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

Use exact-chars for URL arguments in badge commands.

Browse Source
This commit is contained in:
David Van Horn 2017-06-23 10:58:25 -04:00 committed by Vincent St-Amour
parent f19be46ac4
commit a4875b8fe5
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -80,8 +80,6 @@
[CCSXML [CCSXML
(->* () () #:rest (listof pre-content?) (->* () () #:rest (listof pre-content?)
any/c)]) any/c)])
(provide
invisible-element-to-collect-for-acmart-extras)
(define-syntax-rule (defopts name ...) (define-syntax-rule (defopts name ...)
(begin (define-syntax (name stx) (begin (define-syntax (name stx)
@ -138,9 +136,6 @@
(make-css-addition (abs "acmart.css")) (make-css-addition (abs "acmart.css"))
(make-tex-addition (abs "acmart.tex"))))) (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: ;; Abstracts:
@ -182,19 +177,19 @@
(define (acmBadgeR #:url [url #f] str) (define (acmBadgeR #:url [url #f] str)
(make-paragraph (make-style 'pretitle '()) (make-paragraph (make-style 'pretitle '())
(if url (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) (list (decode-string url)
(decode-string str))) (decode-string str)))
(make-element (make-style "acmBadgeR" command-props) (make-element (make-style "acmBadgeR" (cons 'exact-chars command-props))
(decode-string str))))) (decode-string str)))))
(define (acmBadgeL #:url [url #f] str) (define (acmBadgeL #:url [url #f] str)
(make-paragraph (make-style 'pretitle '()) (make-paragraph (make-style 'pretitle '())
(if url (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) (list (decode-string url)
(decode-string str))) (decode-string str)))
(make-element (make-style "acmBadgeL" command-props) (make-element (make-style "acmBadgeL" (cons 'exact-chars command-props))
(decode-string str))))) (decode-string str)))))
(define (received #:stage [s #f] str) (define (received #:stage [s #f] str)