implement deployment of aisaka

1 files changed, 24 insertions, 0 deletions

diff --git a/deployment/machine/ssh.scm b/deployment/machine/ssh.scm
new file mode 100644
index 0000000..e7339b1
--- /dev/null
+++ b/deployment/machine/ssh.scm
@@ -0,0 +1,24 @@
+(define-module (deployment machine ssh)
+  #:use-module ((deployment systems aisaka)
+                #:prefix deployment:systems:aisaka:)
+  #:use-module ((gnu machine ssh)
+                #:prefix gnu:machine:ssh:))
+
+(define open-machine-ssh-session*
+  (@@ (gnu machine ssh)
+      open-machine-ssh-session*))
+
+(define-public aisaka-configuration
+  (gnu:machine:ssh:machine-ssh-configuration
+   (host-name         deployment:systems:aisaka:system-name)
+   (system            deployment:systems:aisaka:architecture)
+   (build-locally?    #t)
+   (authorize?        #t)
+   (allow-downgrades? #f)
+   (safety-checks?    #t)
+   (port              22)
+   (user              "marek")
+   (identity          #f)
+   (session           (open-machine-ssh-session* (@@ (gnu machine ssh)
+                                                     this-machine-ssh-configuration)))
+   (host-key          #f)))