diff options
| author | Ludovic Court`es | 2007-08-29 13:23:11 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-08-29 13:23:11 +0000 |
| commit | 30c8fb7c54f4586ded4e89ec653edf801268cc8e (patch) | |
| tree | c41c7e3ee0df2288d348baccca839f9034787e78 | |
| parent | caefe7b373e06bfb842ed99de4bd69d0d46c0488 (diff) | |
| parent | ebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8 (diff) | |
| download | skribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.tar.gz skribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.tar.lz skribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.zip | |
biblio: SRFI'd `author.scm'.
* src/guile/skribilo/biblio/author.scm: Use `srfi-14'.
(%no-comma): New.
(comma-separated->author-list): Use `string-tokenize'.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-159
| -rw-r--r-- | ChangeLog | 18 | ||||
| -rw-r--r-- | src/guile/skribilo/biblio/author.scm | 8 |
2 files changed, 23 insertions, 3 deletions
@@ -2,6 +2,24 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-08-29 13:23:11 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-159 + + Summary: + biblio: SRFI'd `author.scm'. + Revision: + skribilo--devo--1.2--patch-159 + + * src/guile/skribilo/biblio/author.scm: Use `srfi-14'. + (%no-comma): New. + (comma-separated->author-list): Use `string-tokenize'. + + modified files: + ChangeLog src/guile/skribilo/biblio/author.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-101 + + 2007-08-29 13:22:43 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-158 Summary: diff --git a/src/guile/skribilo/biblio/author.scm b/src/guile/skribilo/biblio/author.scm index 785f948..cc176e0 100644 --- a/src/guile/skribilo/biblio/author.scm +++ b/src/guile/skribilo/biblio/author.scm @@ -20,6 +20,7 @@ (define-module (skribilo biblio author) :use-module (srfi srfi-13) + :use-module (srfi srfi-14) :use-module (skribilo biblio abbrev) :autoload (skribilo ast) (markup-option markup-body markup-ident) :autoload (skribilo lib) (skribe-error) @@ -44,13 +45,14 @@ ;;; ;;; Code: +(define %no-comma + (char-set-complement (char-set #\,))) + (define (comma-separated->author-list authors) ;; Return a list of strings where each individual string is an author ;; name. AUTHORS is a string representing a list of author names separated ;; by a comma. - - ;; XXX: I should use SRFI-13 instead. - (string-split authors #\,)) + (string-tokenize authors %no-comma)) (define (comma-separated->and-separated-authors authors) ;; Take AUTHORS, a string containing comma-separated author names, and |