From 8f08fd044e505d63837fc747c31b2dbb1ab4688d Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Sat, 27 Jul 2024 21:05:18 +0200
Subject: WTF was that.

---
 src/smart-relay.rtk | 48 ------------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 src/smart-relay.rtk

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

diff --git a/src/smart-relay.rtk b/src/smart-relay.rtk
deleted file mode 100644
index 270780a..0000000
--- a/src/smart-relay.rtk
+++ /dev/null
@@ -1,48 +0,0 @@
-(module smart-relay racket/base
-  (require mqtt-client)
-  (provide main)
-
-  (define (make-send-to-dev data)
-    (lambda (dev)
-      (with-output-to-file dev
-        #:exists 'truncate
-        #:mode 'binary
-        (lambda ()
-          (write-bytes data)))))
-
-  (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)))
-
-  (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))
-    (mqtt/with-client (host client-name)
-      (mqtt/with-connection (#:keep-alive-interval 20
-                             #:clean-session       #t
-                             #:username            username
-                             #:password            password)
-
-        (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))))))
-- 
cgit v1.2.3