aboutsummaryrefslogtreecommitdiff
path: root/kbg/services/desktop.scm
blob: 0939760f2e1655fed3018fd90d1d19bd081038a4 (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 (kbg services desktop)
  #:use-module (kbg)
  #:use-module (guix)
  #:use-module (gnu services)
  #:use-module (gnu services base)
  #:use-module (gnu services dbus)
  #:use-module (gnu services desktop)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages networking)
  #:use-module (gnu services networking)
  #:use-module (gnu services sound)
  #:use-module (gnu services xorg)
  #:use-module (gnu packages vpn)
  #:export (%kbg-desktop-services))

(define %kbg-desktop-services
  (modify-services %desktop-services
                   (guix-service-type config =>
                                      (guix-configuration
                                       (inherit config)
                                       (substitute-urls
                                        (append %default-substitute-urls
                                                (list "https://substitutes.nonguix.org"
                                                      "https://substitutes.guix.pyschonotebook.org")))
                                       (authorized-keys
                                        (append %default-authorized-guix-keys
                                                (list (local-file (string-append %dotfiles-root
                                                                                 "keys/guix/substitutes.nonguix.org.pub"))
                                                      (local-file (string-append %dotfiles-root
                                                                                 "keys/guix/substitutes.guix.psychonotebook.org.pub")))))))
                   (network-manager-service-type config =>
                                                 (network-manager-configuration
                                                  (inherit config)
                                                  (vpn-plugins (list network-manager-openvpn
                                                                     network-manager-vpnc
                                                                     network-manager-openconnect))))
                   (gdm-service-type config =>
                                     (gdm-configuration
                                      (inherit config)
                                      (wayland? #t)))
                   (dbus-root-service-type config =>
                                           (dbus-configuration
                                            (inherit config)
                                            (verbose? #f)
                                            (services (list gdm))))
                   (delete pulseaudio-service-type)))