Where is the Code for the Writer -t plain?

[freddieventura]

I am trying to do my own Pandoc Writer with Lua Syntax, and I am finding it hard to replicate the behaviour of -t plain

I checked many times but I cant figure out whichone is the file for the code that is used for the Writer of -t plain , there must be one cause a simple writter like thisone.

-- WRITER BOILTERPLATE
-----------------------------------------------------------
Writer = pandoc.scaffolding.Writer

-- First we define all the Block elements Handlers
-- https://hackage.haskell.org/package/pandoc-types-1.12.4.7/docs/Text-Pandoc-Definition.html#t:Block
--  • data Block
--      □ = Plain [Inline], Para [Inline], LineBlock [[Inline]] , CodeBlock Attr Text , RawBlock Format Text , BlockQuote [Block] , OrderedList ListAttributes [[Block]] , BulletList [[Block]] , DefinitionList [([Inline], [[Block]])] , Header Int Attr [Inline] , HorizontalRule , Table Attr Caption [ColSpec] TableHead [TableBody] TableFoot , Figure Attr Caption [Block] , Div Attr [Block]

Writer.Block.Plain = function(el)
  return Writer.Inlines(el.content)
end

Writer.Block.Para = function(el)
  return Writer.Inlines(el.content) .. "\n\n"
end

Writer.Block.LineBlock = function(el)
  local lines = {}
  for _, line in ipairs(el.content) do
    table.insert(lines, Writer.Inlines(line))
  end
  return table.concat(lines, "\n") .. "\n\n"
end

Writer.Block.CodeBlock = function(el)
  return el.text .. "\n\n"
end

Writer.Block.RawBlock = function(el)
  return el.text
end

Writer.Block.BlockQuote = function(el)
  return Writer.Blocks(el.content)
end

Writer.Block.OrderedList = function(el)
  local items = {}
  for _, item in ipairs(el.content) do
    table.insert(items, Writer.Blocks(item))
  end
  return table.concat(items, "\n")
end

--Writer.Block.BulletList = function(el)
--  local items = {}
--  for _, item in ipairs(el.content) do
--    table.insert(items, Writer.Blocks(item))
--  end
--
--for key, value in ipairs(items) do -- DEBUGGING
--    print('key : ' .. key)           -- DEBUGGING
--    print('value : ' .. value)       -- DEBUGGING
--end                                  -- DEBUGGING
--
--  return table.concat(items, "\n")
--end

Writer.Block.BulletList = function (bl, opts)
  local result = ""
  for i, item in ipairs(bl.content) do
    result = result .. "- " .. Writer.Blocks(item)
  end
  return result
end

Writer.Block.DefinitionList = function(el)
  local items = {}
  for _, pair in ipairs(el.content) do
    table.insert(items, Writer.Inlines(pair[1]))
    for _, block in ipairs(pair[2]) do
      table.insert(items, Writer.Blocks(block))
    end
  end
  return table.concat(items, "\n")
end

Writer.Block.Header = function(el)
  return Writer.Inlines(el.content) .. "\n\n"
end

Writer.Block.HorizontalRule = function()
  return "-----\n\n"
end

Writer.Block.Table = function(el)
  return Writer.Blocks(el.caption.long) .. "\n\n"
end

Writer.Block.Figure = function(el)
  return Writer.Blocks(el.content)
end

Writer.Block.Div = function(el)
  return Writer.Blocks(el.content)
end

-- Then we define all the Inline Objects handlers
--  • data Inline
--      □ = Str Text , Emph [Inline] , Underline [Inline] , Strong [Inline] , Strikeout [Inline] , Superscript [Inline] , Subscript [Inline] , SmallCaps [Inline] , Quoted QuoteType [Inline] , Cite [Citation] [Inline] , Code Attr Text , Space , SoftBreak , LineBreak , Math MathType Text , RawInline Format Text , Link Attr [Inline] Target , Image Attr [Inline] Target , Note [Block] , Span Attr [Inline]



Writer.Inline.Str = function(el)
  return el.text
end

Writer.Inline.Emph = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Underline = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Strong = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Strikeout = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Superscript = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Subscript = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.SmallCaps = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Quoted = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Cite = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Code = function(el)
  return el.text
end

Writer.Inline.Space = function()
  return " "
end

Writer.Inline.SoftBreak = function()
  return " "
end

Writer.Inline.LineBreak = function()
  return "\n"
end

Writer.Inline.Math = function(el)
  return el.text
end

Writer.Inline.RawInline = function(el)
  return el.text
end

Writer.Inline.Link = function(el)
  return Writer.Inlines(el.content)
end

Writer.Inline.Image = function(el)
  return el.src
end

Writer.Inline.Note = function(el)
  return Writer.Blocks(el.content)
end

Writer.Inline.Span = function(el)
  return Writer.Inlines(el.content)
end
-- EOF EOF EOF WRITER BOILTERPLATE
-----------------------------------------------------------


Writer.Inline.Image = function(el)
  return ''
end

Is not Writting well the

's

[silby]

The plain writer is secretly a variation of the Markdown writer:

pandoc/src/Text/Pandoc/Writers/Markdown.hs

Lines 68 to 72 in 5f4c4ae

	-- | Convert Pandoc to plain text (like markdown, but without links,
	-- pictures, or inline formatting).
	writePlain :: PandocMonad m => WriterOptions -> Pandoc -> m Text
	writePlain opts document =
	evalMD (pandocToMarkdown opts document) def{ envVariant = PlainText } def

For example, when writing out blockquotes, the markdown writer prefixes them with > by default but the plain text mode just uses spaces:

pandoc/src/Text/Pandoc/Writers/Markdown.hs

Lines 593 to 602 in 5f4c4ae

	blockToMarkdown' opts (BlockQuote blocks) = do
	variant <- asks envVariant
	-- if we're writing literate haskell, put a space before the bird tracks
	-- so they won't be interpreted as lhs...
	let leader
	| isEnabled Ext_literate_haskell opts = " > "
	| variant == PlainText = " "
	| otherwise = "> "
	contents <- blockListToMarkdown opts blocks
	return $ text leader <> prefixed leader contents <> blankline