@@ -46,7 +46,7 @@ module Text.Pandoc.Writers.HTML (
46import Control.Monad.State
46import Control.Monad.State
47import Data.Char (ord, toLower)
47import Data.Char (ord, toLower)
48import Data.List (intersperse, isPrefixOf)
48import Data.List (intersperse, isPrefixOf)
49−import Data.Maybe (catMaybes, fromMaybe, isJust)
49+import Data.Maybe (catMaybes, fromMaybe, isJust, isNothing)
50import Data.Monoid ((<>))
50import Data.Monoid ((<>))
51import Data.String (fromString)
51import Data.String (fromString)
52import Network.HTTP (urlEncode)
52import Network.HTTP (urlEncode)
@@ -192,6 +192,9 @@ writeHtmlString' st opts d = do
192 case writerTemplate opts of
192 case writerTemplate opts of
193 Nothing -> return $ renderHtml body
193 Nothing -> return $ renderHtml body
194 Just tpl -> do
194 Just tpl -> do
195+ -- warn if empty lang
196+ when (isNothing (getField "lang" context :: Maybe String)) $
197+ report NoLangSpecified
195 -- check for empty pagetitle
198 -- check for empty pagetitle
196 context' <-
199 context' <-
197 case getField "pagetitle" context of
200 case getField "pagetitle" context of