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