rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

add index page

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-16 16:29:32 +02:00
parent 375c6e833a
commit 3f025721c8
6 changed files with 63 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
make-pages/Options.hs
View file

@ -22,6 +22,10 @@ data ModeOptions =
output :: Maybe FilePath,
dataDir :: FilePath
}
| IndexPage {
file :: FilePath,
output :: Maybe FilePath
}
| DependSingle {
file :: FilePath,
nsfw :: Bool,
@ -48,7 +52,7 @@ optionsParser = globalOpts `info` mainInfo where
short 'v' <> long "verbose" <>
help "print extra stuff to stderr"
subcommands = hsubparser $
single <> gallery <> dependSingle <> dependGallery
single <> gallery <> index <> dependSingle <> dependGallery
single = command "single" $ singleOpts `info` singleInfo
singleOpts = SinglePage <$> file <*> nsfwS <*> output
@ -63,6 +67,10 @@ optionsParser = globalOpts `info` mainInfo where
help "output file (default: stdout)"
singleInfo = progDesc "generate a page for a single work"
index = command "index" $ indexOpts `info` indexInfo
indexOpts = IndexPage <$> file <*> output
indexInfo = progDesc "generate an index page for all galleries"
gallery = command "gallery" $ galleryOpts `info` galleryInfo
galleryOpts = GalleryPage <$> files <*> title <*> output <*> dataDir
files = many $ strArgument $