-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathchannels.scm
228 lines (220 loc) · 8.43 KB
/
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
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
;; SPDX-License-Identifier: GPL-3.0-or-later
;; Copyright © 2021-2025 Nicolas Graves <[email protected]>
(use-modules
(guix packages)
(guix gexp)
(guix memoization)
(guix records)
(srfi srfi-26))
;; Pre-definitions. These are actually defined in (guix-stack patchset)
;; and will be overwritten by the (use-modules) if available.
;; This allows us to have a functioning file even in a profile sans guix-stack.
;; I can't move these definitions inside the catch for some reason.
(define maybe-instantiate-channel identity)
(define* (make-patched-channel channel #:optional patches) channel)
(define patchset-fetch identity)
(define-record-type* <patchset-reference>
patchset-reference make-patchset-reference
patchset-reference?
(type patchset-reference-type)
(id patchset-reference-id)
;; A version, when possible, is higly recommended to enhance reproducibility
(version patchset-reference-version
(default 0))
;; here project encompasses repositories (github, gitlab), mailing lists (srht)
(project patchset-reference-project
(default #f)))
(catch #t
(lambda ()
(use-modules (guix-stack patchset))
(display "Module (guix-stack patchset) loaded.\n"))
(lambda (key . args)
(display "Module (guix-stack patchset) not found. Falling back...\n")))
(define %channels
(let* ((cwd (dirname (current-filename)))
(submodule (memoize
(lambda (file)
(let ((path (string-append cwd "/channels/" file)))
(and (file-exists? path) path))))))
(list
(make-patched-channel
(channel
(name 'guix)
(branch "master")
(commit (and (not (submodule "guix"))
"2dc38e493beaabb3f8d8c8b646a9374efc17db67"))
(introduction
(make-channel-introduction
"9edb3f66fd807b096b48283debdcddccfea34bad"
(openpgp-fingerprint
"BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))
(url
(or (submodule "guix")
"https://git.savannah.gnu.org/git/guix.git")))
(list
(origin
(method patchset-fetch)
(uri (patchset-reference
(type 'gnu) (id 65613) (version 1)))
(sha256
(base32
"1sk64pysrfvalj94b05g96gdxkfksdv3rh4q35bzm2syz2rm5pgl")))
(origin ;; emacs-persid
(method patchset-fetch)
(uri (patchset-reference
(type 'gnu) (id 73534) (version 1)))
(sha256
(base32
"1pq92cna75qysvn207i770mk7w5h8gi5dsp0k92vxybhgyi32288")))
(origin ;; guix shell allow/revoke
(method patchset-fetch)
(uri (patchset-reference
(type 'gnu) (id 73166) (version 1)))
(sha256
(base32
"11hw1abma3hvbbhqhzhmr66xbyj0rv7plxjys5n5vgg7rrs6v3r9")))
(origin ;; Decoupling gtk@4 from qtbase@5.
(method patchset-fetch)
(uri (patchset-reference
(type 'gnu) (id 74517) (version 3)))
(sha256
(base32
"1563vrkibmysk2fm4sgyw68s5cp189v0vcbwgc75jzq2mpprynxp")))
(origin ;; Decoupling pipewire from qtbase.
(method patchset-fetch)
(uri (patchset-reference
(type 'gnu) (id 74589) (version 2)))
(sha256
(base32
"02z4b0v8qj1p1rb98yq809m0851v0hd8i9gghq1vjgk1pvwbsk81")))
(local-file "patches/guix-channels-Enable-file-like-channel-instance-checkout.patch")))
(make-patched-channel
(channel
(name 'nonguix)
(url
(or (submodule "nonguix")
"https://gitlab.com/nonguix/nonguix.git"))
(branch "master")
(commit (and (not (submodule "nonguix"))
"6e864249c2025863e18e42587cb42764a99bec27"))
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))))
(make-patched-channel
(channel
(name 'rde)
(branch "master")
(commit (and (not (submodule "rde"))
"bc3d6ea1fef988c0d8c1bd5bf0ab0ae83c148251"))
(introduction
(make-channel-introduction
"257cebd587b66e4d865b3537a9a88cccd7107c95"
(openpgp-fingerprint
"2841 9AC6 5038 7440 C7E9 2FFA 2208 D209 58C1 DEB0")))
(url
(or (submodule "rde")
"https://git.sr.ht/~abcdw/rde")))
(list
(origin ; age password-store
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 36511) (version 2)))
(sha256
(base32 "0rbf59jj7rvqg4k305ppf4g6j137pzd9079qfg4vhhrib0w81296")))
(origin ; SSH option ssh-add-keys
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 40007) (version 1)))
(sha256
(base32 "14blms5ck7pgi4c41m99bqkxpg16xsbnf9x940dxipc2h28hfkfw")))
(origin ; org-roam-todo unecessary sync
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 44345) (version 1)))
(sha256
(base32 "13a21xzj1sgiljm4ffks4dxlmknv58983yg7528zax84dnp5x6vr")))
(origin ; org-roam-file-exclude-regexp
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 39539) (version 4)))
(sha256
(base32 "0c8rf0hwij0rf5grwz596ncyi4l0mainpfkf03mcds6slihd11v6")))
(origin ; sway focus emacs-client frames.
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 47806) (version 1)))
(sha256
(base32 "0fz93dkgsss70dlc1xcgdc3jzjylq2wys0k547h2635dk7322a7z")))
(origin ;; Wrap pass-binary to handle multiline files.
(method patchset-fetch)
(uri (patchset-reference
(type 'srht) (project "~abcdw/rde-devel") (id 53611) (version 2)))
(sha256
(base32 "1xmb838s64h5p4gdhcrqcqszrcbjdmxrxh06akzr8rgdjn9s35ad")))
(local-file "patches/rde-project-Disable-broken-configuration.patch")))
(make-patched-channel
(channel
(name 'odf-dsfr)
(branch "master")
(commit (and (not (submodule "odf-dsfr"))
"af1b66927f2dc968549a978626150b5f2c1afd37"))
(url
(or (submodule "odf-dsfr")
"https://github.com/codegouvfr/odf-dsfr"))))
(make-patched-channel
(channel
(name 'guix-rde)
(branch "master")
(commit (and (not (submodule "guix-rde"))
"97a32354e796324937da35fb6d430fde382fb2fe"))
(url
(or (submodule "guix-rde")
"https://git.sr.ht/~ngraves/guix-rde"))))
(make-patched-channel
(channel
(name 'guix-science)
(branch "master")
(commit (and (not (submodule "guix-science"))
"be44985a2d468ed8bcc09ab4bf320a4e3b6c09be"))
(url
(or (submodule "guix-science")
"https://codeberg.org/guix-science/guix-science"))))
(make-patched-channel
(channel
(name 'guix-science-nonfree)
(branch "master")
(commit (and (not (submodule "guix-science-nonfree"))
"5b8c3f38ee81dd090ca5fdc531eecde248c37c86"))
(url
(or (submodule "guix-science-nonfree")
"https://codeberg.org/guix-science/guix-science-nonfree"))))
(make-patched-channel
(channel
(name 'guix-past)
(branch "master")
(commit (and (not (submodule "guix-past"))
"2d3485b7fd7c1904bc7c1a87fc45048376ff4d3a"))
(url
(or (submodule "guix-past")
"https://codeberg.org/guix-science/guix-past"))))
(make-patched-channel
(channel
(name 'guix-stack)
(branch "master")
(commit (and (not (submodule "guix-stack"))
"67c456cf24e654234ff9e8642d6cf4ac916801fc"))
(url
(or (submodule "guix-stack")
"https://git.sr.ht/~ngraves/guix-stack"))))
(make-patched-channel
(channel
(name 'nrepl-python)
(branch "master")
(commit (and (not (submodule "nrepl-python"))
"67c456cf24e654234ff9e8642d6cf4ac916801fc"))
(url
(or (submodule "nrepl-python")
"https://git.sr.ht/~ngraves/nrepl-python")))))))
(map maybe-instantiate-channel %channels)