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

Updated comments to eliminate idea of "block"

This commit is contained in:
j4nk 2022-12-29 11:33:30 -05:00
parent a33b039d9f
commit ad94c2f066
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
md4tj_parse.el
View File

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