Merge pull request #12 from lupodevelop/adt-codecs-implementation

v3.1.0 implementation

Author: lupodevelop

.github/workflows/test.yml

@@ -2,7 +2,9 @@ name: test
 
 on:
   push:
-    branches: [main]
+    branches:
+      - master
+      - main
   pull_request:
 
 jobs:
@@ -12,8 +14,10 @@ jobs:
       - uses: actions/checkout@v4
       - uses: erlef/setup-beam@v1
         with:
-          otp-version: "27.0"
+          otp-version: "28"
           gleam-version: "1.14.0"
+          rebar3-version: "3"
+          # elixir-version: "1"
       - run: gleam deps download
       - run: gleam test
       - run: gleam format --check src test

.gitignore

@@ -4,4 +4,5 @@
 erl_crash.dump
 **/build
 *.log
+/notes
 

CHANGELOG.md

@@ -1,5 +1,19 @@
 # Changelog
 
+## v3.1.0 — 2026-03-04
+
+### Added
+
+- **Cluster Monitoring** (`distribute/cluster/monitor`) — Typed event-driven
+  notifications for `NodeUp` and `NodeDown`.
+- `distribute.subscribe(subject)` — Start a monitored subscription.
+- `distribute.unsubscribe(monitor_subject)` — Stop a subscription.
+- **ADT/Variant Codecs** (`distribute/codec/variant`) — A builder pattern to
+  easily create codecs for Custom Types (enums) with payload support.
+- `variant.new()`, `variant.add()`, `variant.unit()`, `variant.build()`
+- **Telemetry** (`distribute/internal/telemetry`) — Erlang `:telemetry` events
+  for send, receive, encode, decode, registry, and cluster operations.
+
 ## v3.0.0 — 2026-02-11
 
 Ground-up rewrite. Smaller API, proper OTP actors, compile-time type safety
@@ -38,4 +52,4 @@ connection pool, retry. Also removed `whereis_global(name, encoder, decoder)`.
 - `global.reply(reply_to, response, encoder)` — send a response back.
 - `composite.option(c)`, `composite.result(ok, err)`,
   `composite.tuple2(a, b)`, `composite.tuple3(a, b, c)`.
-- `registry.named(name, codec)` — short form of `typed_name`.
+- `registry.named(name, codec)` — short form of `typed_name`.

README.md

