summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-29 13:23:11 +0000
committerLudovic Court`es2007-08-29 13:23:11 +0000
commit30c8fb7c54f4586ded4e89ec653edf801268cc8e (patch)
treec41c7e3ee0df2288d348baccca839f9034787e78
parentcaefe7b373e06bfb842ed99de4bd69d0d46c0488 (diff)
parentebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8 (diff)
downloadskribilo-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--ChangeLog18
-rw-r--r--src/guile/skribilo/biblio/author.scm8
2 files changed, 23 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index ad10f1a..efdfeed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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