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

Compare commits

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

3 Commits
9e3acb526f ... 60f9947916

Author SHA1 Message Date
j4nk 60f9947916 Merge remote-tracking branch 'origin/master' 2022-12-29 11:41:20 -05:00
j4nk 421f8e8472 fix maybe? 2022-12-29 11:38:21 -05:00
j4nk ad94c2f066 Updated comments to eliminate idea of "block" 2022-12-29 11:33:30 -05:00
1 changed files with 4 additions and 8 deletions
Show Stats Expand all files Collapse all files

12
md4tj_parse.el
View File

@ -70,13 +70,9 @@
"<" "&lt;" "<" "&lt;"
(string-replace ">" "&gt;" line))) (string-replace ">" "&gt;" line)))
(defun md4tj-convert-line-to-html (line state)
;; Note: a "block" is the smallest unit of parsing "Process LINE with STATE and return html."
;; It is normally a line of the code, but can be (let ((cleanline (md4tj-clean-multiline line)))
;; 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>")
@ -141,7 +137,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-process-block line state) "\n")) (insert (concat (md4tj-convert-line-to-html 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))