blob: 4cf866ad3b5ca2f43ccf3c41263af6d67f644c3e (
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
29
30
31
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))))
|
