j4nk
/
md4tj
1
0
Fork 0
Code Issues 9 Pull Requests Projects Releases Wiki Activity

Compare commits

base: j4nk:60f9947916a7725507b4b094c880f5a8607e9249
Branches Tags
j4nk:master
..
compare: j4nk:9e3acb526f26a7f49613ca4f2420a871eaed44b8
Branches Tags
j4nk:master

No commits in common. "60f9947916a7725507b4b094c880f5a8607e9249" and "9e3acb526f26a7f49613ca4f2420a871eaed44b8" have entirely different histories.
60f9947916 ... 9e3acb526f

1 changed files with 8 additions and 4 deletions
Show Stats Expand all files Collapse all files

12
md4tj_parse.el
View File

@ -70,9 +70,13 @@
"<" "&lt;" "<" "&lt;"
(string-replace ">" "&gt;" line))) (string-replace ">" "&gt;" line)))
(defun md4tj-convert-line-to-html (line state)
"Process LINE with STATE and return html." ;; Note: a "block" is the smallest unit of parsing
(let ((cleanline (md4tj-clean-multiline line))) ;; It is normally a line of the code, but can be
;; multiple lines in the case of a block (NI)
(defun md4tj-process-block (codeblock state)
"Process CODEBLOCK with STATE and return html."
(let ((cleanline (md4tj-clean-multiline codeblock)))
(concat (concat
;; Beginning of multiline block ;; Beginning of multiline block
(cond ((eq state 'beginul) "<ul>\n<li>") (cond ((eq state 'beginul) "<ul>\n<li>")
@ -137,7 +141,7 @@
(setq line (with-current-buffer inbuf (getline))) (setq line (with-current-buffer inbuf (getline)))
(setq state (md4tj-next-state line state)) (setq state (md4tj-next-state line state))
;; Insert next line(s) into output file ;; Insert next line(s) into output file
(insert (concat (md4tj-convert-line-to-html line state) "\n")) (insert (concat (md4tj-process-block line state) "\n"))
;; Advance input file by a line ;; Advance input file by a line
(with-current-buffer inbuf (forward-line))) (with-current-buffer inbuf (forward-line)))
(insert (md4tj-finalize state)) (insert (md4tj-finalize state))