diff options
-rw-r--r-- | mumi/xapian.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/mumi/xapian.scm b/mumi/xapian.scm index f7573c7..3dee381 100644 --- a/mumi/xapian.scm +++ b/mumi/xapian.scm @@ -30,7 +30,7 @@ #:use-module (xapian wrap) #:use-module (xapian xapian) #:use-module (rnrs bytevectors) - #:export (index search)) + #:export (index-files search)) (define (parse-emails files) (n-par-map 4 @@ -53,8 +53,10 @@ (assoc-ref from 'address))))) "<unknown>")) -(define* (index files #:key - (dbpath (string-append (%config 'db-dir) "/mumi.xapian"))) +(define* (index-files files #:key + (dbpath (string-append (%config 'db-dir) "/mumi.xapian"))) + "Parse all given Debbugs log files in FILES as a list of email +messages and index their contents in the Xapian database at DBPATH." (define (index-chunk files+mails) (call-with-writable-database dbpath |