xapian: Rename index to index-files.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 08:58:20 +0000 (10:58 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 08:58:20 +0000 (10:58 +0200)
mumi/xapian.scm

index f7573c7002e7e31247570d7e54edeae7710e6181..3dee38163e848080391aa5d67a038c674506fa90 100644 (file)
@@ -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
                         (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