From a96ab6b83c1754103f37cdd27b872b1e3bda95c0 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 18 Jun 2007 08:44:42 +0000
Subject: `lncs' package: Prettified bibliography output.

* src/guile/skribilo/package/lncs.scm (&the-bibliography): The
  `\thebibliography' the number of entries so that all entries are
  properly aligned.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-76
---
 src/guile/skribilo/package/lncs.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm
index 39c4cc4..25b1e5a 100644
--- a/src/guile/skribilo/package/lncs.scm
+++ b/src/guile/skribilo/package/lncs.scm
@@ -240,7 +240,10 @@
                                           ",")))))
 
       (markup-writer '&the-bibliography latex
-         :before "\\begin{thebibliography}{}\n"
+         :before (lambda (n e)
+                   (let ((count (length (markup-body n))))
+                     (format #t "\\begin{thebibliography}{~a}\n"
+                             count)))
          :after  "\\end{thebibliography}\n")
 
       (markup-writer '&bib-entry-body
-- 
cgit v1.2.3