bin: Add <indexed-document> type.

* bin/tissue: Import (srfi srfi-9).
(<indexed-document>): New type.

1 files changed, 11 insertions, 0 deletions

diff --git a/bin/tissue b/bin/tissue
index 7bc01f1..42b46c8 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -23,6 +23,7 @@ exec guile --no-auto-compile -s "$0" "$@"
 (import (rnrs exceptions)
         (rnrs io ports)
         (srfi srfi-1)
+        (srfi srfi-9)
         (srfi srfi-19)
         (srfi srfi-26)
         (srfi srfi-37)
@@ -49,6 +50,16 @@ 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 (invoke program . args)
   (unless (zero? (apply system* program args))
     (error "Invocation of program failed" (cons program args))))