summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjdlugosz963 <jdlugosz963@gmail.com>2024-07-27 21:05:18 +0200
committerjdlugosz963 <jdlugosz963@gmail.com>2024-07-27 21:05:18 +0200
commit8f08fd044e505d63837fc747c31b2dbb1ab4688d (patch)
treeb383273fb5347fd80eb57471ee00f8504e91fc08
parent8766d0377de1bb942ff5d624b834c67c27dfba7a (diff)
downloadsmart-relay-8f08fd044e505d63837fc747c31b2dbb1ab4688d.tar.gz
smart-relay-8f08fd044e505d63837fc747c31b2dbb1ab4688d.zip
WTF was that.
-rw-r--r--manifest.scm10
-rw-r--r--src/smart-relay.rkt (renamed from src/smart-relay.rtk)0
-rwxr-xr-xsrc/smart-relay.sh2
3 files changed, 6 insertions, 6 deletions
diff --git a/manifest.scm b/manifest.scm
index 91100f3..53544d4 100644
--- a/manifest.scm
+++ b/manifest.scm
@@ -66,8 +66,8 @@
66 (lambda* (#:key outputs #:allow-other-keys) 66 (lambda* (#:key outputs #:allow-other-keys)
67 (let ((out (assoc-ref outputs "out"))) 67 (let ((out (assoc-ref outputs "out")))
68 (substitute* "smart-relay.sh" 68 (substitute* "smart-relay.sh"
69 (("smart-relay.rtk") 69 (("smart-relay.rkt")
70 (string-append out "/share/smart-relay.rtk")))))) 70 (string-append out "/share/smart-relay.rkt"))))))
71 (add-before 'install 'move-files 71 (add-before 'install 'move-files
72 (lambda* (#:key inputs outputs #:allow-other-keys) 72 (lambda* (#:key inputs outputs #:allow-other-keys)
73 (let* ((out (assoc-ref outputs "out")) 73 (let* ((out (assoc-ref outputs "out"))
@@ -78,10 +78,10 @@
78 (chmod "smart-relay.sh" #o555) 78 (chmod "smart-relay.sh" #o555)
79 (copy-recursively "smart-relay.sh" 79 (copy-recursively "smart-relay.sh"
80 (string-append bin "smart-relay")) 80 (string-append bin "smart-relay"))
81 (copy-recursively "smart-relay.rtk" 81 (copy-recursively "smart-relay.rkt"
82 (string-append share "smart-relay.rtk")) 82 (string-append share "smart-relay.rkt"))
83 (delete-file-recursively "smart-relay.sh") 83 (delete-file-recursively "smart-relay.sh")
84 (delete-file-recursively "smart-relay.rtk"))))))) 84 (delete-file-recursively "smart-relay.rkt")))))))
85 (synopsis "Lisp program to control usb relay over mqtt") 85 (synopsis "Lisp program to control usb relay over mqtt")
86 (description "Lisp program to control usb relay over mqtt") 86 (description "Lisp program to control usb relay over mqtt")
87 (home-page "https://git.jdlugosz.com/hsp/smart-relay") 87 (home-page "https://git.jdlugosz.com/hsp/smart-relay")
diff --git a/src/smart-relay.rtk b/src/smart-relay.rkt
index 270780a..270780a 100644
--- a/src/smart-relay.rtk
+++ b/src/smart-relay.rkt
diff --git a/src/smart-relay.sh b/src/smart-relay.sh
index af5fa26..d14eaac 100755
--- a/src/smart-relay.sh
+++ b/src/smart-relay.sh
@@ -1,5 +1,5 @@
1#!/bin/sh 1#!/bin/sh
2 2
3raco pkg install mqtt-client 3raco pkg install mqtt-client
4racket -e "(begin (require (file \"smart-relay.rtk\")) (main $@))" 4racket -e "(begin (require (file \"smart-relay.rkt\")) (main $@))"
5 5