No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/lib/bbcode/generator.ex b/lib/bbcode/generator.ex
	index a8af6ce..0b9d831 100644
	--- a/lib/bbcode/generator.ex
	+++ b/lib/bbcode/generator.ex
	@@ -1,40 +1,44 @@
	defmodule BBCode.Generator do
	@moduledoc """
	Generate HTML from BBCode fragments in AST form.
	"""

	defp start_tag(tagname), do: Enum.join(["<", tagname, ">"])
	defp end_tag(tagname), do: Enum.join(["</", tagname, ">"])

	defp simple_tag(tagname, subtree) do
	{:ok, text} = reduce_subtree(subtree)
	{:ok, [start_tag(tagname), text, end_tag(tagname)] \|> Enum.join()}
	end

	defp reduce_subtree({:b, subtree}), do: simple_tag("strong", subtree)
	defp reduce_subtree({:i, subtree}), do: simple_tag("em", subtree)
	defp reduce_subtree({:u, subtree}), do: simple_tag("u", subtree)
	defp reduce_subtree({:s, subtree}), do: simple_tag("s", subtree)
	+ defp reduce_subtree({:ul, subtree}), do: simple_tag("ul", subtree)
	+ defp reduce_subtree({:ol, subtree}), do: simple_tag("ol", subtree)
	+ defp reduce_subtree({:li, subtree}), do: simple_tag("li", subtree)
	+ defp reduce_subtree({:code, subtree}), do: simple_tag("pre", subtree)

	defp reduce_subtree(text_node) when is_binary(text_node),
	do: {:ok, text_node}

	defp reduce_subtree(tree), do: {:error, "unknown input #{inspect(tree)}"}

	def to_html(tree) do
	with {:ok, new_tree} <-
	Enum.reduce_while(tree, {:ok, []}, fn x, {:ok, acc} ->
	with {:ok, new_tree} <- reduce_subtree(x) do
	{:cont, {:ok, acc ++ [new_tree]}}
	else
	{:error, e} ->
	{:halt, {:error, e}}
	end
	end) do
	{:ok, Enum.join(new_tree)}
	else
	{:error, e} ->
	{:error, e}
	end
	end
	end