First versionHEADmaster

2 files changed, 43 insertions, 0 deletions

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..8e7197b
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,6 @@
+(channel
+ (version 0)
+ (directory "guix"))
+;; Local Variables:
+;; mode: scheme
+;; End:
diff --git a/guix/vkraus/packages/continuous-deployment.scm b/guix/vkraus/packages/continuous-deployment.scm
new file mode 100644
index 0000000..8e1bc4a
--- /dev/null
+++ b/guix/vkraus/packages/continuous-deployment.scm
@@ -0,0 +1,37 @@
+(define-module (vkraus packages continuous-deployment)
+  #:use-module (guix packages)
+  #:use-module (guix licenses)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages package-management))
+
+(define builder
+  '(let ((out (assoc-ref %outputs "out"))
+	 (bash-in (assoc-ref %build-inputs "bash"))
+	 (guix-in (assoc-ref %build-inputs "guix")))
+     (mkdir out)
+     (mkdir (string-append out "/bin"))
+     (call-with-output-file (string-append out "/bin/continuous-deployment")
+       (lambda (port)
+	 (format port "#!~a/bin/bash
+~a/bin/guix pull -c 4 && ~a/bin/guix system reconfigure -c 4 /etc/config.scm"
+		 bash-in
+		 guix-in
+		 guix-in)))
+     (chmod (string-append out "/bin/continuous-deployment") #o755)
+     #t))
+
+(define-public continuous-deployment
+  (package
+   (name "continuous-deployment")
+   (version "0.0.0")
+   (source (plain-file "empty" ""))
+   (build-system trivial-build-system)
+   (arguments `(#:builder ,builder))
+   (inputs `(("bash" ,bash)
+	     ("guix" ,guix)))
+   (synopsis "Reconfigure your system.")
+   (description "Reconfigure your system.")
+   (home-page "https://labo.planete-kraus.eu/continuous-deployment.git")
+   (license gpl3+)))