Update tachikoma

Julien LepillerMon Apr 18 11:15:05+0200 2022

48e2f4c

Update tachikoma

systems/tachikoma.scm

1919 
(use-modules (gnu system))
2020 
(use-modules (gnu bootloader) (gnu bootloader grub))
2121 
(use-modules (gnu services dns))
22+
(use-modules (gnu services docker))
2223 
(use-modules (gnu services linux))
2324 
(use-modules (gnu services sound))
2425 
(use-modules (gnu services virtualization))
26+
(use-modules (gnu services xorg))
2527 
(use-modules (config os))
2628 
2729 
(let ((system (tyreunom-desktop-os "tachikoma")))
…
2931 
    (inherit system)
3032 
    (bootloader
3133 
      (bootloader-configuration
32-
        (target "/dev/sda")
34+
        (targets '("/dev/sda"))
3335 
        (bootloader grub-bootloader)))
3436 
    (mapped-devices
3537 
      (list (mapped-device
…
4850 
                 (user-account
4951 
                   (inherit user)
5052 
                   (supplementary-groups
51-
                     (cons "libvirt" (user-account-supplementary-groups user))))
53+
                     (cons* "docker" "libvirt" (user-account-supplementary-groups user))))
5254 
                 user))
5355 
             (operating-system-users system)))
5456 
    (services
…
6365 
        (service virtlog-service-type
6466 
                 (virtlog-configuration
6567 
                   (max-clients 1000)))
66-
	(service dnsmasq-service-type
67-
	  (dnsmasq-configuration
68-
	    (no-resolv? #t)
69-
	    (servers '("80.67.169.12"
70-
		       "80.67.169.40"
71-
		       "2001:910:800::12"
72-
		       "2001:910:800::40"))))
68+
        (service docker-service-type)
69+
        (service dnsmasq-service-type
70+
          (dnsmasq-configuration
71+
            (no-resolv? #t)
72+
            (servers '("80.67.169.12"
73+
                       "80.67.169.40"
74+
                       "2001:910:800::12"
75+
                       "2001:910:800::40"))))
76+
        (set-xorg-configuration
77+
          (xorg-configuration
78+
            (keyboard-layout (keyboard-layout "fr" "bepo"))
79+
            (extra-config
80+
              '("\n\nSection \"Device\""
81+
                "  Identifier \"modesetting\""
82+
                "  Driver \"modesetting\""
83+
                "  Option \"TearFree\" \"true\""
84+
                "EndSection"
85+
                "\n"))))
7386 
        (modify-services desktop-services
74-
	  (guix-service-type config =>
75-
	    (guix-configuration
76-
	      (inherit config)
77-
	      (authorized-keys
78-
		(cons*
79-
		  (local-file "../keys/ene.pub")
80-
		  (local-file "../keys/xana.pub")
81-
		  (local-file "../keys/cs-pc.pub")
82-
		  %default-authorized-guix-keys))))
87+
          (guix-service-type config =>
88+
            (guix-configuration
89+
              (inherit config)
90+
              (authorized-keys
91+
                (cons*
92+
                  (local-file "../keys/ene.pub")
93+
                  (local-file "../keys/xana.pub")
94+
                  (local-file "../keys/cs-pc.pub")
95+
                  %default-authorized-guix-keys))))
8396 
          (pulseaudio-service-type config =>
84-
	    (pulseaudio-configuration
85-
	      (inherit config)
97+
            (pulseaudio-configuration
98+
              (inherit config)
8699 
              (script-file
87100 
                (local-file "../files/pulse-default.pa")))))))))