document: Inter snippet source text into the xapian index.

We store snippet source text in a slot of the <document> class thus
interring into the xapian index. This allows us to render search
snippets using only the xapian index without referring back to the git
repository.

* tissue/document.scm (<document>)[snippet-source-text]: New slot.
* tissue/document.scm (document-snippet-source-text): Delete method.
(document-html-snippet): Remove blank lines from snippet source text
before generating a snippet.
* tissue/commit.scm (document-snippet-source-text): Delete method.
(repository-commits): Initialize snippet-source-text.
* tissue/skribilo.scm (fragment-text): New function.
(document-fragment): Initialize snippet-source-text.
(document-text): Use fragment-text.
(document-snippet-source-text): Delete method.
* tissue/file-document.scm (file-text): New function.
(document-text): Use file-text.
(read-gemtext-document): Initialize snippet-source-text.
* tissue/issue.scm (read-gemtext-issue): Initialize
snippet-source-text.
* issues/skribilo-fragment-snippets-need-code-from-repo.gmi: Close
issue.

1 files changed, 2 insertions, 1 deletions

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 529fcfb..ebfca52 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -295,4 +295,5 @@ object."
       #:open? (not (member "closed" all-keywords))
       #:tasks (hashtable-ref file-details 'tasks 0)
       #:completed-tasks (hashtable-ref file-details 'completed-tasks 0)
-      #:commits (file-document-commits file-document))))
+      #:commits (file-document-commits file-document)
+      #:snippet-source-text (document-snippet-source-text file-document))))