things still work before major re-write

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`

backend/src/landing.rs

@@ -0,0 +1,7 @@
+use serde::{Deserialize, Serialize};
+
+
+#[derive(Serialize)]
+pub struct Landing {
+    pub time : String
+}

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);
         }

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