diff options
author | jdlugosz963 <jdlugosz963@gmail.com> | 2024-07-27 21:05:18 +0200 |
---|---|---|
committer | jdlugosz963 <jdlugosz963@gmail.com> | 2024-07-27 21:05:18 +0200 |
commit | 8f08fd044e505d63837fc747c31b2dbb1ab4688d (patch) | |
tree | b383273fb5347fd80eb57471ee00f8504e91fc08 | |
parent | 8766d0377de1bb942ff5d624b834c67c27dfba7a (diff) | |
download | smart-relay-8f08fd044e505d63837fc747c31b2dbb1ab4688d.tar.gz smart-relay-8f08fd044e505d63837fc747c31b2dbb1ab4688d.zip |
WTF was that.
-rw-r--r-- | manifest.scm | 10 | ||||
-rw-r--r-- | src/smart-relay.rkt (renamed from src/smart-relay.rtk) | 0 | ||||
-rwxr-xr-x | src/smart-relay.sh | 2 |
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 | ||
3 | raco pkg install mqtt-client | 3 | raco pkg install mqtt-client |
4 | racket -e "(begin (require (file \"smart-relay.rtk\")) (main $@))" | 4 | racket -e "(begin (require (file \"smart-relay.rkt\")) (main $@))" |
5 | 5 | ||