diff options
| author | Ludovic Courtès | 2008-01-29 17:25:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-29 17:25:39 +0100 |
| commit | 6d6d36473616b11d977179bf3e6f30e1761f3c05 (patch) | |
| tree | 83fd9d620cc477e9d9387ba5814624b672b56bdc | |
| parent | 664657a99ecb3f34a0b5dcb6c0e0fc2bcb697f10 (diff) | |
| download | skribilo-6d6d36473616b11d977179bf3e6f30e1761f3c05.tar.gz skribilo-6d6d36473616b11d977179bf3e6f30e1761f3c05.tar.lz skribilo-6d6d36473616b11d977179bf3e6f30e1761f3c05.zip | |
outline: Liberated the list and mode-line syntax.
* src/guile/skribilo/reader/outline.scm (%list-processors): Allow
leading whitespace for list items.
(outline-reader)[modeline-rx]: Allow figures, semi-colons and all.
| -rw-r--r-- | src/guile/skribilo/reader/outline.scm | 6 |
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 |