File 0671-shell_docs-Render-nbsp-as-sp-when-encoding... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0671-shell_docs-Render-nbsp-as-sp-when-encoding-to-latin1.patch of Package erlang (Revision 1e94e72e3f4fed1ca9cd5c2fd777ed02)

Currently displaying revision 1e94e72e3f4fed1ca9cd5c2fd777ed02 , Show latest

From dc7fc8c281c7c496e1ce8d76a175e74cf5e3f9cc Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Wed, 22 Sep 2021 09:21:32 +0200
Subject: [PATCH] shell_docs: Render nbsp as sp when encoding to latin1

---
 lib/stdlib/src/shell_docs.erl        | 43 +++++++++++++++++++---------
 lib/stdlib/test/shell_docs_SUITE.erl | 21 ++++++++------
 2 files changed, 42 insertions(+), 22 deletions(-)

diff --git a/lib/stdlib/src/shell_docs.erl b/lib/stdlib/src/shell_docs.erl
index 5aaeedde52..f4be20e26c 100644
--- a/lib/stdlib/src/shell_docs.erl
+++ b/lib/stdlib/src/shell_docs.erl
@@ -590,6 +590,8 @@ normalize_format(Docs, #docs_v1{ format = <<"text/", _/binary>> }) when is_binar
 %%% Functions for rendering reference documentation
 render_function([], _D, _Config) ->
     {error,function_missing};
+render_function(FDocs, D, Config) when is_map(Config) ->
+    render_function(FDocs, D, init_config(D, Config));
 render_function(FDocs, #docs_v1{ docs = Docs } = D, Config) ->
     Grouping =
         lists:foldl(
@@ -602,7 +604,7 @@ render_function(FDocs, #docs_v1{ docs = Docs } = D, Config) ->
           end, #{}, lists:sort(FDocs)),
     lists:map(
       fun({{_,F,A} = Group,Members}) ->
-              Signatures = lists:flatmap(fun render_signature/1,lists:reverse(Members)),
+              Signatures = lists:flatmap(fun render_signature/1, lists:reverse(Members)),
               case lists:search(fun({_,_,_,Doc,_}) ->
                                         Doc =/= #{}
                                 end, Members) of
@@ -625,7 +627,7 @@ render_function(FDocs, #docs_v1{ docs = Docs } = D, Config) ->
 render_signature({{_Type,_F,_A},_Anno,_Sigs,_Docs,#{ signature := Specs } = Meta}) ->
     lists:flatmap(
       fun(ASTSpec) ->
-              PPSpec = erl_pp:attribute(ASTSpec,[{encoding,utf8}]),
+              PPSpec = erl_pp:attribute(ASTSpec,[{encoding,unicode}]),
               Spec =
                   case ASTSpec of
                       {_Attribute, _Line, opaque, _} ->
@@ -672,6 +674,8 @@ render_headers_and_docs(Headers, DocContents, #config{} = Config) ->
      render_docs(DocContents, 2, Config)].
 
 %%% Functions for rendering type/callback documentation
+render_signature_listing(Module, Type, D, Config) when is_map(Config) ->
+    render_signature_listing(Module, Type, D, init_config(D, Config));
 render_signature_listing(Module, Type, #docs_v1{ docs = Docs } = D, Config) ->
     Slogan = [{h2,[],[<<"\t",(atom_to_binary(Module))/binary>>]},{br,[],[]}],
     case lists:filter(fun({{T, _, _},_Anno,_Sig,_Doc,_Meta}) ->
@@ -705,7 +709,7 @@ render_typecb_docs(Docs, D, Config) ->
 %%% General rendering functions
 render_docs(DocContents, #config{} = Config) ->
     render_docs(DocContents, 0, Config).
-render_docs(DocContents, D, Config) when is_map(Config) ->
+render_docs(DocContents, D, Config) when is_record(D, docs_v1) ->
     render_docs(DocContents, 0, init_config(D, Config));
 render_docs(DocContents, Ind, D = #config{}) when is_integer(Ind) ->
     init_ansi(D),
@@ -716,7 +720,7 @@ render_docs(DocContents, Ind, D = #config{}) when is_integer(Ind) ->
         clean_ansi()
     end.
 
-init_config(D, Config) ->
+init_config(D, Config) when is_map(Config) ->
     DefaultOpts = io:getopts(),
     DefaultEncoding = proplists:get_value(encoding, DefaultOpts, latin1),
     Columns =
@@ -735,7 +739,9 @@ init_config(D, Config) ->
              encoding = maps:get(encoding, Config, DefaultEncoding),
              ansi = maps:get(ansi, Config, undefined),
              columns = Columns
-           }.
+           };
+init_config(D, Config) ->
+    Config#config{ docs = D }.
 
 render_docs(Elems,State,Pos,Ind,D) when is_list(Elems) ->
     lists:mapfoldl(fun(Elem,P) ->
@@ -873,13 +879,13 @@ render_element({dt,_,Content},[dl | _] = State,Pos,Ind,D) ->
 render_element({dd,_,Content},[dl | _] = State,Pos,Ind,D) ->
     trimnlnl(render_docs(Content, [li | State], Pos, Ind + 2, D));
 
-render_element(B, State, Pos, Ind,#config{ columns = Cols }) when is_binary(B) ->
+render_element(B, State, Pos, Ind, D) when is_binary(B) ->
     case lists:member(pre,State) of
         true ->
             Pre = string:replace(B,"\n",[nlpad(Ind)],all),
             {Pre, Pos + lastline(Pre)};
         _ ->
-            render_words(split_to_words(B),State,Pos,Ind,[[]],Cols)
+            render_words(split_to_words(B),State,Pos,Ind,[[]],D)
     end;
 
 render_element({Tag,Attr,Content}, State, Pos, Ind,D) ->
@@ -892,33 +898,42 @@ render_element({Tag,Attr,Content}, State, Pos, Ind,D) ->
     end,
     render_docs(Content, State, Pos, Ind,D).
 
-render_words(Words,[_,types|State],Pos,Ind,Acc,Cols) ->
+render_words(Words,[_,types|State],Pos,Ind,Acc,D) ->
     %% When we render words and are in the types->type state we indent
     %% the extra lines two additional spaces to make it look nice
-    render_words(Words,State,Pos,Ind+2,Acc,Cols);
-render_words([Word|T],State,Pos,Ind,Acc,Cols) when is_binary(Word) ->
+    render_words(Words,State,Pos,Ind+2,Acc,D);
+render_words([UnicodeWord|T],State,Pos,Ind,Acc,#config{ columns = Cols } = D)
+  when is_binary(UnicodeWord) ->
+    Word = translate(UnicodeWord, D),
     WordLength = string:length(Word),
     NewPos = WordLength + Pos,
     %% We do not want to add a newline if this word is only a punctuation
-    IsPunct = is_tuple(re:run(Word,"^\\W$",[unicode])),
+    IsPunct = re:run(Word,"^\\W$",[unicode]) =/= nomatch,
+
     if
         NewPos > (Cols - 10 - Ind), Word =/= <<>>, not IsPunct ->
             %% Word does not fit, time to add a newline and also pad to Indent level
-            render_words(T,State,WordLength+Ind+1,Ind,[[[nlpad(Ind), Word]]|Acc],Cols);
+            render_words(T,State,WordLength+Ind+1,Ind,[[[nlpad(Ind), Word]]|Acc],D);
         true ->
             %% Word does fit on line
             [Line | LineAcc] = Acc,
             %% Add + 1 to length for space
             NewPosSpc = NewPos+1,
-            render_words(T,State,NewPosSpc,Ind,[[Word|Line]|LineAcc],Cols)
+            render_words(T,State,NewPosSpc,Ind,[[Word|Line]|LineAcc],D)
     end;
-render_words([],_State,Pos,_Ind,Acc,_Cols) ->
+render_words([],_State,Pos,_Ind,Acc,_D) ->
     Lines = lists:map(fun(RevLine) ->
                             Line = lists:reverse(RevLine),
                             lists:join($ ,Line)
                       end,lists:reverse(Acc)),
     {iolist_to_binary(Lines), Pos}.
 
+%% If the encoding is not unicode, we translate all nbsp to sp
+translate(UnicodeWord, #config{ encoding = unicode }) ->
+    UnicodeWord;
+translate(UnicodeWord, #config{ encoding = latin1 }) ->
+    string:replace(UnicodeWord, [160], " ", all).
+
 render_type_signature(Name, #config{ docs = #docs_v1{ metadata = #{ types := AllTypes }}}) ->
     case [Type || Type = {TName,_} <- maps:keys(AllTypes), TName =:= Name] of
         [] ->
diff --git a/lib/stdlib/test/shell_docs_SUITE.erl b/lib/stdlib/test/shell_docs_SUITE.erl
index 06a564620e..4f83fb7047 100644
--- a/lib/stdlib/test/shell_docs_SUITE.erl
+++ b/lib/stdlib/test/shell_docs_SUITE.erl
@@ -63,25 +63,30 @@ render(_Config) ->
               lists:foreach(
                 fun(Config) ->
                         try
-                            shell_docs:render(Mod, D, Config),
-                            shell_docs:render_type(Mod, D, Config),
-                            shell_docs:render_callback(Mod, D, Config),
+                            E = fun({error,_}) ->
+                                        ok;
+                                   (Doc) ->
+                                        unicode:characters_to_binary(Doc)
+                                end,
+                            E(shell_docs:render(Mod, D, Config)),
+                            E(shell_docs:render_type(Mod, D, Config)),
+                            E(shell_docs:render_callback(Mod, D, Config)),
                             [try
-                                 shell_docs:render(Mod, F, A, D, Config)
+                                 E(shell_docs:render(Mod, F, A, D, Config))
                              catch _E:R:ST ->
                                      io:format("Failed to render ~p:~p/~p~n~p:~p~n~p~n",
                                                [Mod,F,A,R,ST,shell_docs:get_doc(Mod,F,A)]),
                                      erlang:raise(error,R,ST)
                              end || {F,A} <- Mod:module_info(exports)],
                             [try
-                                 shell_docs:render_type(Mod, T, A, D, Config)
+                                 E(shell_docs:render_type(Mod, T, A, D, Config))
                              catch _E:R:ST ->
                                      io:format("Failed to render type ~p:~p/~p~n~p:~p~n~p~n",
                                                [Mod,T,A,R,ST,shell_docs:get_type_doc(Mod,T,A)]),
                                      erlang:raise(error,R,ST)
                              end || {{type,T,A},_,_,_,_} <- Docs],
                             [try
-                                 shell_docs:render_callback(Mod, T, A, D, Config)
+                                 E(shell_docs:render_callback(Mod, T, A, D, Config))
                              catch _E:R:ST ->
                                      io:format("Failed to render callback ~p:~p/~p~n~p:~p~n~p~n",
                                                [Mod,T,A,R,ST,shell_docs:get_callback_doc(Mod,T,A)]),
@@ -96,8 +101,8 @@ render_smoke(_Config) ->
                       #{ ansi => true },
                       #{ columns => 5 },
                       #{ columns => 150 },
-                      #{ encoding => unicode},
-                      #{ encoding => latin1}])
+                      #{ encoding => unicode },
+                      #{ encoding => latin1 }])
       end),
     ok.
 
-- 
2.31.1

Places

File 0671-shell_docs-Render-nbsp-as-sp-when-encoding-to-latin1.patch of Package erlang (Revision 1e94e72e3f4fed1ca9cd5c2fd777ed02)

Places