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…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user