Restore the original channels.scm file

1 files changed, 83 insertions, 0 deletions

diff --git a/channels.scm b/channels.scm
new file mode 100644
index 0000000..ac8feb4
--- /dev/null
+++ b/channels.scm
@@ -0,0 +1,83 @@
+(define-module (channels)
+  #:use-module (gnu home services guix)
+  #:use-module (gnu services)
+  #:use-module (guix channels))
+
+;;; Fingerprints
+
+(define marekpasnikowski-fingerprint
+  (openpgp-fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F"))
+
+(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
+  (make-channel-introduction "c24ce7cb11e74da13d491f9de3c4b7040a069f43"
+			     marekpasnikowski-fingerprint))
+
+(define distribution-introduction
+  (make-channel-introduction "15ba1286801750b81c61f7e064c2ee639050c5c4"
+			     marekpasnikowski-fingerprint))
+
+(define guix*-introduction
+  (make-channel-introduction "9edb3f66fd807b096b48283debdcddccfea34bad"
+			     mbakke-fingerprint))
+
+(define nonguix-introduction
+  (make-channel-introduction "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+			     nonguix-fingerprint))
+
+;;; Channels
+
+(define deployment
+  (channel (name 'deployment)
+	   (url "https://git.marekpasnikowski.pl/git/deployment.git")
+	   (introduction deployment-introduction)))
+
+(define distribution
+  (channel (name 'distribution)
+	   (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))
+
+;;; Testing data
+
+izumi-channels