From a1c0cc3c24e78736ee606e1d11184d0fbe24934b Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 23 Jan 2007 16:45:35 +0000
Subject: `lncs' package: Changed the default bibliography sort, udpated the
 doc.

* src/guile/skribilo/package/lncs.scm: Autoload `(skribilo biblio
  author)' upon `bib-sort/first-author-last-name'.
  (references): Added a `sort' keyword.  Use
  `bib-sort/first-author-last-name' by default.

* doc/user/package.skb: Documented `references'.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-7
---
 src/guile/skribilo/package/lncs.scm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm
index abc87dd..6c2cd9f 100644
--- a/src/guile/skribilo/package/lncs.scm
+++ b/src/guile/skribilo/package/lncs.scm
@@ -29,6 +29,7 @@
   :autoload   (skribilo utils keywords) (the-options the-body)
   :autoload   (skribilo biblio template)(output-bib-entry-template
                                          make-bib-entry-template/default)
+  :autoload   (skribilo biblio author)  (bib-sort/first-author-last-name)
 
   :use-module (skribilo lib)
   :use-module (skribilo utils syntax)
@@ -190,12 +191,16 @@
 ;*---------------------------------------------------------------------*/
 ;*    references ...                                                   */
 ;*---------------------------------------------------------------------*/
-(define (references)
-   (list "\n\n"
-	 (if (engine-format? "latex")
-	     (font :size -1 (flush :side 'left (the-bibliography)))
-	     (section :title "References"
-                      (font :size -1 (the-bibliography))))))
+(define* (references :key (sort #f))
+   (let ((sort-proc (or sort bib-sort/first-author-last-name)))
+     (list "\n\n"
+           (if (engine-format? "latex")
+               (font :size -1
+                     (flush :side 'left
+                            (the-bibliography :sort sort-proc)))
+               (section :title "References"
+                        (font :size -1
+                              (the-bibliography :sort sort-proc)))))))
 
 
 ;;;
-- 
cgit v1.2.3