(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 "7d17bded11ef1239592e6e5abd40ceee1e99cbb8"
			     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
  (append (list deployment
		jeko
		nonguix)
	  %default-channels))

(define izumi-channels
  (append (list deployment
		distribution)
	  %default-channels))

;;; Channel services

(define-public aisaka-channels-service-type
  (simple-service 'aisaka-channels
		  home-channels-service-type
		  aisaka-channels))

(define-public izumi-channels-service-type
  (simple-service 'izumi-channels
		  home-channels-service-type
		  izumi-channels))

;;; Testing data

aisaka-channels