(define-module (services guix channels)
  #:use-module (gnu packages package-management)
  #:use-module (gnu services)
  #:use-module (gnu services base)
  #:use-module (guix channels))

;;; DATA

(define deployment-commit
  "c24ce7cb11e74da13d491f9de3c4b7040a069f43")

(define deployment-url
  "https://git.marekpasnikowski.pl/git/deployment.git")

(define distribution-commit
  "7d17bded11ef1239592e6e5abd40ceee1e99cbb8")

(define distribution-url
  "https://git.marekpasnikowski.pl/git/distribution.git")

(define marekpasnikowski-fingerprint
  (openpgp-fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F"))

(define nonguix-commit
  "897c1a470da759236cc11798f4e0a5f7d4d59fbc")

(define nonguix-url
  "https://gitlab.com/nonguix/nonguix")

(define nonguix-fingerprint
  (openpgp-fingerprint "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))

;;; ABSTRACTION 3

(define deployment-introduction
  (make-channel-introduction deployment-commit
			     marekpasnikowski-fingerprint))

(define distribution-introduction
  (make-channel-introduction distribution-commit
			     marekpasnikowski-fingerprint))

(define nonguix-introduction
  (make-channel-introduction nonguix-commit
			     nonguix-fingerprint))

;;; ABSTRACTION 2

(define deployment
  (channel (name 'deployment)
	   (url deployment-url)
	   (introduction deployment-introduction)))

(define distribution
  (channel (name 'distribution)
	   (url distribution-url)
	   (introduction distribution-introduction)))

(define nonguix
  (channel (name 'nonguix)
	   (url nonguix-url)
	   (introduction nonguix-introduction)))

;;; ABSTRACTION 1

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

;;; PUBLIC

(define-public (channels config)
  (guix-configuration (inherit config)
		      (channels distribution-channels)
		      (guix (guix-for-channels distribution-channels))))