Elm rs and enums

Cargo.toml

@@ -2,6 +2,7 @@
 [workspace]
 members = [
     "server",
-    "orgauth/rustlib",
+    "elm-gen",
+    "orgauth/rustlib", "protocol",
 ]
 resolver = "2"

elm-gen/Cargo.toml

@@ -0,0 +1,9 @@
+[package]
+name = "elm-gen-timeclonk"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+elm_rs = { version = "0.2.3", features = ["uuid"] }
+orgauth = { path = "../orgauth/rustlib" }
+protocol = { path = "../protocol" }

elm-gen/src/main.rs

@@ -0,0 +1,92 @@
+use std::path::Path;
+
+use orgauth::util;
+use protocol::{
+  data::{
+    Allocation, ExtraField, InvoiceItem, ListProject, PayEntry, PayType, PrintInvoice, Project,
+    ProjectEdit, ProjectId, ProjectMember, ProjectTime, Role, SaveAllocation, SavePayEntry,
+    SaveProject, SaveProjectEdit, SaveProjectInvoice, SaveProjectMember, SaveProjectTime,
+    SaveTimeEntry, SavedProjectEdit, TimeEntry, User,
+  },
+  messages::{PublicMessageX, PublicResponseX, TcMessageX, TcResponseX, TimeClonkError},
+};
+
+fn main() -> Result<(), Box<dyn std::error::Error>> {
+  let ed = Path::new("../elm/src");
+
+  // TcMessage.elm
+  {
+    let mut target = vec![];
+    // elm_rs provides a macro for conveniently creating an Elm module with everything needed
+    elm_rs::export!(
+        "TcProtocol",
+        &mut target,
+        {        // generates types and encoders for types implementing ElmEncoder
+        encoders: [
+           Project,
+           ProjectTime,
+           PayEntry,
+           ProjectMember,
+           Allocation,
+           TimeEntry,
+           TcMessageX,
+          ProjectId,
+           PublicMessageX,
+           PrintInvoice,
+           InvoiceItem,
+           Role,
+           PayType,
+           ExtraField,
+           SaveProjectEdit,SaveProjectMember, SaveProject,
+           SavedProjectEdit,
+           SaveProjectInvoice,
+           SaveProjectTime,
+           SaveTimeEntry,
+           SaveAllocation,
+           SavePayEntry],
+        // generates types and decoders for types implementing ElmDecoder
+        decoders: [
+          TcResponseX ,PublicResponseX,
+          ListProject,
+           TimeClonkError,
+          ProjectId,
+           Project,
+           ProjectEdit,
+           ProjectTime,
+           PayEntry,
+           ProjectMember,
+           Allocation,
+           SavedProjectEdit,
+           TimeEntry,
+           User,
+           Role,
+           ExtraField,
+           PayType],
+        // generates types and functions for forming queries for types implementing ElmQuery
+        queries: [],
+        // generates types and functions for forming queries for types implementing ElmQueryField
+        query_fields: [],
+        }
+    )
+    .unwrap();
+
+    let output = String::from_utf8(target).unwrap();
+
+    // add line importing Orgauth.Userid
+    let uidout = output.replace(
+      "import Json.Encode",
+      r#"import Json.Encode
+import Orgauth.Data exposing (UserId(..), userIdDecoder, userIdEncoder)"#,
+    );
+
+    let outf = ed
+      .join("TcProtocol.elm")
+      .to_str()
+      .expect("bad path")
+      .to_string();
+    util::write_string(outf.as_str(), uidout.as_str())?;
+    println!("wrote file: {}", outf);
+  }
+
+  Ok(())
+}