org mode toc

1 files changed, 26 insertions, 0 deletions

diff --git a/examples/org-mode-toc.lisp b/examples/org-mode-toc.lisp
new file mode 100644
index 0000000..5355b02
--- /dev/null
+++ b/examples/org-mode-toc.lisp
@@ -0,0 +1,26 @@
+(defpackage :org-toc
+  (:use :cl :parzival))
+
+(in-package :org-toc)
+
+(<<def <toc-line< 
+       (<<bind (<<counting+ (<<char #\*))
+               (lambda (count) 
+                 (<<map (lambda (matched) 
+                          (let ((toc-entry (concatenate 'string matched)))
+                            (format nil "~a- [[~a][~a]]" 
+                                    (make-string (* 2 count) :initial-element #\Space)
+                                    toc-entry 
+                                    toc-entry)))
+                        (<<and <whitespace<+ (<<+ <item<)))))
+       "Accepts a valid Org Mode heading and results in an org mode
+       list item with a link to that heading.")
+
+(defun print-toc-for (file &optional (output *standard-output*))
+  "Prints a table of contents for a given org file to the supplied stream."
+  (with-open-file (input file)
+    (loop
+       :for line = (read-line input nil nil)
+       :while line
+       :do (multiple-value-bind (entry success-p) (parse line <toc-line< t)
+             (when success-p  (format output "~a~%" entry))))))