diff options
author | Arun Isaac | 2022-06-29 00:08:28 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 00:09:29 +0530 |
commit | 3e69dc361669cab60997882a6cf1bf879a7bc05d (patch) | |
tree | 25d0abb6ffddf74a416f2887c63328a6f6b97f9c /tissue/issue.scm | |
parent | 71ae09d9d34a1780c653755bbb4d6c1f5b67906a (diff) | |
download | tissue-3e69dc361669cab60997882a6cf1bf879a7bc05d.tar.gz tissue-3e69dc361669cab60997882a6cf1bf879a7bc05d.tar.lz tissue-3e69dc361669cab60997882a6cf1bf879a7bc05d.zip |
document: Abstract out document snippet selection.
* tissue/document.scm: Import (htmlprag).
(document-snippet): New public function.
(print): Use document-snippet.
* tissue/issue.scm (print): Use document-snippet.
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r-- | tissue/issue.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index de01ca8..9b2f277 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -136,12 +136,7 @@ (number->string (issue-tasks issue)) " tasks done"))) (newline) - (let ((snippet (mset-snippet mset - (document-text issue) - #:length 200 - #:highlight-start (color 'BOLD 'ON-RED) - #:highlight-end (color 'RESET) - #:stemmer (make-stem "en")))) + (let ((snippet (document-snippet issue mset))) (unless (string-null? snippet) (display snippet) (newline) |