From 7652cb17cf75dbed888927e7f501e46ce03ff9ec Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@igalia.com>
Date: Sun, 23 Oct 2022 09:45:52 +0200
Subject: [PATCH] Implement heading parsing

---
 tekuti/marxdown.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/tekuti/marxdown.scm b/tekuti/marxdown.scm
index a94ba8d..fea595c 100644
--- a/tekuti/marxdown.scm
+++ b/tekuti/marxdown.scm
@@ -420,7 +420,6 @@
                              (knext (cons para nodelist))))))
     (define (done? ch)
       (match ch
-        (#\return (done? (next)))
         (#\newline
          (let ((ch (next)))
            (match ch
@@ -440,8 +439,14 @@
     (unget chars)
     (read-para indent kup knext))
 
-  (define (read-heading level knext)
-    (error "unimplemented"))
+  (define (read-heading level indent continue)
+    (let ((continue (lambda (heading)
+                      (match heading
+                        (('heading . body)
+                         (continue `(heading ,level . ,body)))))))
+      (read-text 'heading indent (lambda (ch)
+                                   (and (eqv? ch #\newline) continue))
+                 continue)))
 
   (define (read-li marker marker-indent marker-size kup knext)
     (read-indent
@@ -485,7 +490,7 @@
            (#\space
             (kblock
              (lambda (indent kup knext)
-               (read-heading level (make-continue indent kup knext)))))
+               (read-heading level indent (make-continue indent kup knext)))))
            (#\return (lp level))
            (#\newline
             (kblock