From 24b13e12fb681dab7ceaa0a5b50e8a29675c8e15 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 25 May 2024 10:48:53 +0200 Subject: services: split nonguix substitute configuration to its own module --- services/nonguix/substitute.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 services/nonguix/substitute.scm (limited to 'services/nonguix') diff --git a/services/nonguix/substitute.scm b/services/nonguix/substitute.scm new file mode 100644 index 0000000..4cf866a --- /dev/null +++ b/services/nonguix/substitute.scm @@ -0,0 +1,32 @@ +(define-module (services nonguix substitute) + #:use-module (gnu services base) + #:use-module (guix gexp)) + +;; DATA + +(define nonguix-authorized-guix-key-content + (string-append "(public-key \n" + "(ecc \n" + "(curve Ed25519) \n" + "(q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#))) \n")) + +(define nonguix-authorized-guix-key-name + "nonguix-authorized-guix-key") + +(define nonguix-substitute-urls + (list "https://substitutes.nonguix.org")) + +;; ABSTRACTION 1 + +(define nonguix-authorized-guix-keys + (list (plain-file nonguix-authorized-guix-key-name + nonguix-authorized-guix-key-content))) + +;; PUBLIC + +(define-public (nonguix-substitute config) + (guix-configuration (inherit config) + (substitute-urls (append %default-substitute-urls + nonguix-substitute-urls)) + (authorized-keys (append %default-authorized-guix-keys + nonguix-authorized-guix-keys)))) -- cgit v1.2.3