Changeset 15449 in project


Ignore:
Timestamp:
08/13/09 22:03:50 (10 years ago)
Author:
sjamaan
Message:

Do not make headings part of paragraphs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/wiki-parse/wiki-parse.scm

    r15447 r15449  
    281281
    282282             (else
    283               `((p
    284                  ,@(reverse (drop-while string? par))
    285                  ,@(wiki-parse-inline
    286                     (string-intersperse
    287                      (reverse (take-while string? par))
    288                      "\n")))
     283              `(,@(reverse (drop-while string? par))
     284                ,@(let ((inline
     285                         (wiki-parse-inline
     286                          (string-intersperse
     287                           (reverse (take-while string? par))
     288                           "\n"))))
     289                    (if (null? inline)
     290                        '()
     291                        `((p ,@inline))))
    289292                ,@res))))
    290293          (let ((line (read-line in)))
     
    351354                           (ls (map (lambda (s) (substring s prefix)) ls)))
    352355                      (parse
    353                        (cons (list 'type (string-intersperse (reverse ls) "\n"))
     356                       (cons (list 'preformatted
     357                                   (string-intersperse (reverse ls) "\n"))
    354358                             (collect))
    355359                       '()
Note: See TracChangeset for help on using the changeset viewer.