aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-11-01 16:46:43 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-11-01 16:46:43 -0700
commite10d5b3d5bc4de124549762b1523575c7824ca28 (patch)
tree499293e700253e812afe87f6c5d758b35c43fc5b /src/Text
parent26341c163225c142d19af425af08049cb2eef446 (diff)
downloadpandoc-e10d5b3d5bc4de124549762b1523575c7824ca28.tar.gz
Change 'groff' -> 'roff'.
These formats (man, ms) are not groff-specific.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Pretty.hs2
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs4
-rw-r--r--src/Text/Pandoc/Writers/Man.hs6
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs8
-rw-r--r--src/Text/Pandoc/Writers/Roff.hs4
5 files changed, 12 insertions, 12 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index f0990c1f8..ec1d36a68 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -432,7 +432,7 @@ nowrap doc = Doc $ mapWithIndex replaceSpace $ unDoc doc
replaceSpace _ x = x
-- | Content to print only if it comes at the beginning of a line,
--- to be used e.g. for escaping line-initial `.` in groff man.
+-- to be used e.g. for escaping line-initial `.` in roff man.
afterBreak :: String -> Doc
afterBreak s = Doc $ singleton (AfterBreak s)
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs
index 1283cf4e1..cd8ec94bd 100644
--- a/src/Text/Pandoc/Readers/Roff.hs
+++ b/src/Text/Pandoc/Readers/Roff.hs
@@ -29,7 +29,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Stability : WIP
Portability : portable
-Tokenizer for groff formats (man, ms).
+Tokenizer for roff formats (man, ms).
-}
module Text.Pandoc.Readers.Roff
( FontSpec(..)
@@ -705,7 +705,7 @@ linePartsToString = mconcat . map go
go (RoffStr s) = s
go _ = mempty
--- | Tokenize a string as a sequence of groff tokens.
+-- | Tokenize a string as a sequence of roff tokens.
lexRoff :: PandocMonad m => SourcePos -> T.Text -> m RoffTokens
lexRoff pos txt = do
eithertokens <- readWithM (do setPosition pos
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 29e4aa718..6572760c3 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -27,7 +27,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Stability : alpha
Portability : portable
-Conversion of 'Pandoc' documents to groff man page format.
+Conversion of 'Pandoc' documents to roff man page format.
-}
module Text.Pandoc.Writers.Man ( writeMan) where
@@ -55,7 +55,7 @@ writeMan :: PandocMonad m => WriterOptions -> Pandoc -> m Text
writeMan opts document =
evalStateT (pandocToMan opts document) defaultWriterState
--- | Return groff man representation of document.
+-- | Return roff man representation of document.
pandocToMan :: PandocMonad m => WriterOptions -> Pandoc -> StateT WriterState m Text
pandocToMan opts (Pandoc meta blocks) = do
let colwidth = if writerWrapText opts == WrapAuto
@@ -116,7 +116,7 @@ noteToMan opts num note = do
return $ marker $$ contents
-- We split inline lists into sentences, and print one sentence per
--- line. groff/troff treats the line-ending period differently.
+-- line. roff treats the line-ending period differently.
-- See http://code.google.com/p/pandoc/issues/detail?id=148.
-- | Convert Pandoc block element to man.
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 6abc4bf93..202cb91ad 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -26,7 +26,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Stability : alpha
Portability : portable
-Conversion of 'Pandoc' documents to groff ms format.
+Conversion of 'Pandoc' documents to roff ms format.
TODO:
@@ -69,7 +69,7 @@ writeMs :: PandocMonad m => WriterOptions -> Pandoc -> m Text
writeMs opts document =
evalStateT (pandocToMs opts document) defaultWriterState
--- | Return groff ms representation of document.
+-- | Return roff ms representation of document.
pandocToMs :: PandocMonad m => WriterOptions -> Pandoc -> MS m Text
pandocToMs opts (Pandoc meta blocks) = do
let colwidth = if writerWrapText opts == WrapAuto
@@ -123,7 +123,7 @@ toSmallCaps opts (c:cs)
| otherwise = escapeStr opts [c] ++ toSmallCaps opts cs
-- We split inline lists into sentences, and print one sentence per
--- line. groff/troff treats the line-ending period differently.
+-- line. roff treats the line-ending period differently.
-- See http://code.google.com/p/pandoc/issues/detail?id=148.
blockToMs :: PandocMonad m
@@ -372,7 +372,7 @@ inlineToMs opts (Strong lst) =
inlineToMs opts (Strikeout lst) = do
contents <- inlineListToMs opts lst
-- we use grey color instead of strikeout, which seems quite
- -- hard to do in groff for arbitrary bits of text
+ -- hard to do in roff for arbitrary bits of text
return $ text "\\m[strikecolor]" <> contents <> text "\\m[]"
inlineToMs opts (Superscript lst) = do
contents <- inlineListToMs opts lst
diff --git a/src/Text/Pandoc/Writers/Roff.hs b/src/Text/Pandoc/Writers/Roff.hs
index 7bf0c5ee9..2650229f2 100644
--- a/src/Text/Pandoc/Writers/Roff.hs
+++ b/src/Text/Pandoc/Writers/Roff.hs
@@ -26,7 +26,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Stability : alpha
Portability : portable
-Common functions for groff writers (man, ms).
+Common functions for roff writers (man, ms).
-}
module Text.Pandoc.Writers.Roff (
@@ -89,7 +89,7 @@ combiningAccentsMap = Map.fromList combiningAccents
essentialEscapes :: Map.Map Char String
essentialEscapes = Map.fromList standardEscapes
--- | Escape special characters for groff.
+-- | Escape special characters for roff.
escapeString :: EscapeMode -> String -> String
escapeString _ [] = []
escapeString escapeMode ('\n':'.':xs) =