f6dfb63 · typeable/pandoc

git.iko.soy/typeable/pandoc

Spellcheck comments

commitf6dfb632ff38cc9dd5156297959ce8028fd766ea authorAlexander Krotov <ilabdsf@gmail.com> dateMon 2 Jul 2018, 18:30 (8 years ago) parent732e66d

22 files changed+26−26

compare with master

unifiedsplit

src/Text/Pandoc/Class.hs+2−2

@@ -882,10 +882,10 @@ adjustImagePath _ _ x = x

882882-- of things that would normally be obtained through IO.

883883data PureState = PureState { stStdGen :: StdGen

884884 , stWord8Store :: [Word8] -- should be

885− -- inifinite,

885+ -- infinite,

886886 -- i.e. [1..]

887887 , stUniqStore :: [Int] -- should be

888− -- inifinite and

888+ -- infinite and

889889 -- contain every

890890 -- element at most

891891 -- once, e.g. [1..]

src/Text/Pandoc/Lua/Init.hs+1−1

@@ -55,7 +55,7 @@ import qualified Foreign.Lua.Module.Text as Lua

5555import qualified Text.Pandoc.Definition as Pandoc

5656

5757-- | Run the lua interpreter, using pandoc's default way of environment

58−-- initalization.

58+-- initialization.

5959runPandocLua :: Lua a -> PandocIO (Either LuaException a)

6060runPandocLua luaOp = do

6161 luaPkgParams <- luaPackageParams

src/Text/Pandoc/Parsing.hs+1−1

@@ -1289,7 +1289,7 @@ type SubstTable = M.Map Key Inlines

12891289-- unique identifier, and update the list of identifiers

12901290-- in state. Issue a warning if an explicit identifier

12911291-- is encountered that duplicates an earlier identifier

1292−-- (explict or automatically generated).

1292+-- (explicit or automatically generated).

12931293registerHeader :: (Stream s m a, HasReaderOptions st,

12941294 HasHeaderMap st, HasLogMessages st, HasIdentifierList st)

12951295 => Attr -> Inlines -> ParserT s st m Attr

src/Text/Pandoc/Readers/Creole.hs+1−1

@@ -2,7 +2,7 @@

22{-

5− partly based on all the other readers, especialy the work by

5+ partly based on all the other readers, especially the work by

66 John MacFarlane <jgm@berkeley.edu> and

77 Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>

88 all bugs are solely created by me.

src/Text/Pandoc/Readers/Docx/Parse.hs+1−1

@@ -785,7 +785,7 @@ So we do this in a number of steps. If we encounter the fldchar begin

785785tag, we start open a fldchar state variable (see state above). We add

786786the instrtext to it as FieldInfo. Then we close that and start adding

787787the runs when we get to separate. Then when we get to end, we produce

788−the Field type with approriate FieldInfo and Runs.

788+the Field type with appropriate FieldInfo and Runs.

789789-}

790790elemToParPart ns element

791791 | isElem ns "w" "r" element

src/Text/Pandoc/Readers/EPUB.hs+1−1

@@ -73,7 +73,7 @@ readEPUB opts bytes = case toArchiveOrFail bytes of

7373-- runEPUB :: Except PandocError a -> Either PandocError a

7474-- runEPUB = runExcept

7575

76−-- Note that internal reference are aggresively normalised so that all ids

76+-- Note that internal reference are aggressively normalised so that all ids

7777-- are of the form "filename#id"

7878--

7979archiveToEPUB :: (PandocMonad m) => ReaderOptions -> Archive -> m Pandoc

src/Text/Pandoc/Readers/HTML.hs+2−2

@@ -852,7 +852,7 @@ pInTags' tagtype tagtest parser = try $ do

852852 pSatisfy (\t -> t ~== TagOpen tagtype [] && tagtest t)

853853 mconcat <$> manyTill parser (pCloses tagtype <|> eof)

854854

855−-- parses p, preceeded by an optional opening tag

855+-- parses p, preceded by an optional opening tag

856856-- and followed by an optional closing tags

857857pOptInTag :: PandocMonad m => Text -> TagParser m a -> TagParser m a

858858pOptInTag tagtype p = try $ do

@@ -1281,7 +1281,7 @@ instance HasLastStrPosition HTMLState where

12811281 setLastStrPos s st = st {parserState = setLastStrPos s (parserState st)}

12821282 getLastStrPos = getLastStrPos . parserState

12831283

1284−-- For now we need a special verison here; the one in Shared has String type

1284+-- For now we need a special version here; the one in Shared has String type

12851285renderTags' :: [Tag Text] -> Text

12861286renderTags' = renderTagsOptions

12871287 renderOptions{ optMinimize = matchTags ["hr", "br", "img",

src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs+2−2

@@ -100,7 +100,7 @@ liftA fun a = a >>^ fun

100100-- | Duplicate a value to subsequently feed it into different arrows.

101101-- Can almost always be replaced with '(&&&)', 'keepingTheValue',

102102-- or even '(|||)'.

103−-- Aequivalent to

103+-- Equivalent to

104104-- > returnA &&& returnA

105105duplicate :: (Arrow a) => a b (b,b)

106106duplicate = arr $ join (,)

@@ -114,7 +114,7 @@ infixr 2 >>%

114114

115115

116116-- | Duplicate a value and apply an arrow to the second instance.

117−-- Aequivalent to

117+-- Equivalent to

118118-- > \a -> duplicate >>> second a

119119-- or

120120-- > \a -> returnA &&& a

src/Text/Pandoc/Readers/Odt/Generic/Namespaces.hs+1−1

@@ -50,7 +50,7 @@ class (Eq nsID, Ord nsID) => NameSpaceID nsID where

5050 getNamespaceID :: NameSpaceIRI

5151 -> NameSpaceIRIs nsID

5252 -> Maybe (NameSpaceIRIs nsID, nsID)

53− -- | Given a namespace id, lookup its IRI. May be overriden for performance.

53+ -- | Given a namespace id, lookup its IRI. May be overridden for performance.

5454 getIRI :: nsID

5555 -> NameSpaceIRIs nsID

5656 -> Maybe NameSpaceIRI

src/Text/Pandoc/Readers/Odt/Generic/Utils.hs+2−2

@@ -61,7 +61,7 @@ import qualified Data.Foldable as F (Foldable, foldr)

6161import Data.Maybe

6262

6363

64−-- | Aequivalent to

64+-- | Equivalent to

6565-- > foldr (.) id

6666-- where '(.)' are 'id' are the ones from "Control.Category"

6767-- and 'foldr' is the one from "Data.Foldable".

@@ -72,7 +72,7 @@ import Data.Maybe

7272composition :: (Category cat, F.Foldable f) => f (cat a a) -> cat a a

7373composition = F.foldr (<<<) Cat.id

7474

75−-- | Aequivalent to

75+-- | Equivalent to

7676-- > foldr (flip (.)) id

7777-- where '(.)' are 'id' are the ones from "Control.Category"

7878-- and 'foldr' is the one from "Data.Foldable".

src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs+1−1

@@ -261,7 +261,7 @@ convertingExtraState v a = withSubStateF setVAsExtraState modifyWithA

261261-- The resulting converter even behaves like an identity converter on the

262262-- value level.

263263--

264−-- Aequivalent to

264+-- Equivalent to

265265--

266266-- > \v x a -> convertingExtraState v (returnV x >>> a)

267267--

src/Text/Pandoc/Readers/Odt/StyleReader.hs+1−1

@@ -342,7 +342,7 @@ instance Read XslUnit where

342342 readsPrec _ _ = []

343343

344344-- | Rough conversion of measures into millimetres.

345−-- Pixels and em's are actually implementation dependant/relative measures,

345+-- Pixels and em's are actually implementation dependent/relative measures,

346346-- so I could not really easily calculate anything exact here even if I wanted.

347347-- But I do not care about exactness right now, as I only use measures

348348-- to determine if a paragraph is "indented" or not.

src/Text/Pandoc/Readers/Org/Blocks.hs+1−1

@@ -743,7 +743,7 @@ latexEnd envName = try $

743743

744744

745745--

746−-- Footnote defintions

746+-- Footnote definitions

747747--

748748noteBlock :: PandocMonad m => OrgParser m (F Blocks)

749749noteBlock = try $ do

src/Text/Pandoc/Readers/Org/Inlines.hs+1−1

@@ -510,7 +510,7 @@ anchor = try $ do

510510 <* string ">>"

511511 <* skipSpaces

512512

513−-- | Replace every char but [a-zA-Z0-9_.-:] with a hypen '-'. This mirrors

513+-- | Replace every char but [a-zA-Z0-9_.-:] with a hyphen '-'. This mirrors

514514-- the org function @org-export-solidify-link-text@.

515515

516516solidify :: String -> String

src/Text/Pandoc/Readers/Textile.hs+1−1

@@ -540,7 +540,7 @@ wordChunk = try $ do

540540str :: PandocMonad m => ParserT [Char] ParserState m Inlines

541541str = do

542542 baseStr <- hyphenedWords

543− -- RedCloth compliance : if parsed word is uppercase and immediatly

543+ -- RedCloth compliance : if parsed word is uppercase and immediately

544544 -- followed by parens, parens content is unconditionally word acronym

545545 fullStr <- option baseStr $ try $ do

546546 guard $ all isUpper baseStr

src/Text/Pandoc/Readers/TikiWiki.hs+1−1

@@ -167,7 +167,7 @@ table = try $ do

167167 -- return $ B.simpleTable (headers rows) $ trace ("rows: " ++ (show rows)) rows

168168 return $B.simpleTable (headers rows) rows

169169 where

170− -- The headers are as many empty srings as the number of columns

170+ -- The headers are as many empty strings as the number of columns

171171 -- in the first row

172172 headers rows = map (B.plain . B.str) $replicate (length $ head rows) ""

173173

src/Text/Pandoc/Readers/Txt2Tags.hs+1−1

@@ -198,7 +198,7 @@ para = try $ do

198198commentBlock :: T2T Blocks

199199commentBlock = try (blockMarkupArea anyLine (const mempty) "%%%") <|> comment

200200

201−-- Seperator and Strong line treated the same

201+-- Separator and Strong line treated the same

202202hrule :: T2T Blocks

203203hrule = try $ do

204204 spaces

src/Text/Pandoc/Shared.hs+1−1

@@ -712,7 +712,7 @@ schemes = Set.fromList

712712 , "ws", "wss", "wtai", "wyciwyg", "xcon", "xcon-userid", "xfire"

713713 , "xmlrpc.beep", "xmlrpc.beeps", "xmpp", "xri", "ymsgr", "z39.50", "z39.50r"

714714 , "z39.50s"

715− -- Inofficial schemes

715+ -- Unofficial schemes

716716 , "doi", "isbn", "javascript", "pmid"

717717 ]

718718

src/Text/Pandoc/Writers/Docx.hs+1−1

@@ -230,7 +230,7 @@ writeDocx opts doc@(Pandoc meta _) = do

230230 let mbAttrMarLeft = (elAttribs <$> mbpgmar) >>= lookupAttrBy ((=="left") . qName)

231231 let mbAttrMarRight = (elAttribs <$> mbpgmar) >>= lookupAttrBy ((=="right") . qName)

232232

233− -- Get the avaible area (converting the size and the margins to int and

233+ -- Get the available area (converting the size and the margins to int and

234234 -- doing the difference

235235 let pgContentWidth = (-) <$> (read <$> mbAttrSzWidth ::Maybe Integer)

236236 <*> (

src/Text/Pandoc/Writers/ICML.hs+1−1

@@ -153,7 +153,7 @@ writeICML opts (Pandoc meta blocks) = do

153153 Nothing -> return main

154154 Just tpl -> renderTemplate' tpl context

155155

156−-- | Auxilary functions for parStylesToDoc and charStylesToDoc.

156+-- | Auxiliary functions for parStylesToDoc and charStylesToDoc.

157157contains :: String -> (String, (String, String)) -> [(String, String)]

158158contains s rule =

159159 [snd rule | (fst rule) `isInfixOf` s]

src/Text/Pandoc/Writers/Org.hs+1−1

@@ -266,7 +266,7 @@ orderedListItemToOrg marker items = do

266266 contents <- blockListToOrg items

267267 return $ hang (length marker + 1) (text marker <> space) (contents <> cr)

268268

269−-- | Convert defintion list item (label, list of blocks) to Org.

269+-- | Convert definition list item (label, list of blocks) to Org.

270270definitionListItemToOrg :: PandocMonad m

271271 => ([Inline], [[Block]]) -> Org m Doc

272272definitionListItemToOrg (label, defs) = do

src/Text/Pandoc/Writers/RST.hs+1−1

@@ -333,7 +333,7 @@ orderedListItemToRST marker items = do

333333 let marker' = marker ++ " "

334334 return $ hang (length marker') (text marker') $ contents <> cr

335335

336−-- | Convert defintion list item (label, list of blocks) to RST.

336+-- | Convert definition list item (label, list of blocks) to RST.

337337definitionListItemToRST :: PandocMonad m => ([Inline], [[Block]]) -> RST m Doc

338338definitionListItemToRST (label, defs) = do

339339 label' <- inlineListToRST label