summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2021-09-23 00:35:02 +0530
committerArun Isaac2021-09-23 14:16:47 +0530
commitae4a4bb349ccc2d609f59b02d530adf0051b15ca (patch)
tree018a611c88651e7c3392a43ee0708346060366c1
parent1933e3365dc6cdcef41e834036510ae878307efa (diff)
downloadgn-gemtext-ae4a4bb349ccc2d609f59b02d530adf0051b15ca.tar.gz
gnbug: Comment on file-details function.
* gnbug (file-details): Comment on specification of assigned and title
metadata.
-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