From 7fdc8d4ccc1577b179121da9f05099c8f8b4b87c Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Mon, 8 Jan 2024 14:25:19 +0100
Subject: Add a Guix package for email-key-rotation

---
 guile/email-key-rotation/openssl.scm        |  2 +-
 guix/vkraus/packages/email-key-rotation.scm | 49 +++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+), 1 deletion(-)
 create mode 100644 guix/vkraus/packages/email-key-rotation.scm

diff --git a/guile/email-key-rotation/openssl.scm b/guile/email-key-rotation/openssl.scm
index 40f09c3..418056b 100644
--- a/guile/email-key-rotation/openssl.scm
+++ b/guile/email-key-rotation/openssl.scm
@@ -12,7 +12,7 @@
 
 (define current-openssl-binary
   (make-parameter
-   "openssl"
+   "/usr/bin/openssl"
    (match-lambda
      ((? string? interpreter)
       (lambda (arguments)
diff --git a/guix/vkraus/packages/email-key-rotation.scm b/guix/vkraus/packages/email-key-rotation.scm
new file mode 100644
index 0000000..5300305
--- /dev/null
+++ b/guix/vkraus/packages/email-key-rotation.scm
@@ -0,0 +1,49 @@
+(define-module (vkraus packages email-key-rotation)
+  #:use-module (guix packages)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system guile)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages tls)
+  #:declarative? #t)
+
+(define-public email-key-rotation
+  (package
+   (name "email-key-rotation")
+   (version "0.0.1")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+	   (url "https://labo.planete-kraus.eu/email-key-rotation.git")
+	   (commit version)))
+     (sha256
+      (base32
+       "1w3jmxqhjbd8lm2qxza81i7k89qnghpkppiw4hj9xydi2h6k4mnk"))))
+   (build-system guile-build-system)
+   (arguments
+    (list
+     #:source-directory "guile"
+     #:phases
+     #~(modify-phases
+	%standard-phases
+	(add-after
+	 'unpack 'set-openssl-binary
+	 (lambda* (#:key inputs #:allow-other-keys)
+	   (substitute*
+	    "guile/email-key-rotation/openssl.scm"
+	    (("/usr/bin/openssl")
+	     (search-input-file inputs "bin/openssl"))))))))
+   (native-inputs
+    (list guile-3.0))
+   (inputs
+    (list guile-3.0 openssl))
+   (propagated-inputs
+    (list guile-json-4))
+   (home-page "https://labo.planete-kraus.eu/email-key-rotation.git")
+   (synopsis "A simple library to help rotate DKIM and SRS secrets")
+   (description
+    "This package can help rotate DKIM keys and SRS secrets, and
+ publish DNS records to Gandi LiveDNS.")
+   (license license:agpl3+)))
-- 
cgit v1.2.3