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[anonymous]
@defidform[authorversion]
@defidform[nonacm]
@defidform[timestamp]
@defidform[authordraft]
@defidform[acmthm]
@defidform[9pt]
@defidform[10pt]
@defidform[11pt]
@ -101,7 +105,6 @@ Veytsman) provides these defaults and descriptions:
for the authors’ personal use or posting")
;; these options are documented in ACM docs but don't
;; appear to exist in the scribble acmart format:
#;(
(list "nonacm" "false"
"Use the class typesetting options for a non-ACM\
document, which will not include the conference/journal\
@ -112,7 +115,7 @@ Veytsman) provides these defaults and descriptions:
(list "authordraft" "false"
"Whether author’s-draft mode is enabled")
(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
documentation for the acmart LaTeX class.

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

@ -22,12 +22,17 @@
[natbib? #f]
[anonymous? #f]
[authorversion? #f]
[font-size #f])
[font-size #f]
[nonacm? #f]
[timestamp? #f]
[author-draft? #f]
[acmthm? #f])
(let loop ([stuff #'body])
(syntax-parse stuff
#:datum-literals (manuscript acmsmall acmlarge acmtog sigconf siggraph sigplan sigchi
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:
[(ws . body)
@ -94,7 +99,42 @@
[(12pt . body)
(set! font-size "12pt")
(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
[((~and fmt
@ -116,7 +156,9 @@
(loop #'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)
(let ([options