diff options
| author | Ludovic Court`es | 2007-01-23 16:48:41 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-01-23 16:48:41 +0000 |
| commit | 82584eaf0980a5ec1f0f05ce82547bede4d556da (patch) | |
| tree | 1964c2837ea93090a2833c2e9cc58d1aeef01f99 /src/guile | |
| parent | 00cdc3a5d3419fb546c09e55817e43abd1246fca (diff) | |
| parent | a1c0cc3c24e78736ee606e1d11184d0fbe24934b (diff) | |
| download | skribilo-82584eaf0980a5ec1f0f05ce82547bede4d556da.tar.gz skribilo-82584eaf0980a5ec1f0f05ce82547bede4d556da.tar.lz skribilo-82584eaf0980a5ec1f0f05ce82547bede4d556da.zip | |
`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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-44
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/package/lncs.scm | 17 |
1 files changed, 11 insertions, 6 deletions
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))))))) ;;; |