aliens/tekuti
1
0
Fork 0
Code Activity

Implement heading parsing

Browse source
This commit is contained in:
Andy Wingo 2022-10-23 09:45:52 +02:00
parent 5f1620e0e7
commit 7652cb17cf
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tekuti/marxdown.scm
View file

@ -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