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

Possibly fixed the path issues, still need to test

This commit is contained in:
j4nk 2023-07-10 09:10:52 -04:00
parent 3f56c251cd
commit 58facddf57
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
md4tj.el
View File

@ -106,7 +106,7 @@
((string-match "^@@DIV" line) (md4tj-begin-tag "div" (list (list "class" (nth 1 (split-string line)))))) ((string-match "^@@DIV" line) (md4tj-begin-tag "div" (list (list "class" (nth 1 (split-string line))))))
((string-match "^@@ENDDIV" line) (md4tj-end-tag "div")) ((string-match "^@@ENDDIV" line) (md4tj-end-tag "div"))
((string-match "^@@BLOGINSERT" line) (with-current-buffer inbuf (md4tj-blog-html))) ((string-match "^@@BLOGINSERT" line) (with-current-buffer inbuf (md4tj-blog-html)))
((string-match "^@@RSSINSERT" line) (md4tj-rss-link-string (md4tj-rss-file-from-outfile outfile))) ((string-match "^@@RSSINSERT" line) (md4tj-rss-link-string (concat (md4tj-blog-base-dir) "feed.xml")))
((and (string-match "^$$.*$$" line) (eq (nth 1 state) 'normal)) ;; LaTeX formula ((and (string-match "^$$.*$$" line) (eq (nth 1 state) 'normal)) ;; LaTeX formula
(shell-command (concat "./pnglatex" (shell-command (concat "./pnglatex"
" -d 300" " -d 300"
@ -236,7 +236,7 @@
(insert-file-contents mdfile) (insert-file-contents mdfile)
(goto-char (point-min)) (goto-char (point-min))
;; If we need RSS, go ahead and output the XML file here ;; If we need RSS, go ahead and output the XML file here
(if (md4tj-rss-needs-rss) (md4tj-rss-to-file mdfile (md4tj-rss-file-from-outfile outfile))) (if (md4tj-rss-needs-rss) (md4tj-rss-to-file mdfile (md4tj-rss-file-from-outfile outfile (with-temp-buffer (insert-file-contents mdfile) (md4tj-blog-base-dir)))))
(set-buffer outbuf) (set-buffer outbuf)
(insert (md4tj-begin)) (insert (md4tj-begin))
(insert (with-current-buffer inbuf (md4tj-head))) (insert (with-current-buffer inbuf (md4tj-head)))
@ -452,9 +452,9 @@
"Return the html of RSS link to RSSLINK as string." "Return the html of RSS link to RSSLINK as string."
(concat (md4tj-begin-tag "div" (list (list "id" "rssicon"))) (md4tj-begin-tag "a" (list (list "href" rsslink))) (md4tj-begin-tag "img" (list (list "src" "rss.png") (list "alt" "RSS icon") (list "style" "width:20px;height:20px;"))) (md4tj-end-tag "img") (md4tj-end-tag "a") (md4tj-end-tag "div"))) (concat (md4tj-begin-tag "div" (list (list "id" "rssicon"))) (md4tj-begin-tag "a" (list (list "href" rsslink))) (md4tj-begin-tag "img" (list (list "src" "rss.png") (list "alt" "RSS icon") (list "style" "width:20px;height:20px;"))) (md4tj-end-tag "img") (md4tj-end-tag "a") (md4tj-end-tag "div")))
(defun md4tj-rss-file-from-outfile (outfile) (defun md4tj-rss-file-from-outfile (outfile subdir)
"Return the filename that the RSS XML should be output to given OUTFILE." "Return the filename that the RSS XML should be output to given OUTFILE."
(concat (file-name-directory outfile) "/feed.xml")) (concat (file-name-directory outfile) "feed.xml"))