No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/lib/bbcode/parser.ex b/lib/bbcode/parser.ex
	index ad1218b..6383f0e 100644
	--- a/lib/bbcode/parser.ex
	+++ b/lib/bbcode/parser.ex
	@@ -1,57 +1,57 @@
	defmodule BBCode.Parser do
	import NimbleParsec

	@moduledoc """
	Parse BBCode into an abstract tree.
	"""

	tag = utf8_string([?a..?z, ?A..?Z, ?0..?9], min: 1)
	text = utf8_string([not: ?[], min: 1)

	start_tag = ignore(string("[")) \|> concat(tag) \|> ignore(string("]"))
	end_tag = ignore(string("[/")) \|> concat(tag) \|> ignore(string("]"))

	defcombinatorp(
	:basic_stanza,
	start_tag
	\|> repeat(lookahead_not(string("[/")) \|> choice([parsec(:basic_stanza), text]))
	\|> wrap()
	\|> concat(end_tag)
	\|> post_traverse(:emit_tree_node)
	)

	defcombinatorp(
	:text_stanza,
	text
	\|> wrap()
	\|> post_traverse(:emit_tree_node)
	)

	defcombinatorp(
	:root_stanza,
	choice([parsec(:basic_stanza), parsec(:text_stanza)])
	)

	defparsecp(
	:parse_tree,
	repeat(lookahead_not(string("[/")) \|> parsec(:root_stanza)) \|> eos()
	)

	defp emit_tree_node(_rest, [tag, [tag, inside]], context, _line, _offset),
	do: {[{String.to_atom(tag), inside}], context}

	defp emit_tree_node(_rest, [tag, [tag \| nodes]], context, _line, _offset),
	do: {[{String.to_atom(tag), nodes}], context}

	defp emit_tree_node(_rest, [[text]], context, _line, _offset),
	do: {[text], context}

	def parse(text) do
	with {:ok, nodes, _, _, _, _} <- parse_tree(text) do
	{:ok, nodes}
	else
	- {:error, e} ->
	+ {:error, e, _, _, _, _} ->
	{:error, e}
	end
	end
	end