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

remove 'copyImages' from singlepage

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