@@ -124,7 +124,12 @@ opfName n = QName n Nothing (Just "opf")
125plainify :: [Inline] -> String
125plainify :: [Inline] -> String
126plainify t =
126plainify t =
127− trimr $ writePlain def{ writerStandalone = False } $ Pandoc nullMeta [Plain t]
127+ trimr $ writePlain def{ writerStandalone = False }
128+ $ Pandoc nullMeta [Plain $ walk removeNote t]
130+removeNote :: Inline -> Inline
131+removeNote (Note _) = Str ""
129getEPUBMetadata :: WriterOptions -> Meta -> IO EPUBMetadata
134getEPUBMetadata :: WriterOptions -> Meta -> IO EPUBMetadata
130getEPUBMetadata opts meta = do
135getEPUBMetadata opts meta = do
@@ -397,10 +402,6 @@ writeEPUB opts doc@(Pandoc meta _) = do
398 let chapters = evalState (toChapters blocks'') []
403 let chapters = evalState (toChapters blocks'') []
400− let removeNote :: Inline -> Inline
401− removeNote (Note _) = Str ""
404 let chapToEntry :: Int -> Chapter -> Entry
405 let chapToEntry :: Int -> Chapter -> Entry
405 chapToEntry num (Chapter mbnum bs) = mkEntry (showChapter num)
406 chapToEntry num (Chapter mbnum bs) = mkEntry (showChapter num)
406 $ renderHtml
407 $ renderHtml