Added ability to specify language

This commit is contained in:
j4nk 2023-01-04 12:31:29 -05:00
parent 1550094d19
commit f904982de7
1 changed files with 4 additions and 1 deletions

View File

@ -134,7 +134,10 @@
(defun md4tj-begin () (defun md4tj-begin ()
"Insert beginning code for all html." "Insert beginning code for all html."
(concat "<!DOCTYPE html>\n" (concat "<!DOCTYPE html>\n"
(md4tj-begin-tag "html" (list (list "lang" "en-us"))) "\n")) (md4tj-begin-tag "html"
(list (list "lang"
(or (nth 1 (car (cl-remove-if-not (lambda (meta) (string= (car meta) "@@LANG")) (md4tj-find-metas)))) "en"))))
"\n"))
(defun md4tj-finalize (state) (defun md4tj-finalize (state)
"Finalizes HTML document by inserting missing end tags based on STATE." "Finalizes HTML document by inserting missing end tags based on STATE."