diff options
author | Ludovic Court`es | 2007-06-29 11:32:41 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-06-29 11:32:41 +0000 |
commit | e6880448f8001d0659d69a49d9b16fdf63daaa18 (patch) | |
tree | 7b89c8c4769a8eac59c1089240ddb976d72f5df2 /src/guile/skribilo/engine/latex.scm | |
parent | 8a1f7eb9754c09f76c1ac79850db6361b62a8915 (diff) | |
download | skribilo-e6880448f8001d0659d69a49d9b16fdf63daaa18.tar.gz skribilo-e6880448f8001d0659d69a49d9b16fdf63daaa18.tar.lz skribilo-e6880448f8001d0659d69a49d9b16fdf63daaa18.zip |
Factorized `bib-ref+', add a `:sort-bib-refs' options to `ref'.
* src/guile/skribilo/biblio.scm (bib-sort-refs/number): New.
* src/guile/skribilo/engine/base.scm: Use `%skribilo-module-reader'
instead of the Skribe reader.
(bib-ref, bib-ref+): New writer. Handle `:sort-bib-refs' in
`bib-ref+'.
* src/guile/skribilo/engine/context.scm (bib-ref+): Removed.
* src/guile/skribilo/engine/html.scm (bib-ref+): Removed.
* src/guile/skribilo/engine/latex.scm (bib-ref, bib-ref+): Removed.
* src/guile/skribilo/engine/lout.scm (lout-bib-refs-sort/number):
Removed.
(lout-engine): Documented `bib-refs-sort-proc' as unused.
(bib-ref, bib-ref+): Removed.
* src/guile/skribilo/package/base.scm (ref): New `:sort-bib-refs' option.
[bib-ref]: Add it to the markup's option list.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-80
Diffstat (limited to 'src/guile/skribilo/engine/latex.scm')
-rw-r--r-- | src/guile/skribilo/engine/latex.scm | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm index 50b59d6..9b49545 100644 --- a/src/guile/skribilo/engine/latex.scm +++ b/src/guile/skribilo/engine/latex.scm @@ -1545,39 +1545,6 @@ (string-canonicalize id))))))) ;*---------------------------------------------------------------------*/ -;* bib-ref ... */ -;*---------------------------------------------------------------------*/ -(markup-writer 'bib-ref - :options '(:text :bib) - :before "[" - :action (lambda (n e) - (output (markup-option (handle-ast (markup-body n)) :title) e)) - :after "]") - -;*---------------------------------------------------------------------*/ -;* bib-ref+ ... */ -;*---------------------------------------------------------------------*/ -(markup-writer 'bib-ref+ - :options '(:text :bib) - :before "[" - :action (lambda (n e) - (let loop ((rs (markup-body n))) - (cond - ((null? rs) - #f) - (else - (if (is-markup? (car rs) 'bib-ref) - (invoke (writer-action (markup-writer-get 'bib-ref e)) - (car rs) - e) - (output (car rs) e)) - (if (pair? (cdr rs)) - (begin - (display ",") - (loop (cdr rs)))))))) - :after "]") - -;*---------------------------------------------------------------------*/ ;* url-ref ... */ ;*---------------------------------------------------------------------*/ (markup-writer 'url-ref |