feat: Add property enableEditor

It is enabled by default:

  $ learn-ocaml build
    <=>
  $ learn-ocaml build --enable-editor

unless we run the command line:

  $ learn-ocaml build --disable-editor

Author: erikmd

src/app/learnocaml_config.ml

@@ -9,6 +9,7 @@ class type learnocaml_config = object
   method enableTryocaml: bool Js.optdef_prop
   method enableLessons: bool Js.optdef_prop
   method enableExercises: bool Js.optdef_prop
+  method enableEditor: bool Js.optdef_prop
   method enableToplevel: bool Js.optdef_prop
   method enablePlayground: bool Js.optdef_prop
   method txtLoginWelcome: Js.js_string Js.t Js.optdef_prop

src/app/learnocaml_config.mli

@@ -13,6 +13,7 @@ class type learnocaml_config = object
   method enableTryocaml: bool Js.optdef_prop
   method enableLessons: bool Js.optdef_prop
   method enableExercises: bool Js.optdef_prop
+  method enableEditor: bool Js.optdef_prop
   method enableToplevel: bool Js.optdef_prop
   method enablePlayground: bool Js.optdef_prop
   method txtLoginWelcome: Js.js_string Js.t Js.optdef_prop

src/app/learnocaml_index_main.ml

@@ -694,10 +694,11 @@ let () =
        then [ "playground", ([%i"Playground"], playground_tab token) ] else []) @
       (match token with
        | Some t when Token.is_teacher t ->
-          [ "teacher", ([%i"Teach"], teacher_tab t);
-            "editor", ([%i"Editor"], editor_tab) ]
-       | None ->
-          (* FIXME: could be enabled only if desired at build time *)
+          [ "teacher", ([%i"Teach"], teacher_tab t) ] @
+        if get_opt config##.enableEditor then
+          [ "editor", ([%i"Editor"], editor_tab) ]
+        else []
+       | None when get_opt config##.enableEditor ->
           [ "editor", ([%i"Editor"], editor_tab) ]
        | _ -> [])
     in

src/main/learnocaml_main.ml

@@ -173,6 +173,10 @@ module Args = struct
         "the 'Lessons' tab (enabled by default if the repository contains a \
          $(i,lessons) directory)"
 
+    let editor = enable "editor"
+        "the 'Editor' tab (enabled by default), for users connected with a \
+         teacher token, or for all users if static deployment is used."
+
     let exercises = enable "exercises"
         "the 'Exercises' tab (enabled by default if the repository contains an \
          $(i,exercises) directory)"
@@ -193,6 +197,7 @@ module Args = struct
       contents_dir: string;
       try_ocaml: bool option;
       lessons: bool option;
+      editor: bool option;
       exercises: bool option;
       playground: bool option;
       toplevel: bool option;
@@ -201,10 +206,10 @@ module Args = struct
 
     let builder_conf =
       let apply
-        contents_dir try_ocaml lessons exercises playground toplevel base_url
-        = { contents_dir; try_ocaml; lessons; exercises; playground; toplevel; base_url }
+        contents_dir try_ocaml lessons editor exercises playground toplevel base_url
+        = { contents_dir; try_ocaml; lessons; editor; exercises; playground; toplevel; base_url }
       in
-      Term.(const apply $contents_dir $try_ocaml $lessons $exercises $playground $toplevel $base_url)
+      Term.(const apply $contents_dir $try_ocaml $lessons $editor $exercises $playground $toplevel $base_url)
 
     let repo_conf =
       let apply repo_dir exercises_filtered jobs =
@@ -372,13 +377,15 @@ let main o =
               \  enablePlayground: %b,\n\
               \  enableLessons: %b,\n\
               \  enableExercises: %b,\n\
+              \  enableEditor: %b,\n\
               \  enableToplevel: %b,\n\
               \  baseUrl: \"%s\"\n\
                }\n"
               (tutorials_ret <> None)
               (playground_ret <> None)
               (lessons_ret <> None)
               (exercises_ret <> None)
+              (o.builder.Builder.editor <> Some false)
               (o.builder.Builder.toplevel <> Some false)
               o.builder.Builder.base_url >>= fun () ->
        Lwt.return (tutorials_ret <> Some false && exercises_ret <> Some false)))