From 92db1fdac315a471bfd7a619a7f4efb1684df25e Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Sat, 27 Jul 2024 20:43:21 +0200
Subject: Initial commit.

---
 manifest.scm | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100644 manifest.scm

(limited to 'manifest.scm')

diff --git a/manifest.scm b/manifest.scm
new file mode 100644
index 0000000..91100f3
--- /dev/null
+++ b/manifest.scm
@@ -0,0 +1,114 @@
+(use-modules (guix packages)
+	     (guix git-download)
+	     (guix build-system cmake)
+	     (guix build-system copy)
+	     (guix utils)
+	     (guix gexp)
+	     (gnu packages racket)
+	     (gnu packages emacs-xyz)
+	     ((guix licenses) #:prefix license:))
+
+(define paho-mqtt-c
+  (package
+    (name "paho-mqtt-c")
+    (version "1.3.13")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/eclipse/paho.mqtt.c")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32 "1y5lsh41kszyjcrxrjshs838l23ncdyssxk848ij1bq0jix2g93l"))))
+    (build-system cmake-build-system)
+    (arguments
+     '(#:tests? #f)) ;; Disable tests
+    (synopsis "Eclipse Paho MQTT C client library")
+    (description
+     "Eclipse Paho MQTT C client library.")
+    (home-page "https://www.eclipse.org/paho/")
+    (license license:epl1.0)))
+
+(define (make-racket! package-to-inherit)
+  (package
+    (inherit package-to-inherit)
+    (arguments
+     (substitute-keyword-arguments (package-arguments package-to-inherit)
+       ((#:phases those-phases #~%standard-phases)
+	#~(modify-phases #$those-phases
+            (add-after 'install 'wrap-racket
+              (lambda* (#:key outputs inputs #:allow-other-keys)
+		(let* ((out (assoc-ref outputs "out"))
+		       (bin (string-append out "/bin/racket"))
+		       (libpaho (string-append (assoc-ref inputs "paho-mqtt-c")
+					       "/lib")))
+		  (wrap-program bin
+                    `("LD_LIBRARY_PATH" ":" prefix
+                      ,(list libpaho))))))))))
+    (inputs
+     (modify-inputs (package-inputs package-to-inherit)
+		    (prepend paho-mqtt-c)))))
+
+(define racket-minimal! (make-racket! racket-minimal))
+(define racket! (make-racket! racket))
+
+(define smart-relay
+  (package
+    (name "smart-relay")
+    (version "0.1.0")
+    (source
+     (local-file "src" #:recursive? #t))
+    (build-system copy-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+	 (add-before 'install 'change-paths
+           (lambda* (#:key outputs #:allow-other-keys)
+	     (let ((out  (assoc-ref outputs "out")))
+               (substitute* "smart-relay.sh"
+		 (("smart-relay.rtk")
+                  (string-append out "/share/smart-relay.rtk"))))))
+	 (add-before 'install 'move-files
+	   (lambda* (#:key inputs outputs #:allow-other-keys)
+	     (let* ((out  (assoc-ref outputs "out"))
+		    (bin  (string-append out "/bin/"))
+		    (share  (string-append out "/share/")))
+	       (mkdir-p bin)
+	       (mkdir-p share)
+	       (chmod "smart-relay.sh" #o555)
+	       (copy-recursively "smart-relay.sh"
+				 (string-append bin "smart-relay"))
+	       (copy-recursively "smart-relay.rtk"
+				 (string-append share "smart-relay.rtk"))
+	       (delete-file-recursively "smart-relay.sh")
+	       (delete-file-recursively "smart-relay.rtk")))))))
+    (synopsis "Lisp program to control usb relay over mqtt")
+    (description "Lisp program to control usb relay over mqtt")
+    (home-page "https://git.jdlugosz.com/hsp/smart-relay")
+    (license license:unlicense)))
+
+(define emacs-geiser-racket!
+  (package
+    (inherit emacs-geiser-racket)
+    (inputs
+     (modify-inputs (package-inputs emacs-geiser-racket)
+		    (delete "racket")
+		    (prepend racket!)))))
+
+
+(if (getenv "DEV_SHELL")
+    (concatenate-manifests
+     (list (packages->manifest
+	    (list racket!
+		  emacs-geiser-racket!))
+	   (specifications->manifest
+            (list "racket"
+		  "emacs-racket-mode"
+		  "emacs"))))
+    (concatenate-manifests
+     (list (packages->manifest
+	    (list racket!
+		  smart-relay))
+	   (specifications->manifest
+            (list "bash"
+		  "nss-certs")))))
-- 
cgit v1.2.3