summaryrefslogtreecommitdiff
path: root/channels.scm
blob: f346bcd53984d8f3708a7f4af48928e087881701 (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
( 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-babosa
  (let ((branch "guix")
	(commit "002e14e888b1af50c77e30849edb62cc416397cf")
	(fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F")
	(name 'ruby-babosa)
	(url "https://git.marekpasnikowski.pl/git/babosa.git"))
    (let ((key (openpgp-fingerprint fingerprint)))
      (channel (branch branch)
	       (introduction (make-channel-introduction commit key))
	       (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-babosa
					    ruby-nano-bots)))