blob: 0dbd44042ab15e5ebb3668df77ed035b12e56d0c (
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
89
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-FileCopyrightText: 2026 Marek Paśnikowski <marek@marekpasnikowski.pl>
;;; COPYRIGHT NOTICE
;;;
;;; Copyright 2026, Marek Paśnikowski <marek@marekpasnikowski.pl>
;;; LICENSE NOTICE
;;;
;;; This library is free software: you can redistribute it and/or modify it under the terms of
;;; the GNU General Public License as published by the Free Software Foundation,
;;; either version 3 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
;;; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
;;; See the GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License along with this library.
;;; If not, see <https://www.gnu.org/licenses/>.
(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)))
;;; Channel lists
(define aisaka-channels
(append %default-channels
(list deployment
distribution)))
(define izumi-channels
(append %default-channels
(list deployment
distribution)))
;;; Channel services
(define-public aisaka-channels-service-type
(simple-service 'aisaka-channels
home-channels-service-type
aisaka-channels))
(define-public izumi-channels-service-type
(simple-service 'izumi-channels
home-channels-service-type
izumi-channels))
|
