blob: 73e0045ddea8e2f8b3deffbcf8005c58575f3235 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(define-module (tw deploy)
#:use-module (gnu machine)
#:use-module (gnu machine ssh)
#:use-module (gnu system)
#:use-module (tw system)
#:use-module (tw system lud)
#:use-module (tw system vin))
(define-public %host-keys
'(("lud.twilken.net" . "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIGqXbxv3a2bZyGjnEirVCMtRBeLKW/ha8ULSR9Xye4Z1 root@(none)")
("vin.twilken.net" . "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIEEpdfKxzoCwg53TKPF5YxgUwhGF+bELAyBGdxagQroJ root@(none)")))
(define-public (operating-system->machine system)
(machine
(operating-system system)
(environment managed-host-environment-type)
(configuration
(machine-ssh-configuration
(host-name (operating-system-host-name system))
(port (assoc-ref %ssh-ports host-name))
(host-key (assoc-ref %host-keys host-name))
(user "guixdeploy")
(identity "~/.local/share/ssh-keys/guixdeploy_id_ed25519")
(system "x86_64-linux")
(build-locally? #f)))))
(map operating-system->machine
(list %lud-system %vin-system))
|