From 5e00a8080d013c6449081fd4178c71df44d965b4 Mon Sep 17 00:00:00 2001
From: Yehowshua Immanuel <yehowshua@joyofhardware.com>
Date: Thu, 2 Jan 2025 10:57:13 -0500
Subject: [PATCH] things still work before major re-write

---
 README.md                     | 10 ++++------
 backend/src/landing.rs        |  7 +++++++
 backend/src/main.rs           | 19 +++++++++++++++----
 frontend/src/Page/Landing.elm | 29 ++++++++++++++++++-----------
 4 files changed, 44 insertions(+), 21 deletions(-)
 create mode 100644 backend/src/landing.rs

diff --git a/README.md b/README.md
index 302d371..3c8868c 100644
--- a/README.md
+++ b/README.md
@@ -21,12 +21,10 @@ Now open `http://127.0.0.1:8080` in your browser.
  - [ ] `EventHandlers.onMessage` should inject successfully decoded message into
        Msg type directly...
  - [ ] Run `uglify` twice as per [this link](https://github.com/rtfeldman/elm-spa-example/tree/master?tab=readme-ov-file#production-build)
- - [ ] Clicking in upper left should go to landing page.
+ - [ ] JSONify backend code for all send/receive
+ - [ ] Backend should only communicate over websocket
+ - [ ] Close websocket after 15s of no response(from frontend) to websocket pings
+ - [ ] Implement dark mode
  - [ ] Add GPLV3 License
  - [ ] Add `make release` target that is nix ready...
- - [ ] Determine if `src/Body.elm` or pages in `src/Page` should have subscription functions
- - [ ] use actix backend that maps most root requests to serve `actix_file::Files`
- - [ ] Submit to slack for feedback...
- - [ ] Refactor into router page
- - [ ] Handle back-navigation
  - [ ] Add `default.nix`
diff --git a/backend/src/landing.rs b/backend/src/landing.rs
new file mode 100644
index 0000000..eb7af31
--- /dev/null
+++ b/backend/src/landing.rs
@@ -0,0 +1,7 @@
+use serde::{Deserialize, Serialize};
+
+
+#[derive(Serialize)]
+pub struct Landing {
+    pub time : String
+}
diff --git a/backend/src/main.rs b/backend/src/main.rs
index d69d44c..56bb0ed 100644
--- a/backend/src/main.rs
+++ b/backend/src/main.rs
@@ -1,10 +1,12 @@
+use actix::prelude::*;
 use actix_files::Files;
-use actix_web::{web, App, HttpServer, Responder, HttpRequest, HttpResponse, Error};
+use actix_web::{web, App, Error, HttpRequest, HttpResponse, HttpServer, Responder};
 use actix_web_actors::ws;
-use log::{info};
+use log::info;
 use serde::{Deserialize, Serialize};
 use std::{fs, time::Duration};
-use actix::prelude::*;
+
+mod landing;
 
 /// Greeting API structures
 #[derive(Serialize, Deserialize)]
@@ -17,6 +19,11 @@ struct GreetingResponse {
     message: String,
 }
 
+#[derive(Serialize)]
+enum ToFrontend {
+    Landing(landing::Landing)
+}
+
 async fn greet(req: web::Json<GreetingRequest>) -> impl Responder {
     info!("Received request to /api/greet with name: {}", req.name);
     let message = format!("Hello, {}!", req.name);
@@ -41,7 +48,11 @@ impl Actor for MyWebSocket {
 }
 
 impl StreamHandler<Result<ws::Message, ws::ProtocolError>> for MyWebSocket {
-    fn handle(&mut self, msg: Result<ws::Message, ws::ProtocolError>, ctx: &mut ws::WebsocketContext<Self>) {
+    fn handle(
+        &mut self,
+        msg: Result<ws::Message, ws::ProtocolError>,
+        ctx: &mut ws::WebsocketContext<Self>,
+    ) {
         if let Ok(ws::Message::Ping(msg)) = msg {
             ctx.pong(&msg);
         }
diff --git a/frontend/src/Page/Landing.elm b/frontend/src/Page/Landing.elm
index fbfbcd4..1b2f048 100644
--- a/frontend/src/Page/Landing.elm
+++ b/frontend/src/Page/Landing.elm
@@ -14,10 +14,12 @@ import Json.Decode as Decode
 type alias Model = {
     time : String
     }
+type alias Landing = {
+    time : String
+    }
 type Msg
-    = SocketOpened
-    | SocketClosed
-    | SocketMessage String
+    = ToFrontend Landing
+    | Time String
     | NoOp
 
 init : () -> Model
@@ -34,25 +36,30 @@ decodeMessage message =
             Ok decoded -> decoded
             Err err -> "failed to decode" ++ message
 
+decodeMessageOld : String -> String
+decodeMessageOld message =
+    let
+        decodedMessage = Decode.decodeString (Decode.field "time" Decode.string) message
+    in
+        case decodedMessage of
+            Ok decoded -> decoded
+            Err err -> "failed to decode" ++ message
+
 subscriptions : Model -> Sub Msg
 subscriptions model =
     Ports.socketOnEvent
         (Websockets.EventHandlers
-            (\_ -> SocketOpened)
-            (\_ -> SocketClosed)
             (\_ -> NoOp)
-            (\message -> SocketMessage message.data)
+            (\_ -> NoOp)
+            (\_ -> NoOp)
+            (\message -> (message.data |> decodeMessageOld |> Time))
             (\_ -> NoOp)
         )
 
 update : Msg -> Model -> (Model, Cmd Msg)
 update msg model =
     case msg of
-        SocketMessage message ->
-            let
-                decoded = decodeMessage message
-            in
-                ( {model | time = decoded}, Cmd.none )
+        Time time -> ( {model | time = time}, Cmd.none )
         _ -> (model, Cmd.none)
 
 view : Model -> Element Msg