issue: Replace issues thunk with read-gemtext-issue reader.

* tissue/issue.scm (%issue-files): Delete parameter.
(issues): Delete function.
(read-gemtext-issue): New public function.
(file-modification-table-for-current-repository): New function.
* bin/tissue (main): Do not parameterize %issue-files.

1 files changed, 9 insertions, 10 deletions

diff --git a/bin/tissue b/bin/tissue
index 63b5682..94ab5d6 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -93,14 +93,6 @@ to run tissue."
   (match (command-line)
     ((program _ ...) program)))
 
-(define (print-document document)
-  "Print DOCUMENT, an <issue> or <document> object."
-  ((cond
-    ((issue? document) print-issue)
-    ((doc:document? document) doc:print-document)
-    (else (raise (unknown-document-type-violation document))))
-   document))
-
 (define (print-issue issue)
   "Print ISSUE."
   (let ((number-of-posts (length (issue-posts issue))))
@@ -174,6 +166,14 @@ to run tissue."
     (newline)
     (newline)))
 
+(define (print-document document)
+  "Print DOCUMENT, an <issue> or <document> object."
+  ((cond
+    ((issue? document) print-issue)
+    ((doc:document? document) doc:print-document)
+    (else (raise (unknown-document-type-violation document))))
+   document))
+
 (define (alist->document alist)
   "Convert ALIST to an <issue> or <document> object."
   ((case (assq-ref alist 'type)
@@ -396,8 +396,7 @@ DB."
                 (exit #f)))
        (call-with-current-directory (git-top-level)
          (lambda ()
-           (parameterize ((%issue-files (tissue-configuration-issue-files (load-config)))
-                          (%aliases (tissue-configuration-aliases (load-config))))
+           (parameterize ((%aliases (tissue-configuration-aliases (load-config))))
              ;; Create hidden tissue directory unless it exists.
              (unless (file-exists? %state-directory)
                (mkdir %state-directory))