summaryrefslogtreecommitdiff
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
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
-rw-r--r--ChangeLog16
-rw-r--r--src/guile/skribilo/package/lncs.scm14
2 files changed, 25 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index a8ceab7..fc6327c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,22 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-06-29 11:45:36 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-126
+
+ Summary:
+ `lncs' package: Honor `:sort-bib-refs'.
+ Revision:
+ skribilo--devo--1.2--patch-126
+
+ * src/guile/skribilo/package/lncs.scm (bib-ref+): Honor `:sort-bib-refs'.
+
+ modified files:
+ ChangeLog src/guile/skribilo/package/lncs.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-82
+
+
2007-06-29 11:45:08 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-125
Summary:
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