From 78740ba7206ec0895be4aebedd308d409bc1dbb5 Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Tue, 30 Jul 2024 11:57:23 +0200
Subject: Add new command: toggle-blinker.

---
 src/smart-relay.rkt | 76 +++++++++++++++++++++++------------------------------
 1 file changed, 33 insertions(+), 43 deletions(-)

(limited to 'src/smart-relay.rkt')

diff --git a/src/smart-relay.rkt b/src/smart-relay.rkt
index 270780a..2ce045f 100644
--- a/src/smart-relay.rkt
+++ b/src/smart-relay.rkt
@@ -1,48 +1,38 @@
-(module smart-relay racket/base
-  (require mqtt-client)
-  (provide main)
+#lang racket/base
 
-  (define (make-send-to-dev data)
-    (lambda (dev)
-      (with-output-to-file dev
-        #:exists 'truncate
-        #:mode 'binary
-        (lambda ()
-          (write-bytes data)))))
+(require racket/place)
+(require racket/match)
+(require (file "utils.rkt"))
 
-  (define send-message-on
-    (make-send-to-dev (bytes  #xA0 #x01 #x01 #xA2)))
-  (define send-message-off
-    (make-send-to-dev (bytes  #xA0 #x01 #x00 #xA1)))
+(provide main)
 
-  (define (make-toggle-relay dev)
-    (let ((turn-on? #t))
-      (lambda ()
-        (displayln (format "Relay on ~a toggled" dev))
-        (if turn-on?
-            (send-message-on dev)
-            (send-message-off dev))
-        (set! turn-on? (not turn-on?)))))
+(define (main #:host        [host        "localhost"]
+              #:username    [username    #f]
+              #:password    [password    #f]
+              #:client-name [client-name "smart-relay"]
+              #:topic-name  [topic-name  "hsp/bobma/smart-relay"]
+              #:relay-dev   [relay-dev   "/dev/ttyUSB0"])
+  (define toggle-relay
+    (make-toggle-relay relay-dev))
 
-  (define (main #:host        [host        "localhost"]
-                #:username    [username    #f]
-                #:password    [password    #f]
-                #:client-name [client-name "smart-relay"]
-                #:topic-name  [topic-name  "hsp/bobma/smart-relay"]
-                #:relay-dev   [relay-dev   "/dev/ttyUSB0"])
-    (define toggle-relay (make-toggle-relay relay-dev))
-    (mqtt/with-client (host client-name)
-      (mqtt/with-connection (#:keep-alive-interval 20
-                             #:clean-session       #t
-                             #:username            username
-                             #:password            password)
+  (define toggle-blinker-relay
+    (make-toggle-blinker-relay toggle-relay))
 
-        (mqtt/subscribe topic-name)
-        (let loop ()
-          (mqtt/with-message-recv (topic payload)
-            (displayln (format "Message \"~a\" recieved on topic \"~a\"" payload topic))
-            (cond
-              ((string=? (bytes->string/utf-8 payload)
-                         "toggle")
-               (toggle-relay))))
-          (loop))))))
+  (define (make-mqtt-worker)
+    (let ((mqtt-worker (dynamic-place (string->path "mqtt-client.rkt") 'main)))
+     (place-channel-put mqtt-worker (list host
+                                          username
+                                          password
+                                          client-name
+                                          topic-name))
+     mqtt-worker))
+
+  (define mqtt-worker (make-mqtt-worker))
+
+  (let loop ()
+    (match (place-channel-get mqtt-worker)
+      ['toggle
+       (toggle-relay)]
+      ['toggle-blinker
+       (toggle-blinker-relay)])
+    (loop)))
-- 
cgit v1.2.3