bin: Make indexed documents a list of document objects.

This simplifies the interface obviating the need for an
<indexed-document> type.

* bin/tissue: Do not import (srfi srfi-9).
(<indexed-document>): Delete type.
(index): Expect indexed documents to be a list of document objects.
* tissue.scm (#:indexed-documents): Pass in a list of document
objects, instead of a list of <indexed-document> objects.

1 files changed, 2 insertions, 16 deletions

diff --git a/bin/tissue b/bin/tissue
index 9ab6330..4d91ba9 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -24,7 +24,6 @@ exec guile --no-auto-compile -s "$0" "$@"
         (rnrs exceptions)
         (rnrs io ports)
         (srfi srfi-1)
-        (srfi srfi-9)
         (srfi srfi-26)
         (srfi srfi-37)
         (srfi srfi-171)
@@ -54,16 +53,6 @@ exec guile --no-auto-compile -s "$0" "$@"
 (define %xapian-index
   (string-append %state-directory "/xapian"))
 
-(define-record-type <indexed-document>
-  (indexed-document reader web-uri)
-  indexed-document?
-  ;; A thunk that returns a document object (currently either an
-  ;; <issue> or a <document> object), presumably by reading it from a
-  ;; file or other source
-  (reader indexed-document-reader)
-  ;; A string URI linking to this document on the web
-  (web-uri indexed-document-web-uri))
-
 (define (invalid-option opt name arg loads)
   (error "Invalid option" name))
 
@@ -333,11 +322,8 @@ To get usage information for one of these sub-commands, run
     (delete-file-recursively db-path)
     (call-with-writable-database db-path
       (lambda (db)
-        (for-each (lambda (indexed-document)
-                    (let* ((document (slot-set ((indexed-document-reader indexed-document))
-                                               'web-uri
-                                               (indexed-document-web-uri indexed-document)))
-                           (term-generator (document-term-generator document)))
+        (for-each (lambda (document)
+                    (let ((term-generator (document-term-generator document)))
                       (index-text! term-generator (document-type document) #:prefix "XT")
                       (replace-document! db
                                          (document-id-term document)