Re: #1731: Lowdown some minor issues

[Chicken Trac]

#1731: Lowdown some minor issues
------------------------------------------+-----------------------------
            Reporter:  Idiomdrottning     |      Owner:  Moritz Heidkamp
                Type:  defect             |     Status:  assigned
            Priority:  not urgent at all  |  Milestone:  someday
           Component:  extensions         |    Version:  5.1.0
          Resolution:                     |   Keywords:
Estimated difficulty:                     |
------------------------------------------+-----------------------------

Comment (by Idiomdrottning):

 (define space-new-line-chars
   (char-set #\space #\tab #\newline #\return))

 (define space-new-line-char
   (preceded-by (in space-new-line-chars)
                (result " ")))

 (define snl+
   (as-string (one-or-more space-new-line-char)))

 (define inline
   (any-of inline-hook-parser
           (is #\>)
           (as-string (one-or-more normal-char))
           ul-or-star-line
           space+
           snl+
           strong
           emph
           image
           link
           code
           html-inline
           entity
           (as-string escaped-char)
           (as-string special-char)))

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1731#comment:3>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.