feat: implement the required channels for %suweren-operating-system

1 files changed, 56 insertions, 2 deletions

diff --git a/suweren/system.scm b/suweren/system.scm
index b7268d5..bdc8d87 100644
--- a/suweren/system.scm
+++ b/suweren/system.scm
@@ -11,14 +11,68 @@
   #:use-module (gnu services xorg)      ; gdm-service-type
   #:use-module (gnu system)		; operating-system
   #:use-module (gnu system shadow)	; %base-user-accounts
+  #:use-module (guix channels)          ; %default-channels
+  #:use-module (guix gexp)		; plain-file
   )
 
 ;; record guix-configuration ->
 ;; record guix-configuration
 (define (guix configuration)
-  (let ((extra-options* (list "--gc-keep-derivations=yes"
-			      "--gc-keep-outputs=yes")))
+  (let* ((deployment-commit "c24ce7cb11e74da13d491f9de3c4b7040a069f43")
+	 (distribution-commit "7d17bded11ef1239592e6e5abd40ceee1e99cbb8")
+	 (marekpasnikowski-fingerprint
+	  (openpgp-fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F"))
+	 (nonguix-commit "897c1a470da759236cc11798f4e0a5f7d4d59fbc")
+	 (nonguix-fingerprint
+	  (openpgp-fingerprint "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))
+
+	 (deployment-introduction (make-channel-introduction deployment-commit
+							     marekpasnikowski-fingerprint))
+	 (deployment-url "https://git.marekpasnikowski.pl/git/deployment.git")
+	 (distribution-introduction (make-channel-introduction distribution-commit
+							       marekpasnikowski-fingerprint))
+	 (distribution-url "https://git.marekpasnikowski.pl/git/distribution.git")
+	 (nonguix-authorized-guix-key-content
+	  (string-append
+	   "(public-key \n"
+	   "(ecc \n"
+	   "(curve Ed25519) \n"
+	   "(q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#))) \n"))
+	 (nonguix-authorized-guix-key-name "nonguix-authorized-guix-key")
+	 (nonguix-introduction (make-channel-introduction nonguix-commit
+							  nonguix-fingerprint))
+	 (nonguix-url "https://gitlab.com/nonguix/nonguix")
+
+	 (deployment (channel (name 'deployment)
+			      (url deployment-url)
+			      (introduction deployment-introduction)))
+	 (distribution (channel (name 'distribution)
+				(url distribution-url)
+				(introduction distribution-introduction)))
+	 (nonguix (channel (name 'nonguix)
+			   (url nonguix-url)
+			   (introduction nonguix-introduction)))
+	 (nonguix-key (plain-file nonguix-authorized-guix-key-name
+				  nonguix-authorized-guix-key-content))
+
+	 (nonguix-authorized-guix-keys (list nonguix-key))
+	 (nonguix-substitute-urls (list "https://substitutes.nonguix.org"))
+	 (suweren-channels (list deployment
+				 distribution
+				 nonguix))
+
+	 (%default-authorized-guix-keys* (append %default-authorized-guix-keys
+						 nonguix-authorized-guix-keys))
+	 (%default-channels* (append %default-channels
+				     suweren-channels))
+	 (%default-substitute-urls* (append %default-substitute-urls
+					    nonguix-substitute-urls))
+	 (extra-options* (list "--gc-keep-derivations=yes"
+			       "--gc-keep-outputs=yes")))
     (guix-configuration (inherit configuration)
+			(channels %default-channels*)
+			(authorized-keys %default-authorized-guix-keys*)
+			(substitute-urls %default-substitute-urls*)
 			(extra-options extra-options*))))
 
 ;; record login-configuration ->