{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE TemplateHaskell #-}
module Text.BlogLiterately.Options
(
BlogLiterately(..), blOpts
, style
, hsHighlight
, otherHighlight
, litHaskell
, toc
, rawlatex
, wplatex
, math
, ghci
, uploadImages
, categories
, tags
, blogid
, profile
, blog
, user
, password
, title
, file
, format
, postid
, page
, publish
, htmlOnly
, citations
, xtra
, style'
, hsHighlight'
, otherHighlight'
, litHaskell'
, toc'
, rawlatex'
, wplatex'
, math'
, ghci'
, uploadImages'
, blogid'
, profile'
, blog'
, user'
, password'
, title'
, file'
, format'
, postid'
, page'
, publish'
, htmlOnly'
, citations'
)
where
import Control.Lens (makeLenses, view)
import Control.Monad (mplus)
import Data.Maybe (fromMaybe)
import qualified Data.Semigroup as Semi
import Data.Version
import Paths_BlogLiterately (version)
import System.Console.CmdArgs
import Text.BlogLiterately.Highlight
data BlogLiterately = BlogLiterately
{ BlogLiterately -> Maybe String
_style :: Maybe String
, BlogLiterately -> Maybe HsHighlight
_hsHighlight :: Maybe HsHighlight
, BlogLiterately -> Maybe Bool
_otherHighlight :: Maybe Bool
, BlogLiterately -> Maybe Bool
_litHaskell :: Maybe Bool
, BlogLiterately -> Maybe Bool
_toc :: Maybe Bool
, BlogLiterately -> Maybe Bool
_rawlatex :: Maybe Bool
, BlogLiterately -> Maybe Bool
_wplatex :: Maybe Bool
, BlogLiterately -> Maybe String
_math :: Maybe String
, BlogLiterately -> Maybe Bool
_ghci :: Maybe Bool
, BlogLiterately -> Maybe Bool
_uploadImages :: Maybe Bool
, BlogLiterately -> [String]
_categories :: [String]
, BlogLiterately -> [String]
_tags :: [String]
, BlogLiterately -> Maybe String
_blogid :: Maybe String
, BlogLiterately -> Maybe String
_profile :: Maybe String
, BlogLiterately -> Maybe String
_blog :: Maybe String
, BlogLiterately -> Maybe String
_user :: Maybe String
, BlogLiterately -> Maybe String
_password :: Maybe String
, BlogLiterately -> Maybe String
_title :: Maybe String
, BlogLiterately -> Maybe String
_file :: Maybe String
, BlogLiterately -> Maybe String
_format :: Maybe String
, BlogLiterately -> Maybe String
_postid :: Maybe String
, BlogLiterately -> Maybe Bool
_page :: Maybe Bool
, BlogLiterately -> Maybe Bool
_publish :: Maybe Bool
, BlogLiterately -> Maybe Bool
_htmlOnly :: Maybe Bool
, BlogLiterately -> Maybe Bool
_citations :: Maybe Bool
, BlogLiterately -> [String]
_xtra :: [String]
}
deriving (Int -> BlogLiterately -> ShowS
[BlogLiterately] -> ShowS
BlogLiterately -> String
(Int -> BlogLiterately -> ShowS)
-> (BlogLiterately -> String)
-> ([BlogLiterately] -> ShowS)
-> Show BlogLiterately
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BlogLiterately] -> ShowS
$cshowList :: [BlogLiterately] -> ShowS
show :: BlogLiterately -> String
$cshow :: BlogLiterately -> String
showsPrec :: Int -> BlogLiterately -> ShowS
$cshowsPrec :: Int -> BlogLiterately -> ShowS
Show,Typeable BlogLiterately
DataType
Constr
Typeable BlogLiterately
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> BlogLiterately -> c BlogLiterately)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c BlogLiterately)
-> (BlogLiterately -> Constr)
-> (BlogLiterately -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c BlogLiterately))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c BlogLiterately))
-> ((forall b. Data b => b -> b)
-> BlogLiterately -> BlogLiterately)
-> (forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r)
-> (forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r)
-> (forall u.
(forall d. Data d => d -> u) -> BlogLiterately -> [u])
-> (forall u.
Int -> (forall d. Data d => d -> u) -> BlogLiterately -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately)
-> Data BlogLiterately
BlogLiterately -> DataType
BlogLiterately -> Constr
(forall b. Data b => b -> b) -> BlogLiterately -> BlogLiterately
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> BlogLiterately -> c BlogLiterately
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c BlogLiterately
forall a.
Typeable a
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> BlogLiterately -> u
forall u. (forall d. Data d => d -> u) -> BlogLiterately -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c BlogLiterately
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> BlogLiterately -> c BlogLiterately
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c BlogLiterately)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c BlogLiterately)
$cBlogLiterately :: Constr
$tBlogLiterately :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
gmapMp :: (forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
gmapM :: (forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> BlogLiterately -> m BlogLiterately
gmapQi :: Int -> (forall d. Data d => d -> u) -> BlogLiterately -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> BlogLiterately -> u
gmapQ :: (forall d. Data d => d -> u) -> BlogLiterately -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> BlogLiterately -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> BlogLiterately -> r
gmapT :: (forall b. Data b => b -> b) -> BlogLiterately -> BlogLiterately
$cgmapT :: (forall b. Data b => b -> b) -> BlogLiterately -> BlogLiterately
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c BlogLiterately)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c BlogLiterately)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c BlogLiterately)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c BlogLiterately)
dataTypeOf :: BlogLiterately -> DataType
$cdataTypeOf :: BlogLiterately -> DataType
toConstr :: BlogLiterately -> Constr
$ctoConstr :: BlogLiterately -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c BlogLiterately
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c BlogLiterately
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> BlogLiterately -> c BlogLiterately
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> BlogLiterately -> c BlogLiterately
$cp1Data :: Typeable BlogLiterately
Data,Typeable)
makeLenses ''BlogLiterately
instance Semi.Semigroup BlogLiterately where
BlogLiterately
bl1 <> :: BlogLiterately -> BlogLiterately -> BlogLiterately
<> BlogLiterately
bl2 =
BlogLiterately :: Maybe String
-> Maybe HsHighlight
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> [String]
-> [String]
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> [String]
-> BlogLiterately
BlogLiterately
{ _style :: Maybe String
_style = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_style
, _hsHighlight :: Maybe HsHighlight
_hsHighlight = (BlogLiterately -> Maybe HsHighlight) -> Maybe HsHighlight
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe HsHighlight
_hsHighlight
, _otherHighlight :: Maybe Bool
_otherHighlight = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_otherHighlight
, _litHaskell :: Maybe Bool
_litHaskell = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_litHaskell
, _toc :: Maybe Bool
_toc = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_toc
, _rawlatex :: Maybe Bool
_rawlatex = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_rawlatex
, _wplatex :: Maybe Bool
_wplatex = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_wplatex
, _math :: Maybe String
_math = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_math
, _ghci :: Maybe Bool
_ghci = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_ghci
, _uploadImages :: Maybe Bool
_uploadImages = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_uploadImages
, _categories :: [String]
_categories = (BlogLiterately -> [String]) -> [String]
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> [String]
_categories
, _tags :: [String]
_tags = (BlogLiterately -> [String]) -> [String]
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> [String]
_tags
, _blogid :: Maybe String
_blogid = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_blogid
, _profile :: Maybe String
_profile = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_profile
, _blog :: Maybe String
_blog = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_blog
, _user :: Maybe String
_user = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_user
, _password :: Maybe String
_password = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_password
, _title :: Maybe String
_title = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_title
, _file :: Maybe String
_file = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_file
, _format :: Maybe String
_format = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_format
, _postid :: Maybe String
_postid = (BlogLiterately -> Maybe String) -> Maybe String
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe String
_postid
, _page :: Maybe Bool
_page = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_page
, _publish :: Maybe Bool
_publish = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_publish
, _htmlOnly :: Maybe Bool
_htmlOnly = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_htmlOnly
, _citations :: Maybe Bool
_citations = (BlogLiterately -> Maybe Bool) -> Maybe Bool
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> Maybe Bool
_citations
, _xtra :: [String]
_xtra = (BlogLiterately -> [String]) -> [String]
forall (m :: * -> *) a.
MonadPlus m =>
(BlogLiterately -> m a) -> m a
combine BlogLiterately -> [String]
_xtra
}
where combine :: (BlogLiterately -> m a) -> m a
combine BlogLiterately -> m a
f = BlogLiterately -> m a
f BlogLiterately
bl1 m a -> m a -> m a
forall (m :: * -> *) a. MonadPlus m => m a -> m a -> m a
`mplus` BlogLiterately -> m a
f BlogLiterately
bl2
instance Monoid BlogLiterately where
mempty :: BlogLiterately
mempty =
BlogLiterately :: Maybe String
-> Maybe HsHighlight
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> [String]
-> [String]
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> [String]
-> BlogLiterately
BlogLiterately
{ _style :: Maybe String
_style = Maybe String
forall a. Maybe a
Nothing
, _hsHighlight :: Maybe HsHighlight
_hsHighlight = Maybe HsHighlight
forall a. Maybe a
Nothing
, _otherHighlight :: Maybe Bool
_otherHighlight = Maybe Bool
forall a. Maybe a
Nothing
, _litHaskell :: Maybe Bool
_litHaskell = Maybe Bool
forall a. Maybe a
Nothing
, _toc :: Maybe Bool
_toc = Maybe Bool
forall a. Maybe a
Nothing
, _rawlatex :: Maybe Bool
_rawlatex = Maybe Bool
forall a. Maybe a
Nothing
, _wplatex :: Maybe Bool
_wplatex = Maybe Bool
forall a. Maybe a
Nothing
, _math :: Maybe String
_math = Maybe String
forall a. Maybe a
Nothing
, _ghci :: Maybe Bool
_ghci = Maybe Bool
forall a. Maybe a
Nothing
, _uploadImages :: Maybe Bool
_uploadImages = Maybe Bool
forall a. Maybe a
Nothing
, _categories :: [String]
_categories = []
, _tags :: [String]
_tags = []
, _blogid :: Maybe String
_blogid = Maybe String
forall a. Maybe a
Nothing
, _profile :: Maybe String
_profile = Maybe String
forall a. Maybe a
Nothing
, _blog :: Maybe String
_blog = Maybe String
forall a. Maybe a
Nothing
, _user :: Maybe String
_user = Maybe String
forall a. Maybe a
Nothing
, _password :: Maybe String
_password = Maybe String
forall a. Maybe a
Nothing
, _title :: Maybe String
_title = Maybe String
forall a. Maybe a
Nothing
, _file :: Maybe String
_file = Maybe String
forall a. Maybe a
Nothing
, _format :: Maybe String
_format = Maybe String
forall a. Maybe a
Nothing
, _postid :: Maybe String
_postid = Maybe String
forall a. Maybe a
Nothing
, _page :: Maybe Bool
_page = Maybe Bool
forall a. Maybe a
Nothing
, _publish :: Maybe Bool
_publish = Maybe Bool
forall a. Maybe a
Nothing
, _htmlOnly :: Maybe Bool
_htmlOnly = Maybe Bool
forall a. Maybe a
Nothing
, _citations :: Maybe Bool
_citations = Maybe Bool
forall a. Maybe a
Nothing
, _xtra :: [String]
_xtra = []
}
mappend :: BlogLiterately -> BlogLiterately -> BlogLiterately
mappend = BlogLiterately -> BlogLiterately -> BlogLiterately
forall a. Semigroup a => a -> a -> a
(Semi.<>)
style' :: BlogLiterately -> String
style' :: BlogLiterately -> String
style' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
style
hsHighlight' :: BlogLiterately -> HsHighlight
hsHighlight' :: BlogLiterately -> HsHighlight
hsHighlight' = HsHighlight -> Maybe HsHighlight -> HsHighlight
forall a. a -> Maybe a -> a
fromMaybe (StylePrefs -> HsHighlight
HsColourInline StylePrefs
defaultStylePrefs) (Maybe HsHighlight -> HsHighlight)
-> (BlogLiterately -> Maybe HsHighlight)
-> BlogLiterately
-> HsHighlight
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe HsHighlight) BlogLiterately (Maybe HsHighlight)
-> BlogLiterately -> Maybe HsHighlight
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe HsHighlight) BlogLiterately (Maybe HsHighlight)
Lens' BlogLiterately (Maybe HsHighlight)
hsHighlight
otherHighlight' :: BlogLiterately -> Bool
otherHighlight' :: BlogLiterately -> Bool
otherHighlight' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
True (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
otherHighlight
litHaskell' :: BlogLiterately -> Bool
litHaskell' :: BlogLiterately -> Bool
litHaskell' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
True (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
litHaskell
toc' :: BlogLiterately -> Bool
toc' :: BlogLiterately -> Bool
toc' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
toc
rawlatex' :: BlogLiterately -> Bool
rawlatex' :: BlogLiterately -> Bool
rawlatex' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
rawlatex
wplatex' :: BlogLiterately -> Bool
wplatex' :: BlogLiterately -> Bool
wplatex' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
wplatex
math' :: BlogLiterately -> String
math' :: BlogLiterately -> String
math' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
math
ghci' :: BlogLiterately -> Bool
ghci' :: BlogLiterately -> Bool
ghci' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
ghci
uploadImages' :: BlogLiterately -> Bool
uploadImages' :: BlogLiterately -> Bool
uploadImages' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
uploadImages
blogid' :: BlogLiterately -> String
blogid' :: BlogLiterately -> String
blogid' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"default" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
blogid
profile' :: BlogLiterately -> String
profile' :: BlogLiterately -> String
profile' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
profile
blog' :: BlogLiterately -> String
blog' :: BlogLiterately -> String
blog' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
blog
user' :: BlogLiterately -> String
user' :: BlogLiterately -> String
user' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
user
password' :: BlogLiterately -> String
password' :: BlogLiterately -> String
password' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
password
title' :: BlogLiterately -> String
title' :: BlogLiterately -> String
title' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
title
file' :: BlogLiterately -> String
file' :: BlogLiterately -> String
file' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
file
format' :: BlogLiterately -> String
format' :: BlogLiterately -> String
format' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
format
postid' :: BlogLiterately -> String
postid' :: BlogLiterately -> String
postid' = String -> Maybe String -> String
forall a. a -> Maybe a -> a
fromMaybe String
"" (Maybe String -> String)
-> (BlogLiterately -> Maybe String) -> BlogLiterately -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe String) BlogLiterately (Maybe String)
-> BlogLiterately -> Maybe String
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe String) BlogLiterately (Maybe String)
Lens' BlogLiterately (Maybe String)
postid
page' :: BlogLiterately -> Bool
page' :: BlogLiterately -> Bool
page' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
page
publish' :: BlogLiterately -> Bool
publish' :: BlogLiterately -> Bool
publish' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
publish
htmlOnly' :: BlogLiterately -> Bool
htmlOnly' :: BlogLiterately -> Bool
htmlOnly' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
False (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
htmlOnly
citations' :: BlogLiterately -> Bool
citations' :: BlogLiterately -> Bool
citations' = Bool -> Maybe Bool -> Bool
forall a. a -> Maybe a -> a
fromMaybe Bool
True (Maybe Bool -> Bool)
-> (BlogLiterately -> Maybe Bool) -> BlogLiterately -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting (Maybe Bool) BlogLiterately (Maybe Bool)
-> BlogLiterately -> Maybe Bool
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting (Maybe Bool) BlogLiterately (Maybe Bool)
Lens' BlogLiterately (Maybe Bool)
citations
blOpts :: BlogLiterately
blOpts :: BlogLiterately
blOpts = BlogLiterately :: Maybe String
-> Maybe HsHighlight
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> [String]
-> [String]
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> [String]
-> BlogLiterately
BlogLiterately
{ _style :: Maybe String
_style = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"style specification (for --hscolour-icss)"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
typFile
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"style" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"s" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _hsHighlight :: Maybe HsHighlight
_hsHighlight = [Maybe HsHighlight] -> Maybe HsHighlight
forall val. Data val => [val] -> val
enum
[ Maybe HsHighlight
forall a. Maybe a
Nothing
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"hscolour-icss"
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"highlight haskell: hscolour, inline style (default)"
, HsHighlight -> Maybe HsHighlight
forall a. a -> Maybe a
Just HsHighlight
HsColourCSS
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"hscolour-css"
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"highlight haskell: hscolour, separate stylesheet"
, HsHighlight -> Maybe HsHighlight
forall a. a -> Maybe a
Just HsHighlight
HsNoHighlight
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"hs-nohighlight"
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"no haskell highlighting"
, HsHighlight -> Maybe HsHighlight
forall a. a -> Maybe a
Just HsHighlight
HsKate
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"hs-kate"
Maybe HsHighlight -> Ann -> Maybe HsHighlight
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"highlight haskell with highlighting-kate"
]
, _otherHighlight :: Maybe Bool
_otherHighlight = [Maybe Bool] -> Maybe Bool
forall val. Data val => [val] -> val
enum
[ Maybe Bool
forall a. Maybe a
Nothing
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"kate"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"highlight non-Haskell code with highlighting-kate (default)"
, Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
False
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"no-kate"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"don't highlight non-Haskell code"
]
, _toc :: Maybe Bool
_toc = [Maybe Bool] -> Maybe Bool
forall val. Data val => [val] -> val
enum
[ Maybe Bool
forall a. Maybe a
Nothing
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"no-toc"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"don't generate a table of contents (default)"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
True
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"toc"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"generate a table of contents"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
]
, _rawlatex :: Maybe Bool
_rawlatex = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"pass inline/display LaTeX through unchanged"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"rawlatex" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"r" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _wplatex :: Maybe Bool
_wplatex = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"reformat inline LaTeX the way WordPress expects"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"wplatex" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"w" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _math :: Maybe String
_math = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"how to layout math, where --math=<pandoc-option>[=URL]"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"math" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"m" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _litHaskell :: Maybe Bool
_litHaskell = [Maybe Bool] -> Maybe Bool
forall val. Data val => [val] -> val
enum
[ Maybe Bool
forall a. Maybe a
Nothing
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"parse as literate Haskell (default)"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"lit-haskell"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
False
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"do not parse as literate Haskell"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"no-lit-haskell"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
]
, _ghci :: Maybe Bool
_ghci = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"run [ghci] blocks through ghci and include output"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"ghci" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"g" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _uploadImages :: Maybe Bool
_uploadImages = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"upload-images" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"I" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"upload local images"
, _page :: Maybe Bool
_page = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"create a \"page\" instead of a post (WordPress only)"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"page" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _publish :: Maybe Bool
_publish = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"publish post (otherwise it's uploaded as a draft)"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"publish" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _htmlOnly :: Maybe Bool
_htmlOnly = Maybe Bool
forall a. Default a => a
def Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"don't upload anything; output HTML to stdout"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"html-only" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"h" Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _categories :: [String]
_categories = [String]
forall a. Default a => a
def
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= Ann
explicit
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"category" [String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"C"
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"post category (can specify more than one)"
, _tags :: [String]
_tags = [String]
forall a. Default a => a
def
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= Ann
explicit
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"tag" [String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"T"
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"tag (can specify more than one)"
, _citations :: Maybe Bool
_citations = [Maybe Bool] -> Maybe Bool
forall val. Data val => [val] -> val
enum
[ Maybe Bool
forall a. Maybe a
Nothing
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"process citations (default)"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"citations"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
False
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"do not process citations"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"no-citations"
Maybe Bool -> Ann -> Maybe Bool
forall val. Data val => val -> Ann -> val
&= Ann
explicit
]
, _xtra :: [String]
_xtra = [String]
forall a. Default a => a
def
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"extension arguments, for use with custom extensions"
[String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"xtra" [String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"x" [String] -> Ann -> [String]
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _blogid :: Maybe String
_blogid = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"Blog specific identifier" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"ID"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"blogid" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _postid :: Maybe String
_postid = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"Post to replace (if any)" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"ID"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"postid" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"i" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _profile :: Maybe String
_profile = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"STRING" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"profile to use"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"profile" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"P" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _blog :: Maybe String
_blog = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"URL" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"blog XML-RPC url (if omitted, HTML goes to stdout)"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"blog" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"b" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _user :: Maybe String
_user = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"USER" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"user name"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"user" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"u" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _password :: Maybe String
_password = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"PASSWORD" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"password"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"password" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"p" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _title :: Maybe String
_title = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"TITLE" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"post title"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"title" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"t" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _format :: Maybe String
_format = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"FORMAT" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"input format: markdown or rst"
Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"format" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
name String
"f" Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Ann
explicit
, _file :: Maybe String
_file = Maybe String
forall a. Default a => a
def Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= Int -> Ann
argPos Int
0 Maybe String -> Ann -> Maybe String
forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"FILE"
}
BlogLiterately -> Ann -> BlogLiterately
forall val. Data val => val -> Ann -> val
&= String -> Ann
program String
"BlogLiterately"
BlogLiterately -> Ann -> BlogLiterately
forall val. Data val => val -> Ann -> val
&= String -> Ann
summary (String
"BlogLierately v" String -> ShowS
forall a. [a] -> [a] -> [a]
++ Version -> String
showVersion Version
version String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
", (c) Robert Greayer 2008-2010, Brent Yorgey 2012-2013\n" String -> ShowS
forall a. [a] -> [a] -> [a]
++
String
"For help, see http://byorgey.wordpress.com/blogliterately/")