diff options
| -rw-r--r-- | tests/issue.scm | 5 | ||||
| -rw-r--r-- | tissue/issue.scm | 11 |
2 files changed, 6 insertions, 10 deletions
diff --git a/tests/issue.scm b/tests/issue.scm index 74fb6c3..22982db 100644 --- a/tests/issue.scm +++ b/tests/issue.scm @@ -70,4 +70,9 @@ (call-with-input-string "* term: This is a definition of term." (compose hashtable->alist file-details))) +(test-equal "Parse keywords even if they are long" + '((keywords "this is a long keyword")) + (call-with-input-string "* keywords: this is a long keyword" + (compose hashtable->alist file-details))) + (test-end "issue") diff --git a/tissue/issue.scm b/tissue/issue.scm index 905e937..f5becf6 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -325,16 +325,7 @@ gemtext file." (hashtable-update! result 'tasks 1+ 0) (unless (string=? (match:substring m 1) " ") (hashtable-update! result 'completed-tasks 1+ 0)))) - ((let ((alist (list-line->alist line))) - (and alist - ;; Every value string is 2 - ;; words or less. - (every (match-lambda - ((_ . values) - (every (cut <=n-words? <> 2) - values))) - alist) - alist)) + ((list-line->alist line) => (lambda (alist) ;; Insert values based on ;; their keys. |