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

Add include-abstract.

Browse Source 
The docs claimed it was there, but we missed it when creating
scribble/acmart. As such, this commit adds it in.
This commit is contained in:
Leif Andersen 2018-01-31 16:22:05 -05:00
parent 1d8221a321
commit 710f517caf
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,7 +86,8 @@
(->* () () #:rest (listof pre-content?)
any/c)])
(provide
invisible-element-to-collect-for-acmart-extras)
invisible-element-to-collect-for-acmart-extras
include-abstract)
(define-syntax-rule (defopts name ...)
(begin (define-syntax (name stx)
@ -159,6 +160,20 @@
abstract-style
(decode-flow strs)))
(define (extract-abstract p)
(unless (part? p)
(error 'include-abstract "doc binding is not a part: ~e" p))
(unless (null? (part-parts p))
(error 'include-abstract "abstract part has sub-parts: ~e" (part-parts p)))
(when (part-title-content p)
(error 'include-abstract "abstract part has title content: ~e" (part-title-content p)))
(part-blocks p))
(define-syntax-rule (include-abstract mp)
(begin
(require (only-in mp [doc abstract-doc]))
(make-nested-flow abstract-style (extract-abstract abstract-doc))))
(define (acmConference name date venue)
(make-paragraph (make-style 'pretitle '())
(make-multiarg-element (make-style "acmConference" multicommand-props)