@@ -40,6 +40,7 @@ import Text.Pandoc.Definition
4040import Text.Pandoc.Logging
4141import Text.Pandoc.Options (HTMLMathMethod (..), WriterOptions (..), def)
4242import Text.Pandoc.Shared (capitalize, isURI, orderedListMarkers, hierarchicalize)
43+import Text.Pandoc.Writers.Shared (lookupMetaString)
4344import qualified Text.Pandoc.Shared as Shared (Element(Blk, Sec))
4445
4546-- | Data to be written at the end of the document:
@@ -96,7 +97,9 @@ pandocToFB2 opts (Pandoc meta blocks) = do
9697
9798description :: PandocMonad m => Meta -> FBM m Content
9899description meta' = do
99− let genre = el "genre" "unrecognised"
100+ let genre = case lookupMetaString "genre" meta' of
101+ "" -> el "genre" "unrecognised"
102+ s -> el "genre" s
100103 bt <- booktitle meta'
101104 let as = authors meta'
102105 dd <- docdate meta'