From 5ddf8241ec2eb8faed264781fedc927e62a3c20d Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Thu, 20 Apr 2023 23:39:07 +0200
Subject: Draft of restic server deployment

---
 tw/system.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'tw/system.scm')

diff --git a/tw/system.scm b/tw/system.scm
index c9904e24..0b738038 100644
--- a/tw/system.scm
+++ b/tw/system.scm
@@ -43,6 +43,14 @@
     ("vin.twilken.net" . 22022)
     ("pi3.twilken.net" . 51022)))
 
+(export server-wireguard-address)
+(define* (server-wireguard-address host-name #:optional (port ""))
+  (string-replace-substring
+   (car   ; get the IPv4 address
+    (wireguard-peer-allowed-ips
+     (assoc-ref %wireguard-peers host-name)))
+   "/32" port))
+
 (define-public (server-base-services host-name)
   (cons*
    ;; SSH login, allowing access only for me.  To give more public keys
@@ -61,11 +69,7 @@
    (service prometheus-node-exporter-service-type
      (prometheus-node-exporter-configuration
       (web-listen-address
-       (string-replace-substring
-        (car   ; get the IPv4 address
-         (wireguard-peer-allowed-ips
-          (assoc-ref %wireguard-peers host-name)))
-        "/32" ":9100"))))
+       (server-wireguard-address host-name ":9100"))))
 
    (simple-service 'disk-maintenance mcron-service-type
      (list #~(job "0 2 * * *" "guix gc -d 2w")
-- 
cgit v1.2.3