blob: 01a80f66f99dadf481abca0a48d56509c1d70576 (
plain)
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
49
50
51
52
53
54
55
56
57
58
59
|
(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"))
;;; 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))
;;; 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 guix*
(channel (name 'guix)
(branch "private")
(url "https://git.marekpasnikowski.pl/git/guix.git")
(introduction guix*-introduction)))
;;; Channel lists
(define izumi-channels
(list deployment distribution guix*))
;;; Channel services
(define-public izumi-channels-service-type
(service home-channels-service-type
izumi-channels))
;;; Testing data
izumi-channels
|
