add keyboard shortcut (Meta + E) to execute code

Author: tsnobip

src/Playground.res

@@ -1149,11 +1149,38 @@ module ControlPanel = {
       | _ => false
       }
 
+      let onKeyDown = event => {
+        switch (
+          event->ReactEvent.Keyboard.metaKey || event->ReactEvent.Keyboard.ctrlKey,
+          event->ReactEvent.Keyboard.key,
+        ) {
+        | (true, "e") => dispatch(RunCode)
+        | _ => ()
+        }
+      }
+
+      React.useEffect(() => {
+        Webapi.Window.addEventListener("keydown", onKeyDown)
+        Some(() => Webapi.Window.removeEventListener("keydown", onKeyDown))
+      }, [])
+
+      let runButtonText = {
+        let userAgent = Webapi.Window.Navigator.userAgent
+        let run = "Run"
+        if userAgent->String.includes("iPhone") || userAgent->String.includes("Android") {
+          run
+        } else if userAgent->String.includes("Mac") {
+          `${run} (⌘ + E)`
+        } else {
+          `${run} (Ctrl + E)`
+        }
+      }
+
       <div className="flex flex-row gap-x-2">
         <ToggleButton checked=autoRun onChange={_ => dispatch(ToggleAutoRun)}>
           {React.string("Auto-run")}
         </ToggleButton>
-        <Button onClick={_ => dispatch(RunCode)}> {React.string("Run")} </Button>
+        <Button onClick={_ => dispatch(RunCode)}> {React.string(runButtonText)} </Button>
         <Button onClick=onFormatClick> {React.string("Format")} </Button>
         <ShareButton actionIndicatorKey />
       </div>

src/bindings/Webapi.res

@@ -62,6 +62,10 @@ module Window = {
   module Location = {
     @scope(("window", "location")) @val external href: string = "href"
   }
+
+  module Navigator = {
+    @scope(("window", "navigator")) @val external userAgent: string = "userAgent"
+  }
 }
 
 module Fetch = {