summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/user/package.skb17
-rw-r--r--src/guile/skribilo/package/lncs.scm17
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)))))))
;;;