23/45: reppar: Abbreviate book titles in the bibliography.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 659c203156fe9a70b28ab472c69410b125595751
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jun 1 09:33:25 2015 +0200

    reppar: Abbreviate book titles in the bibliography.
---
 doc/reppar-2015/reproducible-hpc.skb |   14 ++++++++++++++
 1 files changed, 14 insertions(+), 0 deletions(-)

diff --git a/doc/reppar-2015/reproducible-hpc.skb 
b/doc/reppar-2015/reproducible-hpc.skb
index 39c4b01..345e2cf 100644
--- a/doc/reppar-2015/reproducible-hpc.skb
+++ b/doc/reppar-2015/reproducible-hpc.skb
@@ -19,6 +19,7 @@
 (use-modules (skribilo package lncs)
             (skribilo engine latex)
             (skribilo biblio author)
+            (skribilo biblio abbrev)
              (skribilo source)
              (skribilo source lisp)
             (skribilo engine)
@@ -84,6 +85,19 @@
                     names)
                 e))))
 
+;; Abbreviate book titles in bibliography entries.
+(markup-writer '&bib-entry-booktitle
+   :action (lambda (n e)
+             (define %abbreviations
+               (append %cs-conference-abbreviations
+                       %ordinal-number-abbreviations
+                       %common-booktitle-abbreviations))
+
+             (let ((title (markup-body n)))
+               (evaluate-document
+                (it (abbreviate-markup %abbreviations
+                                        title)) e))))
+
 (bibliography "../els-2013/guix.sbib")
 (bibliography "reppar.sbib")