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

acmart: fix grantsponsor and grantnum

Browse Source 
Generating a block is inconsistent with `acks`.
This commit is contained in:
Matthew Flatt 2017-09-07 20:19:37 -06:00
parent ca1f9482c0
commit 6f73b1aef6
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,9 +70,9 @@
[acmConference [acmConference
(-> string? string? string? block?)] (-> string? string? string? block?)]
[grantsponsor [grantsponsor
(-> string? string? string? block?)] (-> string? string? string? content?)]
[grantnum [grantnum
(->* (string? string?) (#:url string?) block?)] (->* (string? string?) (#:url string?) content?)]
[acmBadgeR (->* (string?) (#:url string?) block?)] [acmBadgeR (->* (string?) (#:url string?) block?)]
[acmBadgeL (->* (string?) (#:url string?) block?)] [acmBadgeL (->* (string?) (#:url string?) block?)]
[received (->* (string?) (#:stage string?) block?)] [received (->* (string?) (#:stage string?) block?)]
@ -163,22 +163,20 @@
(decode-string venue))))) (decode-string venue)))))
(define (grantsponsor id name url) (define (grantsponsor id name url)
(make-paragraph (make-style 'pretitle '()) (make-multiarg-element (make-style "grantsponsor" multicommand-props)
(make-multiarg-element (make-style "grantsponsor" multicommand-props) (list (decode-string id)
(list (decode-string id) (decode-string name)
(decode-string name) (decode-string url))))
(decode-string url)))))
(define (grantnum #:url [url #f] id num) (define (grantnum #:url [url #f] id num)
(make-paragraph (make-style 'pretitle '()) (if url
(if url (make-multiarg-element (make-style "SgrantnumURL" multicommand-props)
(make-multiarg-element (make-style "SgrantnumURL" multicommand-props) (list (decode-string url)
(list (decode-string url) (decode-string id)
(decode-string id) (decode-string num)))
(decode-string num))) (make-multiarg-element (make-style "grantnum" multicommand-props)
(make-multiarg-element (make-style "grantnum" multicommand-props) (list (decode-string id)
(list (decode-string id) (decode-string num)))))
(decode-string num))))))
(define (acmBadgeR #:url [url #f] str) (define (acmBadgeR #:url [url #f] str)
(make-paragraph (make-style 'pretitle '()) (make-paragraph (make-style 'pretitle '())