Packages

Earmark is a pure-Elixir Markdown converter. It is intended to be used as a library (just call Earmark.as_html), but can also be used as a command-line tool (run mix escript.build first). Output generation is pluggable.

Retired package: Deprecated - Earmark is no longer maintained. Migrate to a replacement, for example MDEx (https://hex.pm/packages/mdex).
Security advisory: This version has known vulnerabilities. View advisories

Current section

Files

Jump to
earmark lib earmark_parser ast renderer ast_walker.ex
Raw

lib/earmark_parser/ast/renderer/ast_walker.ex

defmodule Earmark.Parser.Ast.Renderer.AstWalker do
@moduledoc false
def walk(anything, fun, ignore_map_keys \\ false), do: _walk(anything, fun, ignore_map_keys, false)
def walk_ast(ast, fun), do: _walk_ast(ast, fun, [])
defp _walk(ast, fun, ignore_map_keys, child_of_map)
defp _walk([], _fun, _ignore_map_keys, _child_of_map), do: []
defp _walk(list, fun, ignore_map_keys, _child_of_map) when is_list(list) do
Enum.map(list, &(_walk(&1, fun, ignore_map_keys, false)))
end
defp _walk(map, fun, ignore_map_keys, _child_of_map) when is_map(map) do
map
|> Enum.into(%{}, &(_walk(&1, fun, ignore_map_keys, true)))
end
defp _walk(tuple, fun, ignore_map_keys, child_of_map) when is_tuple(tuple) do
if child_of_map && ignore_map_keys do
_walk_map_element(tuple, fun, ignore_map_keys)
else
tuple
|> Tuple.to_list
|> Enum.map(&(_walk(&1, fun, ignore_map_keys, false)))
|> List.to_tuple
end
end
defp _walk(ele, fun, _ignore_map_keys, _child_of_map), do: fun.(ele)
defp _walk_map_element({key, value}, fun, ignore_map_keys) do
{key, _walk(value, fun, ignore_map_keys, false)}
end
defp _walk_ast(ast, fun, res)
defp _walk_ast([], _fun, res), do: Enum.reverse(res)
defp _walk_ast(stringy, fun, res) when is_binary(stringy), do: _walk_ast([stringy], fun, res)
defp _walk_ast([stringy|rest], fun, res) when is_binary(stringy) do
res1 =
case fun.(stringy) do
[] -> res
[_|_]=trans -> List.flatten([Enum.reverse(trans)|res])
stringy1 -> [stringy1|res]
end
_walk_ast(rest, fun, res1)
end
defp _walk_ast([{tag, atts, content, meta}|rest], fun, res) do
_walk_ast(rest, fun, [{tag, atts, _walk_ast(content, fun, []), meta}|res])
end
defp _walk_ast([list|rest], fun, res) when is_list(list) do
_walk_ast(rest, fun, [_walk_ast(list, fun, [])|res])
end
end