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

Add an identifier for acmart's nonacm flag. (#181)

Browse Source 
* Add an identifier for acmart's nonacm flag.

* Add defidform of nonacm to docs.

* Add the rest of the missing flags

* Forgot one more line.
This commit is contained in:
Leif Andersen 2018-09-12 22:03:04 -04:00 committed by Ben Greenman
parent 16cddd7276
commit d9e0462393
2 changed files with 51 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scribble-doc/scribblings/scribble/acmart.scrbl
View File

@ -58,6 +58,10 @@ all mutually exclusive.}
@defidform[natbib] @defidform[natbib]
@defidform[anonymous] @defidform[anonymous]
@defidform[authorversion] @defidform[authorversion]
@defidform[nonacm]
@defidform[timestamp]
@defidform[authordraft]
@defidform[acmthm]
@defidform[9pt] @defidform[9pt]
@defidform[10pt] @defidform[10pt]
@defidform[11pt] @defidform[11pt]
@ -101,7 +105,6 @@ Veytsman) provides these defaults and descriptions:
for the authors’ personal use or posting") for the authors’ personal use or posting")
;; these options are documented in ACM docs but don't ;; these options are documented in ACM docs but don't
;; appear to exist in the scribble acmart format: ;; appear to exist in the scribble acmart format:
#;(
(list "nonacm" "false" (list "nonacm" "false"
"Use the class typesetting options for a non-ACM\ "Use the class typesetting options for a non-ACM\
document, which will not include the conference/journal\ document, which will not include the conference/journal\
@ -112,7 +115,7 @@ Veytsman) provides these defaults and descriptions:
(list "authordraft" "false" (list "authordraft" "false"
"Whether author’s-draft mode is enabled") "Whether author’s-draft mode is enabled")
(list "acmthm" "true" (list "acmthm" "true"
"Whether to define theorem-like environments")))] "Whether to define theorem-like environments"))]
Further details for some of these are provided by the full Further details for some of these are provided by the full
documentation for the acmart LaTeX class. documentation for the acmart LaTeX class.

50
scribble-lib/scribble/acmart/lang.rkt
View File

@ -22,12 +22,17 @@
[natbib? #f] [natbib? #f]
[anonymous? #f] [anonymous? #f]
[authorversion? #f] [authorversion? #f]
[font-size #f]) [font-size #f]
[nonacm? #f]
[timestamp? #f]
[author-draft? #f]
[acmthm? #f])
(let loop ([stuff #'body]) (let loop ([stuff #'body])
(syntax-parse stuff (syntax-parse stuff
#:datum-literals (manuscript acmsmall acmlarge acmtog sigconf siggraph sigplan sigchi #:datum-literals (manuscript acmsmall acmlarge acmtog sigconf siggraph sigplan sigchi
sigchi-a dtrap pacmcgit tiot tdsci review screen natbib sigchi-a dtrap pacmcgit tiot tdsci review screen natbib
anonymous authorversion 9pt 10pt 11pt 12pt) anonymous authorversion 9pt 10pt 11pt 12pt nonacm timestamp
authordraft acmthm)
;; Skip intraline whitespace to find options: ;; Skip intraline whitespace to find options:
[(ws . body) [(ws . body)
@ -94,7 +99,42 @@
[(12pt . body) [(12pt . body)
(set! font-size "12pt") (set! font-size "12pt")
(loop #'body)] (loop #'body)]
[((nonacm #t) . body)
(set! nonacm? "nonacm=true")
(loop #'body)]
[((nonacm #f) . body)
(set! nonacm? "nonacm=false")
(loop #'body)]
[(nonacm . body)
(set! nonacm? "nonacm=true")
(loop #'body)]
[(timestamp . body)
(set! timestamp? "timestamp=true")
(loop #'body)]
[((timestamp #t) . body)
(set! timestamp? "timestamp=true")
(loop #'body)]
[((timestamp #f) . body)
(set! timestamp? "timestamp=false")
(loop #'body)]
[(authordraft . body)
(set! author-draft? "authordraft=true")
(loop #'body)]
[((authordraft #t) . body)
(set! author-draft? "authordraft=true")
(loop #'body)]
[((authordraft #f) . body)
(set! author-draft? "authordraft=false")
(loop #'body)]
[(acmthm . body)
(set! acmthm? "acmthm=true")
(loop #'body)]
[((acmthm #t) . body)
(set! acmthm? "acmthm=true")
(loop #'body)]
[((acmthm #f) . body)
(set! acmthm? "acmthm=false")
(loop #'body)]
; format options ; format options
[((~and fmt [((~and fmt
@ -116,7 +156,9 @@
(loop #'body)] (loop #'body)]
[body [body
#`(#%module-begin id (post-process #,review? #,screen? #,natbib? #,anonymous? #,authorversion? #,font-size #,format?) () . body)])))])) #`(#%module-begin id (post-process #,review? #,screen? #,natbib? #,anonymous?
#,authorversion? #,font-size #,nonacm? #,timestamp?
#,author-draft? #,acmthm? #,format?) () . body)])))]))
(define ((post-process . opts) doc) (define ((post-process . opts) doc)
(let ([options (let ([options