channels.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

(define-module (channels)
  #:use-module (gnu home services guix)
  #:use-module (gnu services)
  #:use-module (guix channels))

(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 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 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 guix*
  (channel
   (name 'guix)
   (branch "private")
   (url "https://git.marekpasnikowski.pl/git/guix.git")
   (introduction guix*-introduction)))

(define-public izumi-channels-service-type
  (service
   home-channels-service-type
   (list deployment distribution guix*)))

(list deployment distribution guix*)