summaryrefslogtreecommitdiff
path: root/channels.scm
blob: 9fca31884b040d574b5bb8b819754b2cc56bd93d (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
( define-module ( channels )
  #:use-module ( gnu home services guix )
  #:use-module ( gnu services )
  #:use-module ( guix channels ) )

( define deployment
  ( let
      ( ( introduction
	  ( make-channel-introduction
	    "c24ce7cb11e74da13d491f9de3c4b7040a069f43"
	    ( openpgp-fingerprint
	      "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F" ) ) )
	( name 'deployment )
	( url "https://git.marekpasnikowski.pl/git/deployment.git" ) )
    ( channel
      ( introduction introduction )
      ( name name )
      ( url url ) ) ) )

( define guix
  ( let
      ( ( introduction
	  ( make-channel-introduction
	    "9edb3f66fd807b096b48283debdcddccfea34bad"
	    ( openpgp-fingerprint
	      "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA" ) ) )
	( name 'guix )
	( url "https://git.savannah.gnu.org/git/guix.git" ) )
    ( channel
      ( introduction introduction )
      ( name name )
      ( url url ) ) ) )

(define ruby-nano-bots
  (let ((branch "guix")
	(commit "92135778711a5496de7988a40c1aec95a41e16d7")
	(fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F")
	(name 'ruby-nano-bots)
	(url "https://git.marekpasnikowski.pl/git/ruby-nano-bots.git"))
    (let ((key (openpgp-fingerprint fingerprint)))
      (channel (branch branch)
	       (introduction (make-channel-introduction commit key))
	       (name name)
	       (url url)))))

( define-public izumi-channels-service-type
  ( service home-channels-service-type ( list deployment guix ruby-nano-bots ) ) )