aboutsummaryrefslogtreecommitdiffstats
path: root/lib/docbuilder/src/docb_tr_application2html.erl
diff options
context:
space:
mode:
authorKostis Sagonas <kostis@cs.ntua.gr>2010-02-07 20:17:07 +0200
committerRaimo Niskanen <raimo@erlang.org>2010-06-07 13:44:26 +0200
commit3647defb6f32d471355017967bdebb83b5c6224c (patch)
treea42892eff94fd3a9fae3a0885aa1a68424d568f7 /lib/docbuilder/src/docb_tr_application2html.erl
parent39e5ca57147c08502806f873c107c77e197a78ab (diff)
downloadotp-3647defb6f32d471355017967bdebb83b5c6224c.tar.gz
otp-3647defb6f32d471355017967bdebb83b5c6224c.tar.bz2
otp-3647defb6f32d471355017967bdebb83b5c6224c.zip
docbuilder: Clean up as suggested by tidier
Diffstat (limited to 'lib/docbuilder/src/docb_tr_application2html.erl')
-rw-r--r--lib/docbuilder/src/docb_tr_application2html.erl12
1 files changed, 5 insertions, 7 deletions
diff --git a/lib/docbuilder/src/docb_tr_application2html.erl b/lib/docbuilder/src/docb_tr_application2html.erl
index 4084cfe6ba..d8cb214d0a 100644
--- a/lib/docbuilder/src/docb_tr_application2html.erl
+++ b/lib/docbuilder/src/docb_tr_application2html.erl
@@ -119,8 +119,8 @@ transform(File, {application, _Attrs, [Header|Rest]}, Opts0) ->
case docb_main:parse1("fascicules", Opts0) of
{ok, Parse} ->
FascData = get_fasc_data(Parse),
- case lists:keysearch(File, 1, FascData) of
- {value, {_, _, "YES", _}} ->
+ case lists:keyfind(File, 1, FascData) of
+ {_, _, "YES", _} ->
OrigFile =
docb_util:outfile(File++"_frame",
".html", Opts0),
@@ -167,7 +167,7 @@ concat_files([File|Rest], Body, Opts) ->
%% Remove the reference manual header
[{Ref, [], [_Hdr| NewBody]}] = NewParse,
RefParse = [{Ref, [], NewBody}],
- lists:append(Body, concat_files(Rest, RefParse, Opts));
+ Body ++ concat_files(Rest, RefParse, Opts);
errors ->
errors
end;
@@ -216,7 +216,7 @@ make_toc([{lib, Attrs, More}|Rest]) ->
make_toc([{com, Attrs, More}|Rest]) ->
[{com, Attrs, More}|make_toc(Rest)];
make_toc([{_Tag, _Attrs, More}|Rest]) ->
- lists:append(make_toc(More), make_toc(Rest)).
+ make_toc(More) ++ make_toc(Rest).
rule([module|_], {_, [File], _}) ->
{"<small><a target=\"document\" href=\"" ++
@@ -280,9 +280,7 @@ get_fasc_data({fascicules, _, Fascs}) ->
Fascs).
get_avals(Atts) ->
- lists:map(fun(Tuple) ->
- element(3, Tuple) end,
- Atts).
+ [element(3, Tuple) || Tuple <- Atts].
get_pc_text([{pcdata, _, Text}]) ->
Text.