From b6ff5be83fa077cd64cbe37e646cc260fe67cfc5 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 11:51:14 +0530
Subject: document: Remove blank lines in search snippets.

Blank lines waste precious space in search snippets.

* tissue/document.scm (document-html-snippet): Remove blank lines in
search snippets.
---
 tissue/document.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'tissue/document.scm')

diff --git a/tissue/document.scm b/tissue/document.scm
index b549f2d..cc49010 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -177,7 +177,11 @@ and further text, increase-termpos! must be called before indexing."
   "Return snippet for DOCUMENT. MSET is the xapian MSet object
 representing a list of search results."
   (mset-snippet mset
-                (document-text document)
+                (string-join
+                 (remove (cut string-every char-set:whitespace <>)
+                         (string-split (document-text document)
+                                       #\newline))
+                 "\n")
                 #:length 200
                 #:highlight-start "<b>"
                 #:highlight-end "</b>"
-- 
cgit v1.2.3