summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-29 11:45:36 +0000
committerLudovic Court`es2007-06-29 11:45:36 +0000
commitd64cd66cf3df25f2529d909473dd162e178f2df1 (patch)
tree55b9f36cd913f102b5cb9ac18c8316ecf88fe07f /src
parent152f21d1bcbd7bd7247e2bbd02522ea31d38ba9b (diff)
parent3650657f3e41690a1051c2f3e14e67acaf60f6b2 (diff)
downloadskribilo-d64cd66cf3df25f2529d909473dd162e178f2df1.tar.gz
skribilo-d64cd66cf3df25f2529d909473dd162e178f2df1.tar.lz
skribilo-d64cd66cf3df25f2529d909473dd162e178f2df1.zip
`lncs' package: Honor `:sort-bib-refs'.
* src/guile/skribilo/package/lncs.scm (bib-ref+): Honor `:sort-bib-refs'. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-126
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/package/lncs.scm14
1 files changed, 9 insertions, 5 deletions
diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm
index 25b1e5a..8546b14 100644
--- a/src/guile/skribilo/package/lncs.scm
+++ b/src/guile/skribilo/package/lncs.scm
@@ -230,13 +230,17 @@
(format #t "\\cite{~a}" (markup-ident entry)))))
(markup-writer 'bib-ref+ latex
- :options '(:text :bib)
+ :options '(:text :bib :sort-bib-refs)
:action (lambda (n e)
- (let ((entries (map (lambda (bib-ref)
- (handle-ast (markup-body bib-ref)))
- (markup-body n))))
+ (let ((entries (map (lambda (bib-ref)
+ (handle-ast (markup-body bib-ref)))
+ (markup-body n)))
+ (sort-proc (markup-option n :sort-bib-refs)))
(format #t "\\cite{~a}"
- (string-join (map markup-ident entries)
+ (string-join (map markup-ident
+ (if (procedure? sort-proc)
+ (sort entries sort-proc)
+ entries))
",")))))
(markup-writer '&the-bibliography latex