adding alpha create room capability

frontend/src/main/scala/industries/sunshine/planningpoker/JoinRoomComponent.scala

@@ -76,6 +76,32 @@ object JoinRoomComponent {
             }
         } --> responseReceived
     )
+    val newRoomButton = button(
+      "Create new room",
+      onClick
+        .mapTo {
+          (roomNameVar.now(), roomPassVar.now(), nicknameVar.now(), nicknamePass.now())
+        }
+        .flatMap { case (roomName, roomPass, nickname, nicknamePass) =>
+          Fetch
+            .post(
+              "/api/create-room",
+              body = Requests.LogIn(
+                roomName,
+                nickname,
+                roomPass,
+                nicknamePass
+              )
+            )
+            .text.map { response =>
+              if (response.ok) {
+                loggedIn.onNext(true)
+                response
+              } else response
+            }
+        } --> responseReceived
+    )
+
 
     div(
       className := "flex flex-col h-full justify-center",
@@ -85,6 +111,7 @@ object JoinRoomComponent {
       nameInput(nicknameVar, "Enter your nickname:"),
       passInput(nicknamePass, "nickname pass:"),
       submitButton,
+      newRoomButton,
       div(
         div(
           code("received:")