diff options
Diffstat (limited to 'tissue/issue.scm')
| -rw-r--r-- | tissue/issue.scm | 5 |
1 files changed, 2 insertions, 3 deletions
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) |