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 ;; This file is part of guile-commonmark
;; ;;
@ -202,7 +202,7 @@
(regexp-exec re-fenced-code (parser-str parser) (parser-pos parser))) (regexp-exec re-fenced-code (parser-str parser) (parser-pos parser)))
(define (fenced-code-end parser fence) (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) (define (bullet-list-marker parser)
(regexp-exec re-bullet-list-marker (parser-str parser) (parser-pos 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 _ ('document _
('fenced-code _ "aaa\n```"))) ('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 (block-expect "parse-blocks, fenced code closing fence must be at least as long as
the opening fence" the opening fence"
"```` "````
@ -65,7 +64,7 @@ aaa
``` ```
``````" ``````"
('document _ ('document _
('frenced-code _ "aaa\n```"))) ('fenced-code _ "aaa\n```")))
(block-expect "parse-blocks, fenced code closing fence must be at least as long as (block-expect "parse-blocks, fenced code closing fence must be at least as long as
the opening fence" the opening fence"