blob: ef9a769b6f9b0490cc5e32803f126b14312e89ec (
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
|
(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))))
|
