Added ability to specify language
This commit is contained in:
parent
1550094d19
commit
f904982de7
|
@ -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."
|
||||||
|
|
Loading…
Reference in New Issue