summaryrefslogtreecommitdiff
path: root/gnbug
diff options
context:
space:
mode:
authorArun Isaac2021-09-23 00:35:02 +0530
committerArun Isaac2021-09-23 14:16:47 +0530
commitae4a4bb349ccc2d609f59b02d530adf0051b15ca (patch)
tree018a611c88651e7c3392a43ee0708346060366c1 /gnbug
parent1933e3365dc6cdcef41e834036510ae878307efa (diff)
downloadgn-gemtext-ae4a4bb349ccc2d609f59b02d530adf0051b15ca.tar.gz
gnbug: Comment on file-details function.
* gnbug (file-details): Comment on specification of assigned and title metadata.
Diffstat (limited to 'gnbug')
-rwxr-xr-xgnbug4
1 files changed, 4 insertions, 0 deletions
diff --git a/gnbug b/gnbug
index 2b42111..7bfd828 100755
--- a/gnbug
+++ b/gnbug
@@ -90,6 +90,8 @@ even if it exits non-locally. Return the value returned by PROC."
(lambda (port)
(port-transduce (tmap (lambda (line)
(cond
+ ;; Lists with the assigned: prefix
+ ;; specify assignees.
((string-prefix? "* assigned:" line)
(hashtable-update! result 'assigned
(lambda (previous)
@@ -99,6 +101,8 @@ even if it exits non-locally. Return the value returned by PROC."
#\,))
previous))
'()))
+ ;; The first level one heading is the
+ ;; title.
((string-prefix? "# " line)
(unless (hashtable-contains? result 'title)
(hashtable-set! result 'title