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

improve chapter name sanitization

Browse source
This commit is contained in:
Marko Andjelic 2026-06-25 22:08:53 +01:00
commit f17f6a63e2
Signed by: marko
GPG key ID: 9C5E99C8C682FB59
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
app/EpubParser.hs
View file

@ -132,7 +132,8 @@ extractTocFromEntry fullPath = do
getChapter :: (InternalPath, T.Text) -> ChapterIndex -> EpubAction Chapter
getChapter (InternalPath filename, tocTitle) idx = do
env <- ask
let full = normalise (baseDir env </> filename)
let bare = takeWhile (/= '#') filename
let full = normalise (baseDir env </> bare)
case findEntryByPath full (archive env) of
Nothing -> pure $ Chapter tocTitle "" idx
Just e -> do