diff options
| author | Ludovic Court`es | 2007-06-29 11:45:36 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-29 11:45:36 +0000 |
| commit | d64cd66cf3df25f2529d909473dd162e178f2df1 (patch) | |
| tree | 55b9f36cd913f102b5cb9ac18c8316ecf88fe07f | |
| parent | 152f21d1bcbd7bd7247e2bbd02522ea31d38ba9b (diff) | |
| parent | 3650657f3e41690a1051c2f3e14e67acaf60f6b2 (diff) | |
| download | skribilo-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-- | ChangeLog | 16 | ||||
| -rw-r--r-- | src/guile/skribilo/package/lncs.scm | 14 |
2 files changed, 25 insertions, 5 deletions
@@ -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 |