fix(web-app): Disable Sync after local save for a static deployment

Author: erikmd

src/app/learnocaml_common.ml

@@ -532,6 +532,7 @@ let sync_exercise token ?answer ?editor id on_sync =
          raise e)
   | None -> set_state_from_save_file save_file;
             handle_serverless ();
+            on_sync ();
             Lwt.return save_file
 
 let string_of_seconds seconds =
@@ -948,15 +949,15 @@ module Editor_button (E : Editor_info) = struct
       ~id_menu
       ~items: [
         H.ul [
-            H.li ~a: [ H.a_onclick (fun _ ->
+            H.li ~a: [ H.a_id (id_menu ^ "-graded"); H.a_onclick (fun _ ->
                 confirm ~title:[%i"Reload latest graded code"]
                   [H.txt [%i"This will replace your code with your last graded code. Are you sure?"]]
                   (fun () ->
                     let graded = Learnocaml_local_storage.(retrieve (graded_solution id)) in
                     Ace.set_contents E.ace graded; Ace.focus E.ace) ; true) ]
               [ H.txt [%i"Reload latest graded code"] ];
 
-            H.li ~a: [ H.a_onclick (fun _ ->
+            H.li ~a: [ H.a_id (id_menu ^ "-draft"); H.a_onclick (fun _ ->
                 confirm ~title:[%i"Reload latest saved draft"]
                   [H.txt [%i"This will replace your code with your last saved draft. Are you sure?"]]
                   (fun () ->
@@ -979,8 +980,23 @@ module Editor_button (E : Editor_info) = struct
              though there is already this code in learnocaml_exercise_main.ml:
              {| if has_server then EB.reload ... else EB.cleanup ... |}. *)
            Lwt.return_unit
-        | Some tok -> fetch_draft_solution tok () >|= fun _save -> ()
-
+        | Some tok ->
+           let found f =
+               match f () with
+               | _val -> true
+               | exception Not_found -> false
+           in
+           fetch_draft_solution tok () >|= fun _save ->
+           let menu_draft = find_component (id_menu ^ "-draft") in
+           Manip.SetCss.display menu_draft
+             (if found (fun () ->
+                     Learnocaml_local_storage.(retrieve (exercise_state id)).Answer.solution)
+              then "" else "none");
+           let menu_graded = find_component (id_menu ^ "-graded") in
+           Manip.SetCss.display menu_graded
+             (if found (fun () ->
+                     Learnocaml_local_storage.(retrieve (graded_solution id)))
+              then "" else "none")
   let download id =
     editor_button
       ~icon: "download" [%i"Download"] @@ fun () ->