implement offloading prototype

1 files changed, 21 insertions, 1 deletions

diff --git a/deployment/systems/mcdowell.scm b/deployment/systems/mcdowell.scm
index ae1ea16..c238f48 100644
--- a/deployment/systems/mcdowell.scm
+++ b/deployment/systems/mcdowell.scm
@@ -35,7 +35,8 @@
   #:use-module ( (sovereign systems)
                  #:prefix sovereign:systems:)
   #:use-module ( (users id1000)
-                 #:prefix users:id1000:))
+                 #:prefix users:id1000:)
+  #:use-module (guix gexp))
 
 (define system-name
   "mcdowell")
@@ -64,6 +65,22 @@
       (inherit  sovereign:devices:swap/no-trim)
       (target   l-target))))
 
+(define rakan-machine
+  #~(build-machine
+    (name        "rakan")
+    (systems     (list "x86_64-linux"
+                       "i686-linux"))
+    (user        "marek")
+    (host-key    "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFxlIhNlkWCNA+l/RiOJztB+VWhuJtDTUvSwwlE3MpgJ root@mcdowell")
+    (private-key "/home/marek/.ssh/id_ed25519")))
+
+(define guix-offload-rakan
+  (let
+    ( (l-signing-key   (local-file "../keys/guix/rakan-signing-key.pub")))
+    (gnu:services:base:guix-extension
+      (authorized-keys (list l-signing-key))
+      (build-machines  (list rakan-machine)))))
+
 (define system
   (let*
     ( (l-guix-homes         (list users:id1000:name/home-environment))
@@ -78,6 +95,9 @@
       (l-services           (cons*  l-guix-home-service
                                     (gnu:services:service gnu:services:ssh:openssh-service-type)
                                     sovereign:packages:protonmail:nogui-profile
+                                    (gnu:services:simple-service 'offload-rakan
+                                                                 gnu:services:base:guix-service-type
+                                                                 guix-offload-rakan)
                                     sovereign:systems:%sovereign-services))
       (l-swap-devices       (list swap))
       (l-users              (cons*  users:id1000:uid1000-account