diff options
Diffstat (limited to 'doc/devdoc/escobar_hilite.erl')
| -rw-r--r-- | doc/devdoc/escobar_hilite.erl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/doc/devdoc/escobar_hilite.erl b/doc/devdoc/escobar_hilite.erl index a6c773975..056b41d45 100644 --- a/doc/devdoc/escobar_hilite.erl +++ b/doc/devdoc/escobar_hilite.erl @@ -296,15 +296,17 @@ mu(application,Node) -> _ -> nil end; +mu(function = Class, {tree, function, _, {function, _, [{tree, clause, _, {clause, Vars, _, _}} | _]}}) -> + dehtml('span', [{class,Class}, {arity,length(Vars)}]); mu(Class,_Node) -> dehtml('span', [{class,Class}]). dehtml(Tag,Atts) -> flatten([$<,str(Tag),$ ,[[str(A),"=\"",str(V),"\" "]||{A,V}<-Atts],$>]). -str(I) when integer(I) -> integer_to_list(I); -str(A) when atom(A) -> atom_to_list(A); -str(L) when list(L) -> L. +str(I) when is_integer(I) -> integer_to_list(I); +str(A) when is_atom(A) -> atom_to_list(A); +str(L) when is_list(L) -> L. is_guard_or_builtin(atom,1) ->guard; is_guard_or_builtin(binary,1) ->guard; |