badrihippo
/
guile-strickenmark
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

match longer closing fences in fenced code blocks

This commit is contained in:
Erik Edrosa 2017-05-20 17:50:43 -04:00
parent f74cedacc3
commit 9d2fcf9ec0
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
commonmark/parser.scm
View File

@ -1,4 +1,4 @@
;; Copyright (C) 2016 Erik Edrosa <erik.edrosa@gmail.com>
;; Copyright (C) 2016, 2017 Erik Edrosa <erik.edrosa@gmail.com>
;;
;; This file is part of guile-commonmark
;;
@ -202,7 +202,7 @@
(regexp-exec re-fenced-code (parser-str parser) (parser-pos parser)))
(define (fenced-code-end parser fence)
(string-match (string-append "^" fence "$") (parser-str parser) (parser-pos parser)))
(string-match (string-append "^" fence "+$") (parser-str parser) (parser-pos parser)))
(define (bullet-list-marker parser)
(regexp-exec re-bullet-list-marker (parser-str parser) (parser-pos parser)))

3
tests/blocks/fenced-code.scm
View File

@ -57,7 +57,6 @@ aaa
('document _
('fenced-code _ "aaa\n```")))
(test-expect-fail 1) ;; TODO match longer closing fences
(block-expect "parse-blocks, fenced code closing fence must be at least as long as
the opening fence"
"````
@ -65,7 +64,7 @@ aaa
```
``````"
('document _
('frenced-code _ "aaa\n```")))
('fenced-code _ "aaa\n```")))
(block-expect "parse-blocks, fenced code closing fence must be at least as long as
the opening fence"