Made strikethrough, highlight, strong, and em greedier
This commit is contained in:
parent
0f26ff4a91
commit
0e2d7e7aeb
8
md4tj.el
8
md4tj.el
|
@ -63,11 +63,11 @@
|
||||||
"Process all inline elements of the LINE, return HTML."
|
"Process all inline elements of the LINE, return HTML."
|
||||||
;; Finally strikethrough
|
;; Finally strikethrough
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"~~\\(.*\\)~~"
|
"~~\\(.*?\\)~~"
|
||||||
"<s>\\1</s>"
|
"<s>\\1</s>"
|
||||||
;; Then highlight
|
;; Then highlight
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"==\\(.*\\)=="
|
"==\\(.*?\\)=="
|
||||||
"<mark>\\1</mark>"
|
"<mark>\\1</mark>"
|
||||||
;; Then links
|
;; Then links
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
|
@ -83,11 +83,11 @@
|
||||||
(concat (md4tj-begin-tag "video" (list '("src" "\\2") '("type" "video/webm") '("controls" "true"))) "\\1" (md4tj-end-tag "video"))
|
(concat (md4tj-begin-tag "video" (list '("src" "\\2") '("type" "video/webm") '("controls" "true"))) "\\1" (md4tj-end-tag "video"))
|
||||||
;; Then emphasis
|
;; Then emphasis
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"\\*\\(.*\\)\\*"
|
"\\*\\(.*?\\)\\*"
|
||||||
"<em>\\1</em>"
|
"<em>\\1</em>"
|
||||||
;; Then strong
|
;; Then strong
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"\\*\\*\\(.*\\)\\*\\*"
|
"\\*\\*\\(.*?\\)\\*\\*"
|
||||||
"<strong>\\1</strong>"
|
"<strong>\\1</strong>"
|
||||||
;; First code
|
;; First code
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
|
|
Loading…
Reference in New Issue