From bb6c07c81da2af098aa89ce6842e39cdd41afd29 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Mon, 17 Apr 2023 16:13:43 +0200
Subject: Simplify SSH config

---
 tw/home.scm | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

(limited to 'tw/home.scm')

diff --git a/tw/home.scm b/tw/home.scm
index 6d632523..9f87a4f6 100644
--- a/tw/home.scm
+++ b/tw/home.scm
@@ -196,18 +196,16 @@ auto-expand-secmem
            (host-key-algorithms '("+ssh-rsa"))
            (accepted-key-types '("+ssh-rsa")))
          ;; CERN stuff
-         ,(openssh-host
-           (name "lxplus.cern.ch")
-           (extra-content "GSSAPIDelegateCredentials yes"))   ; needed for EOS home mount
-         ,(openssh-host
-           (name "aiadm.cern.ch")
-           (extra-content "GSSAPIDelegateCredentials yes"))   ; needed for EOS home mount
-         ,(openssh-host
-           (name "cvmfs-alice.cern.ch")
-           (extra-content "GSSAPIDelegateCredentials yes"))   ; needed for EOS home mount
+         ,@(map (lambda (host)
+                  (openssh-host
+                   (name host)
+                   ;; Needed for EOS home mount.
+                   (extra-content "GSSAPIDelegateCredentials yes")))
+                '("lxplus.cern.ch" "aiadm.cern.ch" "cvmfs-alice.cern.ch"))
          ,@(map (lambda (spec)
-                  (openssh-host (name (car spec)) (user (cdr spec))
-                                (identity-file "~/.local/share/ssh-keys/alicern_id_rsa")))
+                  (openssh-host
+                   (name (car spec)) (user (cdr spec))
+                   (identity-file "~/.local/share/ssh-keys/alicern_id_rsa")))
                 '(("alimonitor.cern.ch" . "alibuild")
                   ("alinsure.cern.ch" . "alibuild")
                   ("alibuildmac*.cern.ch" . "alibuild")
-- 
cgit v1.2.3