summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-01-23 16:45:35 +0000
committerLudovic Court`es2007-01-23 16:45:35 +0000
commita1c0cc3c24e78736ee606e1d11184d0fbe24934b (patch)
tree1964c2837ea93090a2833c2e9cc58d1aeef01f99 /src/guile
parent9c607048a2b38322f0a2aee0ebd7e70f0134032e (diff)
downloadskribilo-a1c0cc3c24e78736ee606e1d11184d0fbe24934b.tar.gz
skribilo-a1c0cc3c24e78736ee606e1d11184d0fbe24934b.tar.lz
skribilo-a1c0cc3c24e78736ee606e1d11184d0fbe24934b.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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-7
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/lncs.scm17
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)))))))
;;;