summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-18 08:44:42 +0000
committerLudovic Court`es2007-06-18 08:44:42 +0000
commita96ab6b83c1754103f37cdd27b872b1e3bda95c0 (patch)
tree2f38c9e633a1e5821dadd8bd2697b0a294cb1d0e
parent148e1a21118c59b51354c428675c5eb55120a3b3 (diff)
downloadskribilo-a96ab6b83c1754103f37cdd27b872b1e3bda95c0.tar.gz
skribilo-a96ab6b83c1754103f37cdd27b872b1e3bda95c0.tar.lz
skribilo-a96ab6b83c1754103f37cdd27b872b1e3bda95c0.zip
`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
-rw-r--r--src/guile/skribilo/package/lncs.scm5
1 files changed, 4 insertions, 1 deletions
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