feat: image for button

Author: Louis Tariot

src/app/learnocaml_index_main.ml

@@ -642,8 +642,8 @@ let set_string_translations () =
   List.iter
     (fun (el, text) ->
        (Tyxml_js.To_dom.of_input el)##.placeholder := Js.string text)
-    placeholder_translations
-
+    placeholder_translations;
+  Manip.SetHTMLElement.title (find_component "learnocaml-main-feedback") [%i"Send Feedback"]
 
 let () =
   Lwt.async_exception_hook := begin fun e ->

static/css/learnocaml_main.css

@@ -174,7 +174,7 @@ body {
     background: linear-gradient(to bottom, #bbb 0%, #888 100%);
     border-radius: 5px;
     padding: 5px;
-    width: 22px;
+    width: 18px;
     margin-top: 10px;
     margin-left: 17px;
     box-shadow: 0 0 10px 2px rgba(0,0,0,0.4);
@@ -234,7 +234,7 @@ body {
     color: #fff;
     border-radius: 5px;
     padding: 5px;
-    width: 22px;
+    width: 18px;
     margin-top: 10px;
     margin-left: 10px;
     box-shadow: 0 0 10px 2px rgba(0,0,0,0.4);