From f904982de768eae375d9e994659519d92d6f7b3c Mon Sep 17 00:00:00 2001 From: j4nk Date: Wed, 4 Jan 2023 12:31:29 -0500 Subject: [PATCH] Added ability to specify language --- md4tj_parse.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/md4tj_parse.el b/md4tj_parse.el index 0fc28c6..97362a5 100644 --- a/md4tj_parse.el +++ b/md4tj_parse.el @@ -134,7 +134,10 @@ (defun md4tj-begin () "Insert beginning code for all html." (concat "\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."