summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-29 11:39:01 +0000
committerLudovic Court`es2007-06-29 11:39:01 +0000
commit3650657f3e41690a1051c2f3e14e67acaf60f6b2 (patch)
tree2e48f68c430aff28e9ae1a304f88aa5be97316ad /src
parentc4f69b5f8c3fbbd42f745b8abdeed4a8436fde11 (diff)
downloadskribilo-3650657f3e41690a1051c2f3e14e67acaf60f6b2.tar.gz
skribilo-3650657f3e41690a1051c2f3e14e67acaf60f6b2.tar.lz
skribilo-3650657f3e41690a1051c2f3e14e67acaf60f6b2.zip
`lncs' package: Honor `:sort-bib-refs'.
* src/guile/skribilo/package/lncs.scm (bib-ref+): Honor `:sort-bib-refs'. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-82
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