07/14: gpce-2017: Deanonymize.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 6b7a859524a2716075ec96a10da2edf0e2b8b69a
Author: Ludovic Courtès <address@hidden>
Date:   Wed Aug 30 16:05:18 2017 +0200

    gpce-2017: Deanonymize.
---
 doc/gpce-2017/gpce.skb | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/doc/gpce-2017/gpce.skb b/doc/gpce-2017/gpce.skb
index 1cc9ba4..114e161 100644
--- a/doc/gpce-2017/gpce.skb
+++ b/doc/gpce-2017/gpce.skb
@@ -96,10 +96,24 @@
 
 (let ((latex (find-engine 'latex)))
    (engine-custom-set! latex 'documentclass
-                      "\\documentclass[sigplan, anonymous, review]{acmart}")
+                      "\\documentclass[sigplan]{acmart}")
 
    (engine-custom-set! latex 'maketitle #f)
-   
+
+   (markup-writer '&latex-author latex
+      :action (lambda (n e)
+                (let ((body (markup-body n)))
+                   (for-each (lambda (a)
+                                (display "\\author{")
+                                (output (markup-option a :name) e)
+                                (display "}\n\\affiliation{\n")
+                                (display "  \\institution{")
+                                (output (markup-option a :affiliation) e)
+                                (display "}\n  \\streetaddress{")
+                                (output (markup-option a :address) e)
+                                (display "}}\n"))
+                             (if (pair? body) body (list body))))))
+
    (markup-writer '&acm-category latex
       :options '(:index :section :subsection)
       :action (lambda (n e)
@@ -151,6 +165,9 @@
 
 
 (document :title [Code Staging in GNUÂ Guix]
+   :author (list (author :name "Ludovic Courtès"
+                   :affiliation "Inria"
+                   :address (list "Bordeaux, France")))
    
    (acmart-abstract