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

remove 'copyImages' from singlepage

This commit is contained in:
Rhiannon Morris 2020-07-13 05:40:46 +02:00
parent 182449ccc0
commit 7c6102ac63
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
make-pages/Main.hs
View File

@ -22,8 +22,7 @@ data ModeOptions =
SinglePage {
file :: FilePath,
includeNsfw :: Bool,
output :: Maybe FilePath,
copyImages :: Bool
output :: Maybe FilePath
}
| GalleryPage {
files :: [FilePath],
@ -41,7 +40,7 @@ optionsParser = globalOpts `Opt.info` mainInfo where
subcommands = Opt.hsubparser (single <> gallery)
single = Opt.command "single" $ singleOpts `Opt.info` singleInfo
singleOpts = SinglePage <$> fileArg <*> nsfwSwitchS <*> outputOpt <*> copyOpt
singleOpts = SinglePage <$> fileArg <*> nsfwSwitchS <*> outputOpt
fileArg = Opt.strArgument $
Opt.metavar "FILE" <> Opt.help "yaml file to read"
nsfwSwitchS = Opt.switch $
@ -51,9 +50,6 @@ optionsParser = globalOpts `Opt.info` mainInfo where
Opt.short 'o' <> Opt.long "output" <> Opt.metavar "FILE" <>
Opt.value Nothing <>
Opt.help "output file (default: stdout)"
copyOpt = Opt.switch $
Opt.short 'c' <> Opt.long "copy" <>
Opt.help "copy mentioned image files to output directory"
singleInfo = Opt.progDesc "generate a page for a single work"
gallery = Opt.command "gallery" $ galleryOpts `Opt.info` galleryInfo