hide internal docs

Author: bobzhang

jscomp/bsb/bsb_arg.ml

@@ -70,29 +70,31 @@
          max_col := String.length key
      );
    Ext_list.iter speclist (fun (key,_,doc) -> 
-       buf +> "  ";
-       buf +> key ; 
-       buf +> (String.make (!max_col - String.length key + 2 ) ' ');
-       let cur = ref 0 in 
-       let doc_length = String.length doc in 
-       while !cur < doc_length do 
-         match String.index_from_opt doc !cur '\n' with 
-         | None -> 
-           if !cur <> 0 then begin 
-             buf +>  "\n";
-             buf +> String.make (!max_col + 4) ' ' ;
-           end;
-           buf +> String.sub doc !cur (String.length doc - !cur );
-           cur := doc_length
-         | Some new_line_pos -> 
-           if !cur <> 0 then begin 
-             buf +>  "\n";
-             buf +> String.make (!max_col + 4) ' ' ;
-           end;
-           buf +> String.sub doc !cur (new_line_pos - !cur );
-           cur := new_line_pos + 1
-       done ;
-       buf +> "\n"
+       if not (Ext_string.starts_with doc "*internal*") then begin 
+         buf +> "  ";
+         buf +> key ; 
+         buf +> (String.make (!max_col - String.length key + 2 ) ' ');
+         let cur = ref 0 in 
+         let doc_length = String.length doc in 
+         while !cur < doc_length do 
+           match String.index_from_opt doc !cur '\n' with 
+           | None -> 
+             if !cur <> 0 then begin 
+               buf +>  "\n";
+               buf +> String.make (!max_col + 4) ' ' ;
+             end;
+             buf +> String.sub doc !cur (String.length doc - !cur );
+             cur := doc_length
+           | Some new_line_pos -> 
+             if !cur <> 0 then begin 
+               buf +>  "\n";
+               buf +> String.make (!max_col + 4) ' ' ;
+             end;
+             buf +> String.sub doc !cur (new_line_pos - !cur );
+             cur := new_line_pos + 1
+         done ;
+         buf +> "\n"
+       end
      )
  ;;
 

jscomp/main/bsb_main.ml

@@ -71,7 +71,8 @@ let bsb_main_flags : (string * spec * string) list=
     https://github.com/bucklescript/bucklescript/tree/master/jscomp/bsb/templates";
 
     "-regen", unit_set_spec force_regenerate,
-    "(internal) Always regenerate build.ninja no matter bsconfig.json is changed or not (for debugging purpose)";
+    "*internal* \n\
+    Always regenerate build.ninja no matter bsconfig.json is changed or not";
     "-themes", call_spec Bsb_theme_init.list_themes,
     "List all available themes";
     "-where",