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
---
 doc/user/package.skb                | 17 +++++++++++++++--
 src/guile/skribilo/package/lncs.scm | 17 +++++++++++------
 2 files changed, 26 insertions(+), 8 deletions(-)

diff --git a/doc/user/package.skb b/doc/user/package.skb
index c81dacb..5a411e6 100644
--- a/doc/user/package.skb
+++ b/doc/user/package.skb
@@ -1,6 +1,7 @@
 ;;; package.skb  --  Packages
 ;;;
 ;;; Copyright 2004, 2005  Manuel Serrano
+;;; Copyright 2007  Ludovic Courtès <ludovic.courtes@laas.fr>
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -79,14 +80,26 @@ markup ,(code "abstract"):])
       (p [
 This package enables producing LaTeX documents conforming to the
 ,(emph "Lecture Notes on Computer Science") (LNCS) style. It introduces the
-markup ,(code "abstract"):])
+markups ,(code "abstract") and ,(code "references"):])
+
       (doc-markup 'abstract
 	 `((:postscript [The URL of the PostScript version of the paper.]))
 	 :common-args '()
 	 :idx-note "lncs"
 	 :idx-suffix " (lncs)"
 	 :force-engines *api-engines*
-	 :source "skribilo/package/lncs.scm")))
+	 :source "skribilo/package/lncs.scm")
+
+      (doc-markup 'references
+	 `((:sort [A sort procedure, as for ,(code "the-bibliography").]))
+	 :common-args '()
+	 :idx-note "lncs"
+	 :idx-suffix " (lncs)"
+	 :force-engines *api-engines*
+	 :source "skribilo/package/lncs.scm"
+	 :see-also '(the-bibliography bib-sort/authors))
+
+      ))
 
 ;*---------------------------------------------------------------------*/
 ;*    french                                                           */
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