blob: c84a0d04b71148d387cf89f879a58be3beb45e27 (
about) (
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
(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
(service home-channels-service-type
izumi-channels))
;;; Testing data
izumi-channels
|
