5 (define start-sequence "#+")
7 (define tag-match? ( lambda (line)
8 (and (string-prefix? line start-sequence)
9 (string-contains? line tag))))
11 ;; TODO Make recursive
13 (filter file-exists? (directory-list)))
15 (define (find-file files)
16 (when (not (empty? files))
17 (define file (first files))
18 (define (find-line lines)
19 (when (not (empty? lines))
20 (if (tag-match? (first lines))
22 (find-line (rest lines)))
24 (find-line (file->lines file))
25 (find-file (rest files))