From ec825e7abc430c2389f9af46cccdfc2be585a90a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 Apr 2023 13:39:07 +0100
Subject: issue: Allow checkboxes without a space.

* tissue/issue.scm (file-details): Allow checkboxes without a space.
* tests/issue.scm ("Allow checkboxes without a space"): New test.
* issues/allow-checkboxes-without-a-space.gmi: Close issue.
---
 tissue/issue.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'tissue')

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 1953cef..fd4a852 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -221,11 +221,10 @@ gemtext file."
                              ;; checkbox has any character other
                              ;; than space in it, the task is
                              ;; completed.
-                             ;; TODO: Allow [] and not just [ ] (that is, without a space).
-                             ((string-match "^\\* \\[(.)\\]" line)
+                             ((string-match "^\\* \\[(.*)\\]" line)
                               => (lambda (m)
 				   (hashtable-update! result 'tasks 1+ 0)
-				   (unless (string=? (match:substring m 1) " ")
+				   (unless (string-blank? (match:substring m 1))
                                      (hashtable-update! result 'completed-tasks 1+ 0))))
                              ((list-line->alist line)
                               => (lambda (alist)
-- 
cgit v1.2.3