Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:26
erlang
1804-edoc-Add-utility-to-convert-html-to-markdo...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 1804-edoc-Add-utility-to-convert-html-to-markdown.patch of Package erlang
From 0e0283d51e78b6e29f6de967ddfd19744183c8b8 Mon Sep 17 00:00:00 2001 From: Lukas Larsson <lukas@erlang.org> Date: Tue, 16 Jan 2024 16:08:37 +0100 Subject: [PATCH 4/4] edoc: Add utility to convert html to markdown --- lib/edoc/src/Makefile | 3 +- lib/edoc/src/edoc.app.src | 5 +- lib/edoc/src/edoc_html_to_markdown.erl | 1225 ++++++++++++++++++++++++ 3 files changed, 1230 insertions(+), 3 deletions(-) create mode 100644 lib/edoc/src/edoc_html_to_markdown.erl diff --git a/lib/edoc/src/Makefile b/lib/edoc/src/Makefile index a455662049..72930776c3 100644 --- a/lib/edoc/src/Makefile +++ b/lib/edoc/src/Makefile @@ -29,7 +29,8 @@ SOURCES= \ edoc.erl edoc_cli.erl edoc_data.erl edoc_doclet.erl edoc_doclet_chunks.erl \ edoc_extract.erl edoc_layout.erl edoc_layout_chunks.erl \ edoc_lib.erl edoc_macros.erl edoc_parser.erl edoc_refs.erl edoc_report.erl \ - edoc_run.erl edoc_scanner.erl edoc_specs.erl edoc_tags.erl edoc_types.erl edoc_wiki.erl + edoc_run.erl edoc_scanner.erl edoc_specs.erl edoc_tags.erl edoc_types.erl edoc_wiki.erl \ + edoc_html_to_markdown.erl OBJECTS=$(SOURCES:%.erl=$(EBIN)/%.$(EMULATOR)) $(APP_TARGET) $(APPUP_TARGET) diff --git a/lib/edoc/src/edoc.app.src b/lib/edoc/src/edoc.app.src index 079be93e9e..567b5b2ebb 100644 --- a/lib/edoc/src/edoc.app.src +++ b/lib/edoc/src/edoc.app.src @@ -10,6 +10,7 @@ edoc_doclet, edoc_doclet_chunks, edoc_extract, + edoc_html_to_markdown, edoc_layout, edoc_layout_chunks, edoc_lib, @@ -26,6 +27,6 @@ {registered,[]}, {applications, [compiler, kernel, stdlib, syntax_tools]}, {env, []}, - {runtime_dependencies, ["xmerl-1.3.7", "syntax_tools-2.0", "stdlib-3.15", - "kernel-3.0", "inets-5.10", "erts-6.0"]} + {runtime_dependencies, ["xmerl-1.3.7", "syntax_tools-2.0", "stdlib-4.0", + "kernel-7.0", "inets-5.10", "erts-11.0"]} ]}. diff --git a/lib/edoc/src/edoc_html_to_markdown.erl b/lib/edoc/src/edoc_html_to_markdown.erl new file mode 100644 index 0000000000..b5b7e7d0ef --- /dev/null +++ b/lib/edoc/src/edoc_html_to_markdown.erl @@ -0,0 +1,1225 @@ +%% -*- erlang -*- +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2020-2023. All Rights Reserved. +%% +%% Licensed under the Apache License, Version 2.0 (the "License"); +%% you may not use this file except in compliance with the License. +%% You may obtain a copy of the License at +%% +%% http://www.apache.org/licenses/LICENSE-2.0 +%% +%% Unless required by applicable law or agreed to in writing, software +%% distributed under the License is distributed on an "AS IS" BASIS, +%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +%% See the License for the specific language governing permissions and +%% limitations under the License. +%% +%% %CopyrightEnd% + +%% Does translation of Erlang XML docs to EEP-48 doc chunks and +%% EEP-48 doc chunks to ex_doc markdown. +%%---------------------------------------------------------------------- +-module(edoc_html_to_markdown). +-feature(maybe_expr, enable). + +-if(?OTP_RELEASE < 27). +-define(NO_DOCS, true). +-endif. + +-ifndef(NO_DOCS). +-moduledoc """ +This module can convert application/html+erlang style documentation to markdown. +""". +-endif. + +-include_lib("kernel/include/eep48.hrl"). + +-export([convert_html/2, convert_xml/2, convert_html/3, convert_xml/3]). + +-ifndef(NO_DOCS). +-doc """ +Convert [`application/html+erlang`](`t:shell_docs:chunk_element/0`) to Markdown +suitable for usage with ExDoc. + +The `Application` and `Module` argument are used to correctly generate links. +""". +-endif. +-spec convert_html(Application :: atom(), + Module :: module(), + Html :: shell_docs:chunk_elements()) -> + unicode:chardata(). +convert_html(Application, Module, Html) when is_atom(Module), is_atom(Application) -> + put(module, Module), + put(application, atom_to_binary(Application)), + render_docs(shell_docs:normalize(Html)). + +%% Internal functions +-ifndef(NO_DOCS). +-doc false. +-endif. +convert_html(Application, Html) when is_atom(Application) -> + put(module, ''), + put(application, atom_to_binary(Application)), + render_docs(shell_docs:normalize(Html)). + +-ifndef(NO_DOCS). +-doc false. +-endif. +convert_xml(Application, Binary) when is_atom(Application) -> + convert_xml(Application, '', Binary). +-ifndef(NO_DOCS). +-doc false. +-endif. +convert_xml(Application, Module, Binary) when is_atom(Application), is_atom(Module) -> + put(application, atom_to_binary(Application)), + case xmerl_sax_parser:stream(Binary, [{event_fun, fun event/3}, + {event_state, initial_state()}]) of + {ok, Tree, _} -> + convert_html(Application, Module, transform(get_dom(Tree), [])) + end. + +%% +%% The code below is taken from shell_docs and modified to emit Markdown instead +%% +-record(config, {docs, current = undefined }). + +-define(ALL_ELEMENTS, [ + a, + p, + 'div', + br, + h1, + h2, + h3, + h4, + h5, + h6, + hr, + i, + b, + em, + strong, + pre, + code, + ul, + ol, + li, + dl, + dt, + dd, + table, + tr, + td +]). +%% inline elements are: +-define(INLINE, [i, b, em, strong, code, a]). +-define(IS_INLINE(ELEM), + (((ELEM) =:= a) orelse ((ELEM) =:= code) orelse + ((ELEM) =:= i) orelse ((ELEM) =:= em) orelse + ((ELEM) =:= b) orelse ((ELEM) =:= strong)) +). +%% non-inline elements are: +-define(BLOCK, [p, 'div', pre, br, ul, ol, li, dl, dt, dd, h1, h2, h3, h4, h5, h6, hr, table, tr, td]). +-define(IS_BLOCK(ELEM), not ?IS_INLINE(ELEM)). +-define(IS_PRE(ELEM), ((ELEM) =:= pre)). +-define(IS_HDR(ELEM), + (((ELEM) =:= h1) orelse ((ELEM) =:= h2) orelse + ((ELEM) =:= h3) orelse ((ELEM) =:= h4) orelse + ((ELEM) =:= h5) orelse ((ELEM) =:= h6))). + + +%%% General rendering functions +render_docs(DocContents) -> + render_docs(DocContents, init_config(#docs_v1{ docs = [] }, #{})). +render_docs(DocContents, #config{} = Config) -> + render_docs(DocContents, 0, Config). +render_docs(DocContents, Ind, D = #config{}) when is_integer(Ind) -> + try + {Doc, _} = trimnl(render_docs(preprocess_docs(DocContents, D), [], 0, Ind, D)), + unicode:characters_to_binary(Doc) + catch throw:R:ST -> + io:format("Failed to render: ~tp~n",[R]), + erlang:raise(throw,R,ST); + E:R:ST -> + io:format("Failed to render: ~tp~n",[DocContents]), + erlang:raise(E,R,ST) + end. + +%% Merge any anchor with its header +%% preprocess_docs([{Hdr,Attr,C},{a,[{id,_}] = Id,[]}|T], D) when ?IS_HDR(Hdr) -> +%% preprocess_docs([{Hdr,Attr ++ Id, C} | T], D); +%% preprocess_docs([{a,[{id,_}] = Id,[]},{Hdr,Attr,C}|T], D) when ?IS_HDR(Hdr) -> +%% preprocess_docs([{Hdr,Attr ++ Id, C} | T], D); +preprocess_docs([{a,[{id,_Id}|_] = AAttr,[]},{Tag,PAttr,C}|T], D) + when Tag =:= pre; Tag =:= em; Tag =:= table; Tag =:= code; Tag =:= img -> + preprocess_docs([{Tag, AAttr ++ PAttr, C}|T], D); +preprocess_docs([{Tag,_,_} = H,{a,[{id,_Id}|_],[]} = A|T],D) when ?IS_HDR(Tag) -> + preprocess_docs([A, H | T], D); +preprocess_docs([{a,[{id,Id}|_],[]} = A,{Tag,_,Name} = H|T],D) when ?IS_HDR(Tag) -> + case string:equal(render_elink_anchor(Id), render_elink_anchor(Name)) of + true -> + preprocess_docs([H|T], D); + false -> + [A | preprocess_docs([H|T], D)] + end; +preprocess_docs([{a,[{id,Id}] = Attr,[]}| T], + #config{ current = {{function,Function,Arity},_,_,_,_} } = D) -> + maybe + %% Remove any anchor that is just function-arity + [FunctionString, ArityString] ?= string:split(Id,"-",all), + Arity ?= catch binary_to_integer(ArityString), + true ?= is_integer(Arity), + Function ?= binary_to_atom(FunctionString), + preprocess_docs(T, D) + else + _ -> + [{a, Attr, []} | preprocess_docs(T, D)] + end; +preprocess_docs([{Tag,Attr,C}|T], D) -> + [{Tag,proplists:delete(ghlink,Attr),preprocess_docs(C, D)}|preprocess_docs(T, D)]; +preprocess_docs([Text|T], D) when is_binary(Text) -> + [Text | preprocess_docs(T,D)]; +preprocess_docs([], _) -> + []. + +-spec init_config(#docs_v1{} | undefined, _) -> #config{}. +init_config(D, Config) -> + #config{docs = D, current = maps:get(current, Config, undefined) }. + +render_docs(Elems, State, Pos, Ind, D) when is_list(Elems) -> + lists:mapfoldl( + fun(Elem, P) -> + render_docs(Elem, State, P, Ind, D) + end, + Pos, + Elems + ); +render_docs(Elem, State, Pos, Ind, D) -> + % io:format("Elem: ~p (~p) (~p,~p)~n",[Elem,State,Pos,Ind]), + render_element(Elem, State, Pos, Ind, D). + +%%% The function is the main element rendering function +%%% +%%% Elem: The current element to process +%%% Stack: A stack of element names to see where we are in the dom +%%% Pos: The current print position on the current line +%%% Ind: How much the text should be indented after a newline +%%% Config: The renderer's configuration +%%% +%%% Each element is responsible for putting new lines AFTER itself +%%% The indents are done either by render_words when a newline happens +%%% or when a new element is to be rendered and Pos < Ind. +%%% +%%% Any block elements (i.e. p, ul, li etc) are responsible for trimming +%%% extra new lines. eg. <ul><li><p>content</p></li></ul> should only +%%% have two newlines at the end. + +%% render_element({IgnoreMe,_,Content}, State, Pos, Ind,D) +%% when IgnoreMe =:= a -> +%% render_docs(Content, State, Pos, Ind,D); + +%% Catch h* before the padding is done as they reset padding +render_element({Tag = h1, Attr, Content}, State, 0 = Pos, _Ind, D) -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["# ", Docs, ial(Attr)], NewPos}); +render_element({Tag = h2, Attr, Content}, State, 0 = Pos, _Ind, D) -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["## ", Docs, ial(Attr)], NewPos}); +render_element({Tag = h3, Attr, Content}, State, Pos, _Ind, D) when Pos =< 2 -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["### ", Docs, ial(Attr)], NewPos}); +render_element({Tag = h4, Attr, Content}, State, Pos, _Ind, D) when Pos =< 2 -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["#### ", Docs, ial(Attr)], NewPos}); +render_element({Tag = h5, Attr, Content}, State, Pos, _Ind, D) when Pos =< 2 -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["##### ", Docs, ial(Attr)], NewPos}); +render_element({Tag = h6, Attr, Content}, State, Pos, _Ind, D) when Pos =< 2 -> + {Docs, NewPos} = render_docs(Content, [Tag|State], Pos, 0, D), + trimnlnl({["###### ", Docs, ial(Attr)], NewPos}); +render_element({pre, _Attr, _Content} = E, State, Pos, Ind, D) when Pos > Ind -> + %% We pad `pre` with two newlines if the previous section did not indent the region. + {Docs, NewPos} = render_element(E, State, 0, Ind, D), + {["\n\n", Docs], NewPos}; +render_element({br, _Attr, _Content}, [td|_State], Pos, _Ind, _D) -> + {" ", Pos + 1}; +render_element({br, _Attr, _Content} = E, State, Pos, Ind, D) when Pos > Ind -> + {Docs, NewPos} = render_element(E, State, 0, Ind, D), + {[" \n", Docs], NewPos}; +render_element({p, _Attr, _Content} = E, State, Pos, Ind, D) when Pos > Ind -> + {Docs, NewPos} = render_element(E, State, 0, Ind, D), + {["\n\n", Docs], NewPos}; +render_element({Elem, _Attr, _Content} = E, State, Pos, Ind, D) when Pos > Ind, ?IS_BLOCK(Elem) -> + {Docs, NewPos} = render_element(E, State, 0, Ind, D), + {["\n", Docs], NewPos}; +render_element({'div', [{class, What}], Content}, State, Pos, Ind, D) -> + Type = case What of + <<"warning">> -> What; + <<"error">> -> What; + <<"note">> -> <<"info">>; + <<"change">> -> <<"info">>; + <<"do">> -> <<"tip">>; + <<"dont">> -> <<"error">> + end, + Title = unicode:characters_to_binary([string:titlecase(What), " ",ial([{class,Type}])]), + {Header, 0} = render_element({h4, [], [Title]}, State, Pos, Ind, D), + {Docs, 0} = render_element({'div', [], Content}, ['div' | State], 0, 0, D), + trimnlnl([pad(Ind - Pos), "> ", string:trim(Header), "\n", + [[pad(Ind), string:trim(["> ",Line]),"\n"] || Line <- string:split([trim(Docs)],"\n",all)]]); +render_element({Tag, _Attr, Content}, State, Pos, Ind, D) when Tag =:= p; Tag =:= 'div' -> + trimnlnl(render_docs(Content, [Tag | State], Pos, Ind, D)); +%% render_element({a, [{id,_Id}|_], []} = A, State, Pos, Ind, D) when Pos > 0 -> +%% {Docs, NewPos} = render_element(A, State, 0, Ind, D), +%% {["\n",Docs], NewPos}; +render_element(Elem, State, Pos, Ind, D) when Pos < Ind -> + {Docs, NewPos} = render_element(Elem, State, Ind, Ind, D), + {[pad(Ind - Pos), Docs], NewPos}; +render_element({a, Ids, []}, _State, Pos, _Ind, _D) -> + trimnl({[["[]()",ial([{id,render_elink_anchor(Id)}])] || {id,Id} <- Ids], Pos}); +render_element({a, Attr, Content}, State, Pos, Ind, D) -> + {Docs, NewPos} = render_docs(Content, [a|State], Pos, Ind, D), + Id = + case proplists:get_all_values(id, Attr) of + [] -> ""; + [IdStr] -> ial([{id,IdStr}]) + end, + {[render_link(Attr, Docs),Id],NewPos}; +render_element({code, _, Content}, [pre | _] = State, Pos, Ind, D) -> + %% When code is within a pre we don't emit any underline + render_docs(Content, [code | State], Pos, Ind, D); +%% Faulty {code,..} generated by diameter containing links. +%% we split them into multiple code segments. +render_element({code,CodeAttr,[Content,{a,AAttr,AContent}|H]}, State, Pos, Ind, D) -> + AttrWithoutId = proplists:delete(id,CodeAttr), + render_docs([{code,AttrWithoutId,[Content]},{a,AAttr,[{code,AttrWithoutId,AContent}]}, + {code,CodeAttr,H}], State, Pos, Ind, D); +render_element({code,_CodeAttr,[]}, _State, Pos, _Ind, _D) -> + {"", Pos}; +render_element({code, Attr, Content}, State, Pos, Ind, D) -> + {Docs, NewPos} = render_docs(Content, [code | State], Pos, Ind, D), + + IsDocumented = fun(What, #docs_v1{ docs = V1Docs }) -> + case lists:keyfind(What, 1, V1Docs) of + {What, _, _, #{}, _} -> + true; + _ -> + false + end + end, + + %% Try to convert code segments that refer to types but don't have a link + %% to have the correct prefix. i.e. <c>byte()</c> should be `t:byte()`. + TypedDocs = + maybe + %% We do not do any transform if we are in an `a` already + true ?= State =:= [] orelse a =/= hd(State), + {ok, T, _} ?= erl_scan:string(unicode:characters_to_list([Docs,"."]), {1, 1}), + {ok, [{call,_,{atom,_,Name},Args}]} ?= + case erl_parse:parse_exprs(T) of + {ok, [{op,A,'/',F,{integer,_,NumArgs}}]} -> + %% Translate any byte/0 to byte() + {ok,[{call,A,F,lists:duplicate(NumArgs,a)}]}; + Else -> + Else + end, + case IsDocumented({function, Name, length(Args)}, D#config.docs) orelse + erl_internal:bif(Name, length(Args)) + of + true when length(Args) =:= 0 -> + lists:concat([io_lib:write_atom(Name),"/",length(Args)]); + true -> + %% This is a function, so return code as is + {lists:concat(["[`",Docs,"`](`",io_lib:write_atom(Name),"/",length(Args),"`)"]), NewPos}; + false when length(Args) =:= 1, + element(1, hd(Args)) =:= integer, + element(3, hd(Args)) =:= 3 -> + %% Is a foo(3) link + try + Name:module_info(), %% Check if module exists + NameStr = io_lib:write_atom(Name), + {["`m:",NameStr,"`"], Pos + string:length(NameStr)} + catch error:undef -> + Docs + end; + false when length(Args) =:= 1, + element(1, hd(Args)) =:= integer, + element(3, hd(Args)) =:= 1 -> + %% Is a foo(1) link, i.e. a seecom + NameStr = io_lib:write_atom(Name), + {["[",NameStr,"](",NameStr,"_cmd.md)"], Pos + string:length(NameStr)}; + false -> + try + %% This is an op type (such as <c>=:=/2</c>) + erl_internal:op_type(Name, length(Args)), + {lists:concat(["[`",Docs,"`](`erlang:",io_lib:write_atom(Name),"/",length(Args),"`)"]), NewPos} + catch error:function_clause -> + case IsDocumented({type,Name,length(Args)}, D#config.docs) orelse + erl_internal:is_type(Name,length(Args)) of + true when length(Args) =:= 0 -> + lists:concat(["t:",io_lib:write_atom(Name),"/",length(Args)]); + true -> + %% This is a type, add type prefix + {lists:concat(["[`",Docs,"`](`t:",io_lib:write_atom(Name),"/",length(Args),"`)"]), NewPos}; + false -> + case IsDocumented({callback,Name,length(Args)}, D#config.docs) of + true -> + %% This is a callback + {lists:concat(["[`",Docs,"`](`c:",io_lib:write_atom(Name),"/",length(Args),"`)"]), NewPos}; + false -> + %% This is not a type, nor a function, nor a callback + Docs + end + end + end + end + else + %% Could be a remote type erlang:message_queue_data() + {ok, [{call,_,{remote,_,{atom,_,RM},{atom,_,RF}},RArgs}]} -> + case code:get_doc(RM) of + {ok, RemoteDocs} -> + case IsDocumented({function,RF,length(RArgs)}, RemoteDocs) of + true -> + %% This is a remote function + Docs; + false -> + case IsDocumented({type,RF,length(RArgs)}, RemoteDocs) of + true -> + %% This is a valid remote type + {lists:concat( + ["[`",Docs,"`](`t:",io_lib:write_atom(RM),":", + io_lib:write_atom(RF),"/",length(RArgs),"`)"]), + NewPos}; + false -> + Docs + end + end; + _ -> + %% Could not fetch docs + Docs + end; + %% Could be a callback Module:init() + {ok, [{call,_,{remote,_,{var,_,_RM},{atom,_,RF}},RArgs}]} -> + case IsDocumented({callback,RF,length(RArgs)}, D#config.docs) of + true -> + %% This is a callback + {lists:concat(["[`",Docs,"`](`c:",io_lib:write_atom(RF),"/",length(RArgs),"`)"]), NewPos}; + false -> + Docs + end; + false -> + %% We are in a link already, maybe strip trailing (1/3) + case re:run(Docs, "^([a-z_]+)\\([13]\\)$",[{capture,all_but_first,list}, unicode]) of + {match,[MaybeMod]} -> + case code:which(list_to_atom(MaybeMod)) of + non_existing -> + Docs; + _ -> + MaybeMod + end; + _ -> + Docs + end; + _ -> + %% Could not parse + Docs + end, + if is_tuple(TypedDocs) -> + TypedDocs; + true -> + case re:run(TypedDocs, "`+", [global,unicode]) of + nomatch -> + {["`", TypedDocs, "`", ial(Attr)], NewPos}; + {match,Matches} -> + LargestMatch = lists:max([Size || [{_, Size}] <- Matches]), + Ticks = lists:duplicate(LargestMatch+1,$`), + {[Ticks," ", TypedDocs, " ",Ticks,ial(Attr)], NewPos} + end + end; +render_element({em, Attr, Content}, State, Pos, Ind, D) -> + render_element({i, Attr, Content}, State, Pos, Ind, D); +render_element({i, Attr, Content}, State, Pos, Ind, D) -> + {Docs, NewPos} = render_docs(Content, [i | State], Pos, Ind, D), + case lists:member(pre, State) of + true -> + {[Docs], NewPos}; + false -> + {["*", Docs, "*",ial(Attr)], NewPos} + end; +render_element({hr, [], []}, _State, Pos, _Ind, _D) -> + {"---\n", Pos}; +render_element({br, [], []}, _State, Pos, _Ind, _D) -> + {"", Pos}; +render_element({strong, Attr, Content}, State, Pos, Ind, D) -> + render_element({b, Attr, Content}, State, Pos, Ind, D); +render_element({b, Attr, Content}, State, Pos, Ind, D) -> + {Docs, NewPos} = render_docs(Content, State, Pos, Ind, D), + case lists:member(pre, State) of + true -> + {[Docs], NewPos}; + false -> + {["__", Docs, "__",ial(Attr)], NewPos} + end; +render_element({pre, [], [{code,Attr,Content}]}, State, Pos, Ind, D) -> + render_element({pre, Attr, Content}, State, Pos, Ind, D); +render_element({pre, Attr, Content}, State, Pos, Ind, D) -> + %% This is a pre without any links or emphasis, so we use markdown + + %% For pre we make sure to respect the newlines in pre + {Docs, _} = trimnl(render_docs(strip_tags(Content), [pre | State], Pos, Ind, D)), + Type = + case unicode:characters_to_binary(proplists:get_value(type, Attr, "text")) of + <<"none">> -> "text"; + <<"text">> -> "text"; + <<"erlang">> -> "erlang"; + <<"erl">> -> "erlang"; + <<"erl-repl">> -> "erlang"; + <<"c">> -> "c" + end, + IdAttr = proplists:delete(type, Attr), + trimnlnl(["```",Type,"\n", pad(Ind), Docs, pad(Ind), "```", + [["\n",pad(Ind),ial(IdAttr)] || IdAttr =/= []]]); +render_element({ul, [{class, <<"types">>}], _Content}, _State, Pos, _Ind, _D) -> + case _D#config.current of + {_, _, _, _, #{ specs := _}} -> + {"", Pos}; + _ -> + {Docs, _} = render_docs(_Content, [types | _State], 0, _Ind, _D), + trimnlnl(Docs) + end; +render_element({li, Attr, Content}, [types | _] = State, Pos, Ind, C) -> + Doc = + case {proplists:get_value(name, Attr), proplists:get_value(class, Attr)} of + {undefined, Class} when Class =:= undefined; Class =:= <<"type">> -> + %% Inline html for types + render_docs(Content ++ [<<" ">>], [type | State], Pos, Ind, C); + {_, <<"description">>} -> + %% Inline html for type descriptions + render_docs(Content ++ [<<" ">>], [type | State], Pos, Ind + 2, C); + {Name, _} -> + %% Try to render from type metadata + case render_type_signature(binary_to_atom(Name), C) of + undefined when Content =:= [] -> + %% Failed and no content, emit place-holder + {["```erlang\n-type ", Name, "() :: term().```"], 0}; + undefined -> + %% Failed with metadata, render the content + render_docs(Content ++ [<<" ">>], [type | State], Pos, Ind, C); + Type -> + %% Emit the erl_pp typespec + {["```erlang\n", Type, "```"], 0} + end + end, + trimnl(Doc); +render_element({ul, [], Content}, State, Pos, Ind, D) -> + trimnlnl(render_docs(Content, [ul | State], Pos, Ind, D)); +render_element({ol, [], Content}, State, Pos, Ind, D) -> + trimnlnl(render_docs(Content, [ol | State], Pos, Ind, D)); +render_element({li, [], Content}, [ul | _] = State, Pos, Ind, D) -> + {Docs, _NewPos} = render_docs(Content, [li | State], Pos + 2, Ind + 2, D), + trimnl(["* ", Docs]); +render_element({li, [], Content}, [ol | _] = State, Pos, Ind, D) -> + {Docs, _NewPos} = render_docs(Content, [li | State], Pos + 2, Ind + 2, D), + trimnl(["1. ", Docs]); +render_element({dl, [], [{dt,DTAttr,DTContent}, {dd,[],DDContent} | Content]}, State, Pos, Ind, D) -> + Since = proplists:get_value(since, DTAttr), + {DTDocs, _DTNewPos} = + render_docs( + [{b, [], DTContent}], + [li, dl | State], + Pos + 2, + Ind + 2, + D), + Ids = [{id,Id} || {id,Id} <- DTAttr], + DTDocsWAnchors = case Ids of + [] -> trim(DTDocs); + Ids -> [trim(DTDocs),ial(Ids)] + end, + {DDDocs, DDNewPos} = render_docs(DDContent, [li, dd | State], 0, Ind + 2, D), + {Docs, NewPos} = + case string:find(DTDocs, "\n") of + nomatch when Since =:= undefined, is_binary(hd(DDContent)) orelse element(1,hd(DDContent)) =/= pre -> + trimnlnl({["* ", trim(DTDocsWAnchors), " - ", string:trim(string:trim(DDDocs, both, "\n"), leading, " ")], DDNewPos}); + _ -> + trimnlnl({["* ", trim(DTDocsWAnchors), [["(Since ",Since,")"] || Since =/= undefined]," \n", + DDDocs], DDNewPos}) + end, + {DLDocs, DLPos} = render_element({dl, [], Content}, State, NewPos, Ind, D), + {[Docs,DLDocs], DLPos}; +render_element({dl, [], []}, _State, Pos, _Ind, _D) -> + {"", Pos}; +render_element({table, Attr, Rows}, State, Pos, Ind, D) -> + [{tr,_,Head} | RowsNoCaption] = [Row || {tr,_,_} = Row <- Rows], + {TableDocs, TablePos} = + trimnl(render_docs([{th, [], Head} | RowsNoCaption], [table|State], Pos, Ind, D)), + {CaptionDocs, CaptionPos} = + render_docs([{em, [], [<<"Table: ">>, C]} || {caption,_,C} <- Rows, not string:equal(C,"")], + [table|State], TablePos, Ind, D), + trimnlnl({[TableDocs, [[pad(Ind),ial(proplists:delete(align,Attr)),"\n\n"] || Attr =/= []], CaptionDocs], CaptionPos}); +render_element({th, [], Head}, State, _Pos, _Ind, D) -> + Header = + [begin {Docs, _} = render_docs(Td, [th|State], 0, 0, D), + {["| ", Docs, " "], ["|-", lists:duplicate(string:length(Docs), $-), "-"]} + end || Td <- Head], + trimnl({[[ Docs || {Docs,_} <- Header ], "|\n", + [ Lines || {_, Lines} <- Header ], "|\n"], 0}); +render_element({tr, [], Row}, State, _Pos, _Ind, D) -> + Rows = + [begin {Docs, _} = render_docs(Td, [tr|State], 0, 0, D), + ["| ", Docs, " "] + end || Td <- Row], + trimnl({[ Rows, "|"], 0}); +render_element({td, _, TDContent}, State, Pos, Ind, D) -> + render_docs(TDContent, [td|State], Pos, Ind, D); +render_element({img,Attr,Content}, _State, Pos, _Ind, _D) -> + Caption = case lists:keyfind(caption, 1, Content) of + false -> ""; + {caption, _, C} -> + C + end, + trimnlnl({["![",Caption,"](",filename:join("assets",filename:basename(proplists:get_value(file,Attr))), + " \"",Caption,"\")",ial(proplists:delete(file, Attr)),"\n"], Pos}); +render_element({quote, [], Content}, State, _Pos, Ind, D) -> + {Docs, 0} = render_element({'div', [], Content}, ['div' | State], 0, 0, D), + trimnlnl([[pad(Ind), "> ",Line,"\n"] || Line <- string:split(trim(Docs),"\n",all)]); +render_element(B, State, Pos, Ind, _D) when is_binary(B) -> + %% Indent the string correctly + Pre = re:replace(B,"\n",nlpad(Ind),[global,unicode]), + + Str = + case State of + [pre | _] -> + Pre; + [code | _] -> + Pre; + [h4 | _] -> + Pre; + _ -> + EscapeChars = [ + "\\", + "`", + "{", + "}", + "!"| + [["|"] || lists:member(table,State)] + ], + lists:foldl( + fun({Pat, Subst}, S) -> re:replace(S, Pat, Subst, [global,unicode]) end, + B, + [{["(", lists:join($|, [["\\", C] || C <- EscapeChars]), ")"], "\\\\\\1"}, + %% [^S\r\n] == All whitespace except \r\n + {"(\n\\s*[0-9]+)\\.([^S\r\n])", "\\1\\\\.\\2"}, %% \n1. -> 1\. + {"^(\\s*[0-9]+)\\.([^S\r\n])", "\\1\\\\.\\2"}, %% ^1. -> 1\. + {"(\n\\s*)\\*([^S\r\n])", "\\1\\\\*\\2"}, %% \n* -> \* + {"^(\\s*)\\*([^S\r\n])", "\\1\\\\*\\2"}, %% ^* -> \* + {"(\n\\s*)\\-([^S\r\n])", "\\1\\\\-\\2"}, %% \n- -> \- + {"^(\\s*)\\-([^S\r\n])", "\\1\\\\-\\2"}, %% ^- -> \- + {"(\n\\s*)\\+([^S\r\n])", "\\1\\\\+\\2"}, %% \n+ -> \+ + {"^(\\s*)\\+([^S\r\n])", "\\1\\\\+\\2"}, %% ^+ -> \+ + {"(\n\\s*)\\#([^S\r\n])", "\\1\\\\#\\2"}, %% \n# -> \# + {"^(\\s*)\\#([^S\r\n])", "\\1\\\\#\\2"}, %% ^# -> \# + {"\\[([^]]+\\])", "\\\\[\\1"}, %% [..] -> \[..] + {"<(http[^>]+>)", "\\\\<\\1"}, %% <..> -> \<..> + {"(\s)_([^_]+_\s)", "\\1\\\\_\\2"}] %% _.._ -> \_.._ + ) + end, + {Str, Pos + lastline(Str)}; +render_element({Tag, Attr, Content}, State, Pos, Ind, D) -> + case lists:member(Tag, ?ALL_ELEMENTS) of + true -> + throw({unhandled_element, Tag, Attr, Content}); + false -> + throw({unknown_element, Tag, Attr, Content}), + ok + end, + render_docs(Content, State, Pos, Ind, D). + + +render_link(Attr, Docs) -> + render_link(Docs, proplists:get_value(rel, Attr), proplists:get_value(href, Attr)). + +render_link(Docs, undefined, Href) when Href =/= undefined -> + %% This types of links are usually from edoc, but could also be + %% <url> from erl_docgen + case Href of + <<"overview-summary.html",Rest/binary>> -> + %% This is an edoc overview anchor + Anchor = lists:last(string:split(Rest,"#")), + ["[", Docs, "](chapter.md#", render_link_anchor(Anchor), ")"]; + Href -> + ["[", Docs, "](", Href, ")"] + end; +render_link(Docs, <<"https://erlang.org/doc/link/seemfa">>, Href) -> + MFA = case string:split(Href, ":") of + [_App, HrefMFA] -> HrefMFA; + [Href] -> Href + end, + [Mod, FA] = case string:split(MFA, "#") of + [<<>>, MFANoAnchor] -> ["", MFANoAnchor]; + [Module, FunArgs] -> + case string:equal(atom_to_list(get(module)), Module) of + true -> + ["",FunArgs]; + false -> + [[Module,":"],FunArgs] + end + end, + {Prefix, Func, Arity} = + case string:split(FA, "/") of + [<<"Module:", F/binary>>, A] -> + {"c:",F, A}; + [<<"Mod:", F/binary>>, A] -> + {"c:",F, A}; + [F, A] -> + {"", F, A} + end, + Link = [Mod,Func,"/",Arity], + case string:equal(Docs, Link) orelse string:equal(Docs, ["`",Link,"`"]) of + true -> + ["`",Prefix,Link,"`"]; + false -> + [ + "[", Docs, "](`",Prefix,Link,"`)" + ] + end; +render_link(Docs, <<"https://erlang.org/doc/link/seetype">>, Href) -> + MFA = case string:split(Href, ":") of + [_App, HrefMFA] -> HrefMFA; + [Href] -> Href + end, + [ModDocs, Mod, FA] = + case string:split(MFA, "#") of + [<<>>, MFANoAnchor] -> [get(module), "", MFANoAnchor]; + [Module, FunArgs] -> + case string:equal(atom_to_list(get(module)), Module) of + true -> + [get(module), "",FunArgs]; + false -> + [binary_to_atom(Module), [Module,":"],FunArgs] + end + end, + {Func, Arity} = + case string:split(FA, "/") of + [FA] -> + {ok, #docs_v1{ docs = Ds}} = code:get_doc(ModDocs), + App = get(application), + case lists:search( + fun(E) -> + case element(1, E) of + {type, Type, _} -> + string:equal(atom_to_list(Type), FA); + _ -> + false + end + end, lists:sort(Ds)) of + {value, {{type,_,TypeArity},_,_,_,_}} -> + {FA, integer_to_list(TypeArity)}; + _Else when App =/= "wx" -> + io:format("Could not find find type: ~p~n", + [[Mod, FA]]), + exit({Mod, FA}); + _Else -> + {FA,"0"} + end; + [F, A] -> + {F, A} + end, + Link = [Mod,Func,"/",Arity], + ZeroLink = [Mod,Func,"()"], + case (string:equal(Docs, Link) orelse string:equal(Docs, ["`",Link,"`"])) orelse + ((string:equal(Docs, ZeroLink) orelse string:equal(Docs, ["`",ZeroLink,"`"])) andalso Arity =:= "0") + of + true -> + ["`t:", Link, "`"]; + false -> + [ + "[", Docs, "](`t:", Link,"`)" + ] + end; +render_link(Docs, <<"https://erlang.org/doc/link/seeerl">>, + Href = <<"erl_docgen:doc_storage">>) -> + ["[",Docs,"](`e:",Href,".md`)"]; +render_link(Docs, <<"https://erlang.org/doc/link/seeerl">>, + <<"erl_docgen:doc_storage.html">>) -> + ["[",Docs,"](`e:erl_docgen:doc_storage.md`)"]; +render_link(Docs, <<"https://erlang.org/doc/link/seeerl">>, + <<"edoc:edoc_cmd">>) -> + ["[",Docs,"](edoc_cmd.md)"]; +render_link(Docs, <<"https://erlang.org/doc/link/seeerl">>, Href) -> + ModAnchor = + case string:split(Href, ":") of + [MA] -> + MA; + [_App, MA] -> + MA + end, + ModFixedAnchor = + case string:split(ModAnchor, "#") of + [ModAnchor] -> + ModAnchor; + [M, A] -> + [M, "#", render_elink_anchor(A)] + end, + DocsNoMan3 = re:replace(Docs,["(`?",ModFixedAnchor,")\\(3\\)(`?)"],"\\1\\2"), + case string:equal(DocsNoMan3, ModFixedAnchor) orelse + string:equal(DocsNoMan3, ["`",ModFixedAnchor,"`"]) of + true -> + ["`m:", ModFixedAnchor, "`"]; + false -> + ["[", Docs, "](`m:", ModFixedAnchor, "`)"] + end; +render_link(Docs, <<"https://erlang.org/doc/link/seeguide">>, Href) -> + CurrentApplication = unicode:characters_to_binary(get(application)), + RemoveSystemApp = fun(<<"system/general_info",_/binary>>) -> + <<"general_info">>; + (<<"system",_/binary>>) -> + <<"system">>; + (Else) -> + Else + end, + case string:lexemes(Href, ":#") of + [App, <<"index">>] when App =:= CurrentApplication -> + ["[", Docs, "](index.html)"]; + [App, <<"index">>] -> + ["[", Docs, "](`e:",RemoveSystemApp(App),":index.html`)"]; + [App, Guide] when App =:= CurrentApplication -> + ["[", Docs, "](",string:lowercase(Guide),".md)"]; + [App, Guide, Anchor] when App =:= CurrentApplication -> + ["[", Docs, "](",string:lowercase(Guide),".md#", + render_elink_anchor(Anchor),")"]; + [App, Guide] -> + ["[", Docs, "](`e:",RemoveSystemApp(App),":",string:lowercase(Guide),".md`)"]; + [App, Guide, Anchor] -> + ["[", Docs, "](`e:",RemoveSystemApp(App),":",string:lowercase(Guide),".md#", + render_elink_anchor(Anchor),"`)"] + end; +render_link(Docs, Rel, Href) + when Rel =:= <<"https://erlang.org/doc/link/seecref">>; + Rel =:= <<"https://erlang.org/doc/link/seecom">>; + Rel =:= <<"https://erlang.org/doc/link/seeapp">> -> + CurrentApplication = unicode:characters_to_binary(get(application)), + Postfix = case Rel of + <<"https://erlang.org/doc/link/seecom">> -> + "_cmd"; + <<"https://erlang.org/doc/link/seeapp">> -> + "_app"; + _ -> + "" + end, + AddPostfix = fun(Guide) -> + string:lowercase( + case string:prefix(string:reverse(Guide), + string:reverse(Postfix)) of + nomatch -> + [Guide,Postfix]; + _ -> + Guide + end) + end, + case string:lexemes(Href, ":#") of + [App, <<"index">>] when App =:= CurrentApplication -> + ["[", Docs, "](index.html)"]; + [App, <<"index">>] -> + ["[", Docs, "](`e:",App,":index.html`)"]; + [App, Guide] when App =:= CurrentApplication -> + ["[", Docs, "](",AddPostfix(Guide),".md)"]; + [App, Guide, Anchor] when App =:= CurrentApplication -> + ["[", Docs, "](",AddPostfix(Guide),".md#", + render_elink_anchor(Anchor),")"]; + [App, Guide] -> + ["[", Docs, "](`e:",App,":",AddPostfix(Guide),".md`)"]; + [App, Guide, Anchor] -> + ["[", Docs, "](`e:",App,":",AddPostfix(Guide),".md#", + render_elink_anchor(Anchor),"`)"] + end; +render_link(Docs, <<"https://erlang.org/doc/link/seefile">>, Href) -> + CurrentApplication = unicode:characters_to_binary(get(application)), + MaybeAddExtension = fun(G) -> + string:lowercase( + case string:equal(filename:extension(G),"") of + true -> [G,".md"]; + _ -> G + end) + end, + case string:lexemes(Href, ":#") of + [App, Guide] when App =:= CurrentApplication, App =:= <<"jinterface">> -> + ["[", Docs, "](assets/",Guide,".html)"]; + [App, Guide, Anchor] when App =:= CurrentApplication, App =:= <<"jinterface">> -> + ["[", Docs, "](assets/",Guide,".html#",render_link_anchor(Anchor),")"]; + [App, Guide] when App =:= CurrentApplication -> + ["[", Docs, "](",MaybeAddExtension(Guide),")"]; + [App, Guide, Anchor] when App =:= CurrentApplication -> + ["[", Docs, "](",MaybeAddExtension(Guide),"#",render_link_anchor(Anchor),")"]; + [App, Guide] -> + ["[", Docs, "](`e:",App,":",MaybeAddExtension(Guide),"`)"]; + [App, Guide, Anchor] -> + ["[", Docs, "](`e:",App,":",MaybeAddExtension(Guide), + "#",render_link_anchor(Anchor),"`)"] + end; +render_link(Docs, _Rel, _Href) -> + Docs. + +render_elink_anchor(Anchor) -> + render_link_anchor( + lists:foldl( + fun({Re,Sub}, Str) -> re:replace(Str, Re, Sub, [global, unicode]) end, + Anchor, + [{" ","-"},{"(--|\\.)","-"}, {"(^-|-$)",""}])). + +render_link_anchor(Anchor) -> + uri_string:quote(Anchor). + +-spec render_type_signature(atom(), #config{}) -> 'undefined' | unicode:chardata(). +render_type_signature(Name, #config{docs = #docs_v1{metadata = #{types := AllTypes}}}) -> + case [Type || Type = {TName, _} <- maps:keys(AllTypes), TName =:= Name] of + [] -> + undefined; + Types -> + [erl_pp:attribute(maps:get(Type, AllTypes)) || Type <- Types] + end. + +ial([]) -> + ""; +ial(Attrs) -> + ["{: ", [[ial(Tag, Value), " "] || {Tag,Value} <- Attrs], "}"]. + +ial(class, Value) -> + [".", maybe_quote_ial(Value)]; +ial(id, Value) -> + ["#", maybe_quote_ial(Value)]; +ial(Tag, Value) -> + [atom_to_list(Tag), "=", maybe_quote_ial(Value)]. + +maybe_quote_ial(Str) -> + case string:find(Str, " ") of + nomatch -> + Str; + _ -> + [$",Str,$"] + end. + +%% Pad N spaces (and possibly pre-prend newline), disabling any ansi formatting while doing so. +-spec pad(non_neg_integer()) -> unicode:chardata(). +pad(N) -> + pad(N, ""). +-spec nlpad(non_neg_integer()) -> unicode:chardata(). +nlpad(N) -> + pad(N, "\n"). +-spec pad(non_neg_integer(), unicode:chardata()) -> unicode:chardata(). +pad(N, Extra) -> + Pad = lists:duplicate(N, [$\s]), + [Extra, Pad]. + +-spec lastline(unicode:chardata()) -> non_neg_integer(). +%% Look for the length of the last line of a string +lastline(Str) -> + LastStr = + case string:find(Str, "\n", trailing) of + nomatch -> + Str; + Match -> + tl(string:next_codepoint(Match)) + end, + string:length(LastStr). + +%% These functions make sure that we trim extra newlines added +%% by the renderer. For example if we do <li><p></p></li> +%% that would add 4 \n at after the last </li>. This is trimmed +%% here to only be 2 \n +-spec trimnlnl(unicode:chardata() | {unicode:chardata(), non_neg_integer()}) -> + {unicode:chardata(), 0}. +trimnlnl({Chars, _Pos}) -> + nl(nl(string:trim(Chars, trailing, "\n"))); +trimnlnl(Chars) -> + nl(nl(string:trim(Chars, trailing, "\n"))). +-spec trimnl(unicode:chardata() | {unicode:chardata(), non_neg_integer()}) -> + {unicode:chardata(), 0}. +trimnl({Chars, _Pos}) -> + nl(string:trim(Chars, trailing, "\n")); +trimnl(Chars) -> + nl(string:trim(Chars, trailing, "\n")). +trim(Chars) -> + string:trim(Chars, trailing, "\n"). +-spec nl(unicode:chardata() | {unicode:chardata(), non_neg_integer()}) -> {unicode:chardata(), 0}. +nl({Chars, _Pos}) -> + nl(Chars); +nl(Chars) -> + {[Chars, "\n"], 0}. + + +%%====================================================================== +%% Records +%%====================================================================== + +%%---------------------------------------------------------------------- +%% State record for the validator +%%---------------------------------------------------------------------- +-record(state, { + tags=[], %% Tag stack + dom=[] %% DOM structure + }). + +%%====================================================================== +%% External functions +%%====================================================================== + +%%---------------------------------------------------------------------- +%% Function: initial_state() -> Result +%% Parameters: +%% Result: +%% Description: +%%---------------------------------------------------------------------- +initial_state() -> + #state{}. + +%%---------------------------------------------------------------------- +%% Function: get_dom(State) -> Result +%% Parameters: +%% Result: +%% Description: +%%---------------------------------------------------------------------- +get_dom(#state{dom=Dom}) -> + Dom. + +%%---------------------------------------------------------------------- +%% Function: event(Event, LineNo, State) -> Result +%% Parameters: +%% Result: +%% Description: +%%---------------------------------------------------------------------- +event(Event, _LineNo, State) -> + build_dom(Event, State). + + +%%====================================================================== +%% Internal functions +%%====================================================================== + +%%---------------------------------------------------------------------- +%% Function : build_dom(Event, State) -> Result +%% Parameters: Event = term() +%% State = #xmerl_sax_simple_dom_state{} +%% Result : #xmerl_sax_simple_dom_state{} | +%% Description: +%%---------------------------------------------------------------------- + +%% Document +%%---------------------------------------------------------------------- +build_dom(startDocument, State) -> + State#state{dom=[startDocument]}; +build_dom(endDocument, + #state{dom=[{Tag, Attributes, Content} |D]} = State) -> + case D of + [startDocument] -> + State#state{dom=[{Tag, Attributes, + lists:reverse(Content)}]}; + [Decl, startDocument] -> + State#state{dom=[Decl, {Tag, Attributes, + lists:reverse(Content)}]}; + _ -> + %% endDocument is also sent by the parser when a fault occur to tell + %% the event receiver that no more input will be sent + State + end; + +%% Element +%%---------------------------------------------------------------------- +build_dom({startElement, _Uri, LocalName, _QName, Attributes}, + #state{tags=T, dom=D} = State) -> + + A = parse_attributes(LocalName, Attributes), + CName = list_to_atom(LocalName), + + State#state{tags=[CName |T], + dom=[{CName, + lists:reverse(A), + [] + } | D]}; +build_dom({endElement, _Uri, LocalName, _QName}, + #state{tags=[_ |T], + dom=[{CName, CAttributes, CContent}, + {PName, PAttributes, PContent} = _Parent | D]} = State) -> + case list_to_atom(LocalName) of + CName -> + SectionDepth = length([E || E <- T, E =:= section]), + MappedCName = + case CName of + title -> + lists:nth(SectionDepth+1,[h1,h2,h3,h4,h5,h6]); + section when SectionDepth > 0 -> + 'div'; + CName -> CName + end, + + State#state{tags=T, + dom=[{PName, PAttributes, + [{MappedCName, CAttributes, + lists:reverse(CContent)} + |PContent] + } | D]}; + _ -> + throw({dom_error, "Got end of element: " ++ LocalName ++ " but expected: " ++ + CName}) + end; + +%% Text +%%---------------------------------------------------------------------- +build_dom({characters, String}, + #state{dom=[{Name, Attributes, Content}| D]} = State) -> + State#state{dom=[{Name, Attributes, [unicode:characters_to_binary(String,utf8)| Content]} | D]}; +build_dom(startCDATA, State) -> + State#state{ tags = [startCDATA | State#state.tags ] }; +build_dom(endCDATA, #state{ tags = [ CData | T ] } = State) -> + CData = startCDATA, + State#state{ tags = T }; + +build_dom({ignorableWhitespace, String}, + #state{dom=[{Name,_,_} = _E|_]} = State) -> + case lists:member(Name, + [p,pre,input,code,quote,warning, + note,change,dont,do,c,b,i,em,strong, + seemfa,seeerl,seetype,seeapp, + seecom,seecref,seefile,seeguide, + tag,item]) of + true -> +% io:format("Keep ign white: ~p ~p~n",[String, _E]), + build_dom({characters, String}, State); + false -> + State + end; + +build_dom({startEntity, _SysId}, State) -> + %% io:format("startEntity:~p~n",[_SysId]), + State; + +%% Default +%%---------------------------------------------------------------------- +build_dom(_E, State) -> + %% io:format("IgnoredEvent: ~p~n",[_E]), + State. + +%%---------------------------------------------------------------------- +%% Function : parse_attributes(ElName, Attributes) -> Result +%% Parameters: +%% Result : +%% Description: +%%---------------------------------------------------------------------- +parse_attributes(ElName, Attributes) -> + parse_attributes(ElName, Attributes, 1, []). + +parse_attributes(_, [], _, Acc) -> + Acc; +parse_attributes(ElName, [{_Uri, _Prefix, LocalName, AttrValue} |As], N, Acc) -> + parse_attributes(ElName, As, N+1, [{list_to_atom(LocalName), AttrValue} |Acc]). + +transform([{section,_,Content}|T],Acc) -> + transform(T,[transform(Content,[])|Acc]); + +%% transform <list><item> to <ul><li> or <ol><li> depending on type attribute +transform([{list,Attr,Content}|T],Acc) -> + transform([transform_list(Attr,Content)|T],Acc); + +%% transform <taglist>(tag,item+)+ to <dl>(dt,item+)+ +transform([{taglist,Attr,Content}|T],Acc) -> + transform([transform_taglist(Attr,Content)|T],Acc); + +%% remove <anno> as it is only used to validate specs vs xml src +transform([{anno,[],Content}|T],Acc) -> + transform([Content|T],Acc); + +%% transform <c> to <code> +transform([{c,[],Content}|T],Acc) -> + transform(T, [{code,[],transform(Content,[])}|Acc]); + +%% transform <code> to <pre><code> +transform([{code,Attr,Content}|T],Acc) -> + transform(T, [{pre,[],[{code,a2b(Attr),transform(Content,[])}]}|Acc]); +%% transform <pre> to <pre><code> +transform([{pre,Attr,Content}|T],Acc) -> + transform(T, [{pre,[],[{code,Attr,transform(Content,[])}]}|Acc]); + +%% transform <marker id="name"/> to <a id="name"/>.... +transform([{marker,Attrs,Content}|T],Acc) -> + transform(T,[{a,a2b(Attrs),transform(Content,[])}|Acc]); +%% transform <url href="external URL"> Content</url> to <a href.... +transform([{url,Attrs,Content}|T],Acc) -> + transform(T,[{a,a2b(Attrs),transform(Content,[])}|Acc]); +%% transform note/change/warning/do/don't to <p class="thing"> +transform([{What,[],Content}|T],Acc) + when What =:= note; What =:= change; What =:= warning; What =:= do; What =:= dont -> + WhatP = {'div',[{class,atom_to_binary(What)}], transform(Content,[])}, + transform(T,[WhatP|Acc]); + +transform([Elem = {See,_Attr,_Content}|T],Acc) + when See =:= seemfa; See =:= seeerl; See =:= seetype; See =:= seeapp; + See =:= seecom; See =:= seecref; See =:= seefile; See =:= seeguide -> + transform([transform_see(Elem)|T],Acc); + +transform([{term,Attr,[]}|T],Acc) -> + transform([list_to_binary(proplists:get_value(id,Attr))|T],Acc); + +transform([{p,Attr,Content}|T],Acc) -> + transform(T,[{p,a2b(Attr),transform(Content,[])}|Acc]); +transform([{'div',Attr,Content}|T],Acc) -> + transform(T,[{'div',a2b(Attr),transform(Content,[])}|Acc]); + +%% Tag and Attr is used as is but Content is transformed +transform([{Tag,Attr,Content}|T],Acc) -> + transform(T,[{Tag,Attr,transform(Content,[])}|Acc]); +transform([Binary|T],Acc) -> + transform(T,[Binary|Acc]); +transform([],Acc) -> + lists:flatten(lists:reverse(Acc)). + +transform_list([{type,"ordered"}],Content) -> + {ol,[],[{li,A2,C2}||{item,A2,C2}<-Content]}; +transform_list(_,Content) -> + {ul,[],[{li,A2,C2}||{item,A2,C2}<-Content]}. + +transform_taglist(Attr,Content) -> + Items = + lists:map(fun({tag,_A,_C}=Tag) -> + transform_tag(Tag); + ({item,A,C}) -> + {dd,A,C} + end, Content), + %% io:format("Items: ~p~n",[Items]), + {dl,Attr,Items}. + +transform_tag({tag, Attr0, C}) -> + Attr1 = lists:map(fun({since,Vsn}) -> + {since, + unicode:characters_to_binary(Vsn)}; + (A) -> + A + end, + Attr0), + {dt,Attr1,C}. + +strip_tags([{_Tag,_Attr,Content}|T]) -> + [Content | strip_tags(T)]; +strip_tags([H|T]) when not is_tuple(H) -> + [H | strip_tags(T)]; +strip_tags([]) -> + []. + +transform_see({See,[{marker,Marker}],Content}) -> + AbsMarker = + case string:split(Marker, "#") of + [AppFile] -> marker_defaults(AppFile); + [AppFile, Anchor] -> [marker_defaults(AppFile), "#", Anchor] + end, + + {a, [{href,iolist_to_binary(AbsMarker)}, + {rel,<<"https://erlang.org/doc/link/",(atom_to_binary(See))/binary>>}], Content}. + +marker_defaults("") -> + [get(application), ":", filename:rootname(unicode:characters_to_list(get(module)))]; +marker_defaults(AppFile) -> + case string:split(AppFile, ":") of + [File] -> [get(application), ":", File]; + [App, File] -> [App, ":", File] + end. + +a2b(Attrs) -> + [{Tag,unicode:characters_to_binary(Value)} || {Tag,Value} <- Attrs]. -- 2.35.3
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
