From f32ddea748260817c5298cbf10130026b17d7f9d Mon Sep 17 00:00:00 2001 From: Marko Andjelic Date: Sat, 24 Jan 2026 00:33:53 +0000 Subject: [PATCH] Add tag extractor --- app/EpubParser.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/app/EpubParser.hs b/app/EpubParser.hs index cbfaf78..f9bea9e 100644 --- a/app/EpubParser.hs +++ b/app/EpubParser.hs @@ -47,6 +47,12 @@ getOpfPath archive = do (t:_) -> Just (fromAttrib "full-path" t) [] -> Nothing +getOpfTags :: Archive -> FilePath -> [Tag String] +getOpfTags archive opfpath = + case findEntryByPath opfpath archive of + Just entry -> parseTags $ C8.unpack (fromEntry entry) + Nothing -> [] + getRootPrefix :: FilePath -> FilePath getRootPrefix path = let dir = takeDirectory path