summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/reader/outline.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/reader/outline.scm b/src/guile/skribilo/reader/outline.scm
index 27ec05f..8c48293 100644
--- a/src/guile/skribilo/reader/outline.scm
+++ b/src/guile/skribilo/reader/outline.scm
@@ -335,12 +335,12 @@ to @var{node-type}."
(regexp-exec node-rx line))
(define %list-processors
- (list (make-list-processor (make-regexp "^[-~o] (.+)$" regexp/extended)
+ (list (make-list-processor (make-regexp "^[[:space:]]*[-~o] (.+)$" regexp/extended)
'itemize
(lambda (m) (match:substring m 1))
%line-processor
node-markup-line?)
- (make-list-processor (make-regexp "^([0-9]+)\\.? (.+)$"
+ (make-list-processor (make-regexp "^[[:space:]]*([0-9]+)\\.? (.+)$"
regexp/extended)
'enumerate
(lambda (m) (match:substring m 2))
@@ -410,7 +410,7 @@ to @var{node-type}."
(define* (outline-reader :optional (port (current-input-port)))
(define modeline-rx
- (make-regexp "^[[:space:]]*-\\*- [a-zA-Z-]+ -\\*-[[:space:]]*$"))
+ (make-regexp "^[[:space:]]*-\\*- ([a-zA-Z0-9;:-]|[[:space:]])+ -\\*-[[:space:]]*$"))
(define title-rx (make-regexp "^[Tt]itle: (.+)$" regexp/extended))
(define author-rx (make-regexp "^[Aa]uthors?: (.+)$" regexp/extended))
(define keywords-rx