From 76991c195740d2edee0a1887b4850e438d8e83d2 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 26 Jun 2022 23:39:09 +0530 Subject: 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. --- bin/tissue | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'bin') 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 or 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 or 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 or 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)) -- cgit v1.2.3