#:use-module (gnu system)

  #:use-module (gnu system accounts)

  #:use-module (gnu system file-systems)

  #:use-module (gnu system locale)

  #:use-module (gnu system shadow)

  #:use-module (guix gexp)

(define (server-services host-name)

  (cons*

    (service ntp-service-type)

    (service openssh-service-type

	     (openssh-configuration

          (substitute-urls '("https://berlin.guixsd.org"

                             "https://mirror.hydra.gnu.org")))))))

(define desktop-services

  (cons*

    (simple-service 'dconf dbus-root-service-type (list dconf))

    (service tor-service-type)

    (service qemu-binfmt-service-type

	  (inherit config)

	  (rules (cons* android-udev-rules

			(udev-configuration-rules config)))))

	  (inherit config)

      (guix-service-type config =>

        (guix-configuration

          (inherit config)

    (host-name host-name)

    (timezone "Europe/Paris")

    (locale "fr_FR.UTF-8")

    (bootloader #f)

    (file-systems %base-file-systems)

    (users (cons (user-account