558b918 · typeable/pandoc

118-- in response to a command-line option.

119options :: [OptDescr (Opt -> IO Opt)]

120options =

121− [ Option "" ["defaults"]

122− (ReqArg

123− (\arg opt -> runIOorExplode $ do

124− setVerbosity $ optVerbosity opt

125− let fp = if null (takeExtension arg)

126− then addExtension arg "yaml"

127− else arg

128− dataDirs <- liftIO defaultUserDataDirs

129− let fps = case optDataDir opt of

130− Nothing -> (fp : map (</> ("defaults" </> fp))

131− dataDirs)

132− Just dd -> [fp, dd </> "defaults" </> fp]

133− fp' <- fromMaybe fp <$> findFile fps

134− inp <- readFileLazy fp'

135− let defaults = YA.encode1 opt

136− case YA.decode1 (defaults <> inp) of

137− Right (newopts :: Opt) -> return newopts

138− Left (errpos, errmsg) -> throwError $

139− PandocParseError $

140− "Error parsing " ++ fp' ++

141− " (line " ++ show (Y.posLine errpos) ++

142− " column " ++ show (Y.posColumn errpos) ++

143− ")\n" ++ errmsg

144− )

145− "FILE")

146− ""

147−

148− , Option "fr" ["from","read"]

121+ [ Option "fr" ["from","read"]

149 (ReqArg

122 (ReqArg

150 (\arg opt -> return opt { optFrom =

123 (\arg opt -> return opt { optFrom =

151 Just (map toLower arg) })

124 Just (map toLower arg) })

165 "FILE")

138 "FILE")

166 "" -- "Name of output file"

139 "" -- "Name of output file"

167

140

168− , Option "" ["wrap"]

169− (ReqArg

170− (\arg opt ->

171− case arg of

172− "auto" -> return opt{ optWrapText = WrapAuto }

173− "none" -> return opt{ optWrapText = WrapNone }

174− "preserve" -> return opt{ optWrapText = WrapPreserve }

175− _ -> E.throwIO $ PandocOptionError

176− "--wrap must be auto, none, or preserve")

177− "auto|none|preserve")

178− "" -- "Option for wrapping text in output"

179−

180− , Option "s" ["standalone"]

181− (NoArg

182− (\opt -> return opt { optStandalone = True }))

183− "" -- "Include needed header and footer on output"

184−

185− , Option "" ["template"]

186− (ReqArg

187− (\arg opt ->

188− return opt{ optTemplate = Just (normalizePath arg),

189− optStandalone = True })

190− "FILE")

191− "" -- "Use custom template"

192−

193 , Option "" ["data-dir"]

141 , Option "" ["data-dir"]

194 (ReqArg

142 (ReqArg

195 (\arg opt -> return opt { optDataDir =

143 (\arg opt -> return opt { optDataDir =

213 "FILE")

161 "FILE")

214 ""

162 ""

215

163

164+ , Option "" ["defaults"]

165+ (ReqArg

166+ (\arg opt -> runIOorExplode $ do

167+ setVerbosity $ optVerbosity opt

168+ let fp = if null (takeExtension arg)

169+ then addExtension arg "yaml"

170+ else arg

171+ dataDirs <- liftIO defaultUserDataDirs

172+ let fps = case optDataDir opt of

173+ Nothing -> (fp : map (</> ("defaults" </> fp))

174+ dataDirs)

175+ Just dd -> [fp, dd </> "defaults" </> fp]

176+ fp' <- fromMaybe fp <$> findFile fps

177+ inp <- readFileLazy fp'

178+ let defaults = YA.encode1 opt

179+ case YA.decode1 (defaults <> inp) of

180+ Right (newopts :: Opt) -> return newopts

181+ Left (errpos, errmsg) -> throwError $

182+ PandocParseError $

183+ "Error parsing " ++ fp' ++

184+ " (line " ++ show (Y.posLine errpos) ++

185+ " column " ++ show (Y.posColumn errpos) ++

186+ ")\n" ++ errmsg

187+ )

188+ "FILE")

189+ ""

190+

191+ , Option "" ["file-scope"]

192+ (NoArg

193+ (\opt -> return opt { optFileScope = True }))

194+ "" -- "Parse input files before combining"

195+

196+ , Option "s" ["standalone"]

197+ (NoArg

198+ (\opt -> return opt { optStandalone = True }))

199+ "" -- "Include needed header and footer on output"

200+

201+ , Option "" ["template"]

202+ (ReqArg

203+ (\arg opt ->

204+ return opt{ optTemplate = Just (normalizePath arg),

205+ optStandalone = True })

206+ "FILE")

207+ "" -- "Use custom template"

208+

216 , Option "V" ["variable"]

209 , Option "V" ["variable"]

217 (ReqArg

210 (ReqArg

218 (\arg opt -> do

211 (\arg opt -> do

222 "KEY[:VALUE]")

215 "KEY[:VALUE]")

223 ""

216 ""

224

217

218+ , Option "" ["wrap"]

219+ (ReqArg

220+ (\arg opt ->

221+ case arg of

222+ "auto" -> return opt{ optWrapText = WrapAuto }

223+ "none" -> return opt{ optWrapText = WrapNone }

224+ "preserve" -> return opt{ optWrapText = WrapPreserve }

225+ _ -> E.throwIO $ PandocOptionError

226+ "--wrap must be auto, none, or preserve")

227+ "auto|none|preserve")

228+ "" -- "Option for wrapping text in output"

229+

225 , Option "" ["ascii"]

230 , Option "" ["ascii"]

226 (NoArg

231 (NoArg

227 (\opt -> return opt { optAscii = True }))

232 (\opt -> return opt { optAscii = True }))

431 "NAME:VALUE")

436 "NAME:VALUE")

432 ""

437 ""

433

438

434− , Option "" ["file-scope"]

435− (NoArg

436− (\opt -> return opt { optFileScope = True }))

437− "" -- "Parse input files before combining"

438−

439 , Option "" ["abbreviations"]

440 (ReqArg

441 (\arg opt -> return opt { optAbbreviations = Just arg })