summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-29 13:19:14 +0000
committerLudovic Court`es2007-08-29 13:19:14 +0000
commitebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8 (patch)
tree2ea00e98de1480549ac01825964e6f2b77d86c5b /src
parent055a955df3fa1fa77b3e962f3a136f5e364abb20 (diff)
downloadskribilo-ebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8.tar.gz
skribilo-ebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8.tar.lz
skribilo-ebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8.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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-101
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/biblio/author.scm8
1 files changed, 5 insertions, 3 deletions
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