(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))))