@@ -120,7 +120,7 @@ pandocToLaTeX options (Pandoc meta blocks) = do
120 Right r -> r
120 Right r -> r
121 Left _ -> ""
121 Left _ -> ""
122 case lookup "documentclass" (writerVariables options) `mplus`
122 case lookup "documentclass" (writerVariables options) `mplus`
123− parseMaybe (withObject "object" (.: "documentclass")) metadata of
123+ fmap stringify (lookupMeta "documentclass" meta) of
124 Just x | x `elem` bookClasses -> modify $ \s -> s{stBook = True}
124 Just x | x `elem` bookClasses -> modify $ \s -> s{stBook = True}
125 | otherwise -> return ()
125 | otherwise -> return ()
126 Nothing | documentClass `elem` bookClasses
126 Nothing | documentClass `elem` bookClasses