guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/02: reppar: Nitpicking for proceedings version.


From: Ludovic Courtès
Subject: 01/02: reppar: Nitpicking for proceedings version.
Date: Thu, 22 Oct 2015 09:20:09 +0000

civodul pushed a commit to branch master
in repository maintenance.

commit c3ce3ae35a5c87fd44f14ae25903a1f82f8739ce
Author: Ludovic Courtès <address@hidden>
Date:   Thu Oct 15 15:38:58 2015 +0200

    reppar: Nitpicking for proceedings version.
---
 doc/els-2013/guix.sbib               |    2 +-
 doc/reppar-2015/reproducible-hpc.skb |   14 ++------------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/doc/els-2013/guix.sbib b/doc/els-2013/guix.sbib
index ac71d0f..c9981b8 100644
--- a/doc/els-2013/guix.sbib
+++ b/doc/els-2013/guix.sbib
@@ -92,7 +92,7 @@ Software Configuration Management")
   (title "Caching Function Calls Using Precise Dependencies")
   (booktitle "Proceedings of the ACM SIGPLAN 2000 conference on
 Programming Language Design and Implementation")
-  (series "PLDI '00")
+  ;; (series "PLDI '00")
   (year "2000")
   (isbn "1-58113-199-2")
   (location "Vancouver, British Columbia, Canada")
diff --git a/doc/reppar-2015/reproducible-hpc.skb 
b/doc/reppar-2015/reproducible-hpc.skb
index 8b2f6dd..367f6b4 100644
--- a/doc/reppar-2015/reproducible-hpc.skb
+++ b/doc/reppar-2015/reproducible-hpc.skb
@@ -77,16 +77,6 @@
                                (make-locale LC_ALL "en_US.utf8"))
                              (make-locale LC_ALL "en_US.UTF-8"))))
 
-;; Abbreviate author first names.
-(markup-writer '&bib-entry-author
-   :action (lambda (n e)
-            (let ((names (markup-body n)))
-              (evaluate-document
-                (if (string? names)
-                    (abbreviate-first-names names)
-                    names)
-                e))))
-
 ;; Abbreviate book titles in bibliography entries.
 (markup-writer '&bib-entry-booktitle
    :action (lambda (n e)
@@ -97,8 +87,8 @@
 
              (let ((title (markup-body n)))
                (evaluate-document
-                (it (abbreviate-markup %abbreviations
-                                        title)) e))))
+                (abbreviate-markup %abbreviations title)
+                 e))))
 
 (bibliography "../els-2013/guix.sbib")
 (bibliography "reppar.sbib")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]