Opts.hs

{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}

module EpubTools.EpubZip.Opts
  ( DirOrName (..)
  , Options (..)
  , Overwrite (..)
  , parseOpts
  )
  where

import Data.Text.Lazy (Text, pack)
import Data.Version (showVersion)
import Options.Applicative.Dex
import Paths_epub_tools (version)
import Text.Heredoc (here)


newtype Overwrite = Overwrite Bool

newtype DirOrName = DirOrName FilePath

data Options = Options
  { overwrite :: Overwrite
  , dirOrName :: DirOrName
  }


parseOpts :: IO Options
parseOpts = parseOpts' parser
  "Construct an EPUB zip archive from files in the current directory"
  footerContent version


parser :: Parser Options
parser = Options
  <$> ( Overwrite <$> switch
        (  long "overwrite"
        <> short 'o'
        <> help "Force overwrite if dest file exists"
        )
      )
  <*> ( DirOrName <$> argument str
        (  metavar "(DIR | DIR/FILE)"
        <> help "Directory or filename for the new EPUB file"
        )
      )


footerContent :: Text
footerContent = [here|Construct an EPUB zip archive from files in the current directory

If run with DIR alone, epubzip will try to construct a name from the OPF package data for this book (see epubname). If run with DIR/FILE, epubzip will use that name for the destination file.

You may have noticed that there is no epubunzip utility. Truth is, EPUBs are just zip files and you barely need epubzip either if you have the normal zip/unzip utilities installed. While not as fancy with file naming and leaving out dotfiles, this works for zipping:

    $ cd DIR
    $ zip -Xr9D ../EPUBFILE mimetype *

And for unzipping, it's really just as easy:

    $ mkdir TEMPDIR
    $ cd TEMPDIR
    $ unzip EPUBFILE

For more information on the EPUB format:
  EPUB2: http://idpf.org/epub/20/spec/OPF_2.0.1_draft.htm
  EPUB3: http://www.idpf.org/epub/30/spec/epub30-publications.html


Version |] <> (pack $ showVersion version) <> "  Dino Morelli <dino@ui3.info>"