hashirama/svitak
Watch
1
0
Fork
You've already forked svitak
 0
forked from marko/svitak
Code Pull requests Activity

remove repeated function

Browse source
This commit is contained in:
Marko Andjelic 2026-03-06 02:27:41 +00:00
commit 36d6d46c57
Signed by: marko
GPG key ID: 9C5E99C8C682FB59
2 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/EpubParser.hs
View file

@ -103,12 +103,6 @@ getRootPath :: T.Text -> Maybe String
getRootPath rawhtml =
scrapeStringLike rawhtml $ T.unpack <$> attr "full-path" "rootfile"
ncxScraper :: Scraper T.Text [(FilePath, T.Text)]
ncxScraper = chroots "navPoint" $ do
path <- T.unpack . T.takeWhile (/= '#') <$> attr "src" "content"
title <- T.strip <$> text "navLabel"
pure (path, title)
resolveSpine :: EpubAction [(InternalPath, T.Text)]
resolveSpine = do
env <- ask

4
app/UI.hs
View file

@ -82,10 +82,6 @@ initAppServices env stateTVar actionHandler = do
pure ()
pure ()
ncxScraper :: Scraper T.Text [(FilePath, T.Text)]
ncxScraper = chroots "navPoint" $
(,) <$> (T.unpack . T.takeWhile (/= '#') <$> attr "src" "content") <*> (T.strip <$> text "navLabel")
activate :: EpubEnv -> Gtk.Application -> IO ()
activate env app = do
stateTVar <- newTVarIO (initialState env)