diff options
author | Ludovic Court`es | 2006-11-24 14:46:30 +0000 |
---|---|---|
committer | Ludovic Court`es | 2006-11-24 14:46:30 +0000 |
commit | c23335b3c7ee9f48a7f68fc8828e5b6546649a1a (patch) | |
tree | 85e731108ac40fe6e4a3ad3da1bc8c4dd83e229e /src/guile/skribilo/package/base.scm | |
parent | 3e46caf3e034552854ff6829ca2bf4e0a46e0089 (diff) | |
download | skribilo-c23335b3c7ee9f48a7f68fc8828e5b6546649a1a.tar.gz skribilo-c23335b3c7ee9f48a7f68fc8828e5b6546649a1a.tar.lz skribilo-c23335b3c7ee9f48a7f68fc8828e5b6546649a1a.zip |
Cleaned up `(skribilo biblio)' a bit.
* doc/user/bib.skb: Replaced `default-bib-table' with `*bib-table*'.
* src/guile/skribilo/biblio.scm: Clean up.
(skribe-open-bib-file): Renamed to `open-bib-file'.
* src/guile/skribilo/package/base.scm: Use `*bib-table*' instead of
`default-bib-table'.
* src/guile/skribilo/utils/compat.scm: Autoload `biblio'.
(default-bib-table): New.
(skribe-open-bib-file): New.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-79
Diffstat (limited to 'src/guile/skribilo/package/base.scm')
-rw-r--r-- | src/guile/skribilo/package/base.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index 4c9e84c..01e8667 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -33,7 +33,7 @@ :autoload (skribilo engine) (engine?) ;; optional ``sub-packages'' - :autoload (skribilo biblio) (default-bib-table resolve-bib + :autoload (skribilo biblio) (*bib-table* resolve-bib bib-load! bib-add!) :autoload (skribilo color) (skribe-use-color!) :autoload (skribilo source) (language? source-read-lines source-fontify) @@ -1015,7 +1015,7 @@ (subsection #f) (subsubsection #f) (bib #f) - (bib-table (default-bib-table)) + (bib-table (*bib-table*)) (url #f) (figure #f) (mark #f) @@ -1245,7 +1245,7 @@ ;*---------------------------------------------------------------------*/ (define-markup (bibliography #!rest files #!key - (command #f) (bib-table (default-bib-table))) + (command #f) (bib-table (*bib-table*))) (for-each (lambda (f) (cond ((string? f) @@ -1267,7 +1267,7 @@ (define-markup (the-bibliography #!rest opts #!key pred - (bib-table (default-bib-table)) + (bib-table (*bib-table*)) (sort bib-sort/authors) (count 'partial)) (if (not (memq count '(partial full))) |