From 3269a1f3b72d49e3e7bb56cd9a5abe06f92fc974 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Wed, 22 Nov 2023 23:07:56 +0100
Subject: Authorise signing key for frm

---
 tw/channels.scm | 43 +++++++++++--------------------------------
 1 file changed, 11 insertions(+), 32 deletions(-)

diff --git a/tw/channels.scm b/tw/channels.scm
index 56841f61..ec3e2852 100644
--- a/tw/channels.scm
+++ b/tw/channels.scm
@@ -21,41 +21,20 @@
 ;; Nonguix substitute server's signing key.
 ;; From <https://substitutes.nonguix.org/signing-key.pub>.
 (define-public %nonguix-signing-key
-  (plain-file "nonguix-signing-key.pub" "\
-(public-key
- (ecc
-  (curve Ed25519)
-  (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)
-  )
- )
-"))
+  (plain-file "nonguix-signing-key.pub"
+    "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
 
 ;; Authorize other machines' Guix signing keys, for offloading.
 (define %tw-signing-keys
-  (list (plain-file "lud-signing-key.pub" "\
-(public-key
- (ecc
-  (curve Ed25519)
-  (q #907985F2DEC4E15FAF29F4029FEADD266DD6563F7E9548160965C7E61EEDCA51#)
-  )
- )
-")
-        (plain-file "vin-signing-key.pub" "\
-(public-key
- (ecc
-  (curve Ed25519)
-  (q #752B01B2CC6E1730BFD8F2B4CF9B9D3D29A07B4B7763EACBD8DEEE9F46E96561#)
-  )
- )
-")
-        (plain-file "lap-signing-key.pub" "\
-(public-key
- (ecc
-  (curve Ed25519)
-  (q #DF75857BAD66DB4ED4F3DC6450C9E0923D3162435FDE281B536F40EA22FAD6CF#)
-  )
- )
-")))
+  (list
+   (plain-file "lud-signing-key.pub"
+     "(public-key (ecc (curve Ed25519) (q #907985F2DEC4E15FAF29F4029FEADD266DD6563F7E9548160965C7E61EEDCA51#)))")
+   (plain-file "vin-signing-key.pub"
+     "(public-key (ecc (curve Ed25519) (q #752B01B2CC6E1730BFD8F2B4CF9B9D3D29A07B4B7763EACBD8DEEE9F46E96561#)))")
+   (plain-file "lap-signing-key.pub"
+     "(public-key (ecc (curve Ed25519) (q #DF75857BAD66DB4ED4F3DC6450C9E0923D3162435FDE281B536F40EA22FAD6CF#)))")
+   (plain-file "frm-signing-key.pub"
+     "(public-key (ecc (curve Ed25519) (q #E0E0A927949FF46DD5B7A63334BC168DC63D6C90D4F9AD6C071A4520B8B659A7#)))")))
 
 (define-public %system-channel-services
   ;; The gaming channel (https://gitlab.com/guix-gaming-channels) is per-user only.
-- 
cgit v1.2.3