Implement channels for aisaka system

1 files changed, 24 insertions, 0 deletions

diff --git a/channels.scm b/channels.scm
index 01a80f6..ac8feb4 100644
--- a/channels.scm
+++ b/channels.scm
@@ -11,6 +11,9 @@
 (define mbakke-fingerprint
   (openpgp-fingerprint "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))
 
+(define nonguix-fingerprint
+  (openpgp-fingerprint "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))
+
 ;;; Introductions
 
 (define deployment-introduction
@@ -25,6 +28,10 @@
   (make-channel-introduction "9edb3f66fd807b096b48283debdcddccfea34bad"
 			     mbakke-fingerprint))
 
+(define nonguix-introduction
+  (make-channel-introduction "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+			     nonguix-fingerprint))
+
 ;;; Channels
 
 (define deployment
@@ -37,19 +44,36 @@
 	   (url "https://git.marekpasnikowski.pl/git/distribution.git")
 	   (introduction distribution-introduction)))
 
+(define jeko
+  (channel (name 'jeko)
+	   (url "https://framagit.org/Jeko/guix-jeko-channel.git")))
+
 (define guix*
   (channel (name 'guix)
 	   (branch "private")
 	   (url "https://git.marekpasnikowski.pl/git/guix.git")
 	   (introduction guix*-introduction)))
 
+(define nonguix
+  (channel (name 'nonguix)
+	   (url "https://gitlab.com/nonguix/nonguix")
+	   (introduction nonguix-introduction)))
+
 ;;; Channel lists
 
+(define aisaka-channels
+  (list deployment jeko nonguix))
+
 (define izumi-channels
   (list deployment distribution guix*))
 
 ;;; Channel services
 
+(define-public aisaka-channels-service-type
+  (simple-service 'aisaka-channels
+		  home-channels-service-type
+		  aisaka-channels))
+
 (define-public izumi-channels-service-type
   (service home-channels-service-type
 	   izumi-channels))