tweaks

Author: bobzhang

jscomp/bin/bsb.ml

@@ -10164,6 +10164,18 @@ let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
     Unix.mkdir (cwd//current) 0o777;
     List.iter (fun x -> process_theme_aux env (cwd//current) x ) nodes
 
+let list_themes () =
+  Format.fprintf Format.std_formatter "Available themes: @.";
+  Bsb_templates.root 
+  |>
+  List.iter (fun (x : OCamlRes.Res.node)  ->
+    match  x with 
+    | Dir (x, _) -> 
+      Format.fprintf Format.std_formatter "%s@." x 
+      
+    | _ -> ()
+  ) 
+  
 (* @raise [Not_found] *)  
 let process_themes name theme proj_dir (themes : OCamlRes.Res.node list ) = 
   let env = String_hashtbl.create 0 in 
@@ -10179,6 +10191,7 @@ let process_themes name theme proj_dir (themes : OCamlRes.Res.node list ) =
     | File _ -> false 
   ) themes  with 
   | exception Not_found -> 
+    list_themes ();
     raise (Arg.Bad( "theme " ^ name ^ " not found")  )
   | Dir(_theme, nodes ) -> 
     List.iter (fun node -> process_theme_aux env proj_dir node ) nodes
@@ -10211,17 +10224,6 @@ let init_sample_project ~cwd ~theme name =
   end
 
 
-let list_themes () =
-  Format.fprintf Format.std_formatter "Available themes: @.";
-  Bsb_templates.root 
-  |>
-  List.iter (fun (x : OCamlRes.Res.node)  ->
-    match  x with 
-    | Dir (x, _) -> 
-      Format.fprintf Format.std_formatter "%s@." x 
-      
-    | _ -> ()
-  ) 
 
 end
 module Bsb_unix : sig 

jscomp/bsb/bsb_init.ml

@@ -59,6 +59,18 @@ let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
     Unix.mkdir (cwd//current) 0o777;
     List.iter (fun x -> process_theme_aux env (cwd//current) x ) nodes
 
+let list_themes () =
+  Format.fprintf Format.std_formatter "Available themes: @.";
+  Bsb_templates.root 
+  |>
+  List.iter (fun (x : OCamlRes.Res.node)  ->
+    match  x with 
+    | Dir (x, _) -> 
+      Format.fprintf Format.std_formatter "%s@." x 
+      
+    | _ -> ()
+  ) 
+  
 (* @raise [Not_found] *)  
 let process_themes name theme proj_dir (themes : OCamlRes.Res.node list ) = 
   let env = String_hashtbl.create 0 in 
@@ -74,6 +86,7 @@ let process_themes name theme proj_dir (themes : OCamlRes.Res.node list ) =
     | File _ -> false 
   ) themes  with 
   | exception Not_found -> 
+    list_themes ();
     raise (Arg.Bad( "theme " ^ name ^ " not found")  )
   | Dir(_theme, nodes ) -> 
     List.iter (fun node -> process_theme_aux env proj_dir node ) nodes
@@ -106,14 +119,3 @@ let init_sample_project ~cwd ~theme name =
   end
 
 
-let list_themes () =
-  Format.fprintf Format.std_formatter "Available themes: @.";
-  Bsb_templates.root 
-  |>
-  List.iter (fun (x : OCamlRes.Res.node)  ->
-    match  x with 
-    | Dir (x, _) -> 
-      Format.fprintf Format.std_formatter "%s@." x 
-      
-    | _ -> ()
-  )