@@ -110,8 +110,8 @@ let user_id_codec = codec.map(codec.int(), UserId, fn(uid) {
 ```
 
 Gleam has no derive macros or reflection, so codecs for complex types
-are manual. The combinators handle the serialization — you just wire
-the fields together.
+are manual. The combinators handle the serialization so you just wire
+the fields together!
 
 ## Modules
 
@@ -122,11 +122,57 @@ the fields together.
 | `distribute/cluster` | `net_kernel` start/connect/ping |
 | `distribute/codec` | Binary codecs for primitives + `subject()` |
 | `distribute/codec/composite` | Option, Result, Tuple codecs |
+| `distribute/codec/variant` | Build codecs for Custom Types (ADTs) |
 | `distribute/codec/tagged` | Tagged messages with version field |
 | `distribute/global` | `GlobalSubject(msg)`, `call`, `reply` |
+| `distribute/cluster/monitor` | `NodeUp`, `NodeDown` typed events |
 | `distribute/registry` | `TypedName(msg)`, `:global` registration |
 | `distribute/receiver` | Typed receive, OTP actor wrappers |
 
+### Custom Type Codecs
+
+Seamlessly encode and decode your Algebraic Data Types (enums) with a fluent builder.
+
+```gleam
+pub type MyMessage {
+  Text(String)
+  Ping
+}
+
+import distribute/codec
+import distribute/codec/variant
+
+let my_codec = 
+  variant.new()
+  |> variant.add(0, "Text", codec.string(), Text, fn(m) {
+    case m { Text(s) -> Ok(s); _ -> Error(Nil) }
+  })
+  |> variant.unit(1, "Ping", Ping, fn(m) { m == Ping })
+  |> variant.build()
+```
+
+### Cluster Monitoring
+
+Subscribe to cluster events (`NodeUp`, `NodeDown`) to react to node topology changes.
+
+```gleam
+import distribute
+import distribute/cluster/monitor
+
+let subj = process.new_subject()
+let assert Ok(m) = distribute.subscribe(subj)
+
+// In your actor/process
+case process.receive(subj, 5000) {
+  Ok(monitor.NodeUp(node)) -> io.println("Node joined: " <> node)
+  Ok(monitor.NodeDown(node)) -> io.println("Node left: " <> node)
+  _ -> Nil
+}
+
+// Later
+distribute.unsubscribe(m)
+```
+
 ## Caveats
 
 **What the types catch** — within one codebase, `TypedName` and

gleam.toml

@@ -1,5 +1,5 @@
 name = "distribute"
-version = "3.0.0"
+version = "3.1.0"
 description = "Typed distributed messaging for Gleam on the BEAM."
 licences = ["MIT"]
 repository = { type = "github", user = "lupodevelop", repo = "distribute" }
@@ -13,6 +13,7 @@ target = "erlang"
 gleam_stdlib = ">= 0.60.0 and < 2.0.0"
 gleam_erlang = ">= 1.0.0 and < 2.0.0"
 gleam_otp = ">= 1.0.0 and < 2.0.0"
+telemetry = ">= 1.0.0 and < 2.0.0"
 
 [dev-dependencies]
 gleeunit = ">= 1.0.0 and < 2.0.0"

manifest.toml

@@ -6,10 +6,12 @@ packages = [
   { name = "gleam_otp", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "BA6A294E295E428EC1562DC1C11EA7530DCB981E8359134BEABC8493B7B2258E" },
   { name = "gleam_stdlib", version = "0.68.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "F7FAEBD8EF260664E86A46C8DBA23508D1D11BB3BCC6EE1B89B3BC3E5C83FF1E" },
   { name = "gleeunit", version = "1.9.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "DA9553CE58B67924B3C631F96FE3370C49EB6D6DC6B384EC4862CC4AAA718F3C" },
+  { name = "telemetry", version = "1.3.0", build_tools = ["rebar3"], requirements = [], otp_app = "telemetry", source = "hex", outer_checksum = "7015FC8919DBE63764F4B4B87A95B7C0996BD539E0D499BE6EC9D7F3875B79E6" },
 ]
 
 [requirements]
 gleam_erlang = { version = ">= 1.0.0 and < 2.0.0" }
 gleam_otp = { version = ">= 1.0.0 and < 2.0.0" }
 gleam_stdlib = { version = ">= 0.60.0 and < 2.0.0" }
 gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+telemetry = { version = ">= 1.0.0 and < 2.0.0" }

src/cluster_ffi.erl

@@ -1,6 +1,9 @@
 -module(cluster_ffi).
 -export([start_node/2, connect/1, nodes/0, self_node/0, ping/1,
-         is_ok_atom/1, get_error_reason/1, is_true/1, is_ignored/1]).
+         is_ok_atom/1, get_error_reason/1, is_true/1, is_ignored/1,
+         nodeup_atom/0, nodedown_atom/0, monitor_nodes/1,
+         atom_to_string/1, get_node_from_tuple/1,
+         simulate_node_event/3]).
 
 -import(distribute_ffi_utils, [to_atom_safe/1]).
 
@@ -80,3 +83,18 @@ to_atom_force(Atom) when is_atom(Atom) ->
 is_valid_node_input(Bin) when is_binary(Bin) ->
     byte_size(Bin) =< 512 andalso
     binary:match(Bin, <<"\0">>) =:= nomatch.
+
+nodeup_atom() -> nodeup.
+nodedown_atom() -> nodedown.
+
+monitor_nodes(Flag) ->
+    net_kernel:monitor_nodes(Flag).
+
+atom_to_string(Atom) when is_atom(Atom) ->
+    atom_to_binary(Atom, utf8).
+
+get_node_from_tuple({_, Node}) -> Node.
+
+simulate_node_event(Pid, Tag, NodeName) ->
+    NodeAtom = binary_to_atom(NodeName, utf8),
+    Pid ! {Tag, NodeAtom}.

src/distribute.gleam

@@ -1,16 +1,17 @@
-//// Facade for common distributed operations: start a node, register
-//// actors, send messages, look things up.
+//// Facade for common distributed operations.
 
 import distribute/actor as dist_actor
 import distribute/cluster
+import distribute/cluster/monitor
 import distribute/codec
 import distribute/global
 import distribute/receiver
 import distribute/registry
+import gleam/erlang/process
 import gleam/otp/actor
 
 pub fn version() -> String {
-  "3.0.0"
+  "3.1.0"
 }
 
 // -- Cluster -----------------------------------------------------------------
@@ -84,3 +85,17 @@ pub fn lookup(
 pub fn unregister(name: String) -> Result(Nil, registry.RegisterError) {
   registry.unregister(name)
 }
+
+// -- Cluster Monitoring ------------------------------------------------------
+
+pub fn subscribe(
+  user_subject: process.Subject(monitor.ClusterEvent),
+) -> Result(process.Subject(monitor.ControlMessage), actor.StartError) {
+  monitor.subscribe(user_subject)
+}
+
+pub fn unsubscribe(
+  monitor_subject: process.Subject(monitor.ControlMessage),
+) -> Nil {
+  monitor.unsubscribe(monitor_subject)
+}

src/distribute/actor.gleam

@@ -119,7 +119,7 @@ pub fn start_supervised(
   }
 }
 
-/// Start N supervised actors, registered as `name_1` .. `name_N`.
+/// Start N supervised actors, registered as name_1 .. name_N.
 pub fn pool(
   typed_name: registry.TypedName(msg),
   size: Int,

src/distribute/cluster.gleam

@@ -60,9 +60,8 @@ fn get_error_reason(value: dynamic.Dynamic) -> String
 // ---------------------------------------------------------------------------
 
 /// Start a distributed BEAM node.
-///
-/// `name` must contain `@` (e.g. `"myapp@127.0.0.1"`).
-/// `cookie` must be ≤ 255 characters.
+/// Name must contain @ (e.g. myapp@127.0.0.1).
+/// Cookie must be 255 characters or fewer.
 pub fn start_node(name: String, cookie: String) -> Result(Nil, StartError) {
   case validate_node_name(name) {
     Error(e) -> Error(e)
@@ -80,7 +79,7 @@ pub fn start_node(name: String, cookie: String) -> Result(Nil, StartError) {
   }
 }
 
-/// Connect to a remote node. Returns `Ok(Nil)` on success.
+/// Connect to a remote node. Returns Ok(Nil) on success.
 pub fn connect(node: String) -> Result(Nil, ConnectError) {
   case string.contains(node, "@") {
     False -> Error(NodeNotFound)
@@ -108,7 +107,7 @@ pub fn self_node() -> String {
   self_node_ffi()
 }
 
-/// Ping a remote node. Returns `True` if it responds.
+/// Ping a remote node. Returns True if it responds.
 pub fn ping(node: String) -> Bool {
   ping_ffi(node)
 }