Added ability to specify language

2023-01-04 12:31:29 -05:00 · 2023-01-04 12:31:29 -05:00 · f904982de7
parent 1550094d19
commit f904982de7
1 changed files with 4 additions and 1 deletions
--- a/md4tj_parse.el
+++ b/md4tj_parse.el
@ -134,7 +134,10 @@
 (defun md4tj-begin ()
  "Insert beginning code for all html."
  (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)
  "Finalizes HTML document by inserting missing end tags based on STATE."