diff options
author | Arun Isaac | 2021-09-23 00:35:02 +0530 |
---|---|---|
committer | Arun Isaac | 2021-09-23 14:16:47 +0530 |
commit | ae4a4bb349ccc2d609f59b02d530adf0051b15ca (patch) | |
tree | 018a611c88651e7c3392a43ee0708346060366c1 | |
parent | 1933e3365dc6cdcef41e834036510ae878307efa (diff) | |
download | gn-gemtext-ae4a4bb349ccc2d609f59b02d530adf0051b15ca.tar.gz |
gnbug: Comment on file-details function.
* gnbug (file-details): Comment on specification of assigned and title
metadata.
-rwxr-xr-x | gnbug | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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 |