diff options
| -rw-r--r-- | doc/user/package.skb | 17 | ||||
| -rw-r--r-- | 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))))))) ;;; |