diff options
| author | Arun Isaac | 2022-03-16 11:35:19 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-16 11:36:12 +0530 |
| commit | 3e535ada9e3d36d3626ae1dbcdef43aff6a6441d (patch) | |
| tree | 79b2360490226ade7fddda3aeffb45babd9ab455 | |
| parent | eedd8f9f0b69a8d1a7a6d96cd028b2ecc4c92ed5 (diff) | |
| download | tissue-3e535ada9e3d36d3626ae1dbcdef43aff6a6441d.tar.gz tissue-3e535ada9e3d36d3626ae1dbcdef43aff6a6441d.tar.lz tissue-3e535ada9e3d36d3626ae1dbcdef43aff6a6441d.zip | |
tissue: Enforce prefix check on checklist.
* tissue/issue.scm (file-details): Match checklist only if it starts
at the beginning of its line.
| -rw-r--r-- | tissue/issue.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index 262e327..7a5b6ff 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -130,7 +130,7 @@ strings, and return them as a list." ;; checkbox has any character other ;; than space in it, the task is ;; completed. - ((string-match "\\* \\[(.)\\]" line) + ((string-match "^\\* \\[(.)\\]" line) => (lambda (m) (hashtable-update! result 'tasks 1+ 0) (unless (string=? (match:substring m 1) " ") |