(use-modules (gnu)
             ((gnu packages anthy) #:select (anthy))
             ((gnu packages certs) #:select (nss-certs))
             ((gnu packages gnome) #:select (gvfs))
             ((gnu packages file-systems) #:select (davfs2))
             ((gnu packages ibus) #:select (ibus ibus-anthy))
             ((gnu packages wm) #:select (i3-wm))
             ((gnu services desktop) #:select (xfce-desktop-service-type %desktop-services))
             ((gnu services xorg) #:select (set-xorg-configuration xorg-configuration))
             (gnu system)
             (rnrs io ports))
(use-modules (nongnu packages linux)
             (nongnu system linux-initrd))

(define %utils
  (list anthy davfs2 gvfs i3-wm ibus ibus-anthy nss-certs))

(define (read-file file-path)
  (get-string-all (open-input-file file-path)))

(define (xfce-desktop-services os)
  (append
    (list
      (service xfce-desktop-service-type)
      (set-xorg-configuration
        (xorg-configuration
          (keyboard-layout (operating-system-keyboard-layout os))
          (extra-config (list (read-file "touchpad.conf"))))))
    %desktop-services))

(define (install-to root-fs)
  (operating-system
    (locale "fr_FR.utf8")
    (timezone "Europe/Paris")
    (keyboard-layout (keyboard-layout "fr" "bepo" #:options '("ctrl:swapcaps")))
    (host-name "stub")
    (users (cons* (user-account
                    (name "kook")
                    (comment "Grou-grou")
                    (group "users")
                    (home-directory "/home")
                    (supplementary-groups
                      '("wheel" "netdev" "audio" "video" "kvm")))
                  %base-user-accounts))
    (packages
      (append %utils %base-packages))
    (bootloader
      (bootloader-configuration
        (bootloader grub-efi-bootloader)
        (targets '("/boot/efi"))
        (keyboard-layout keyboard-layout)))
    (file-systems
      (cons (file-system
               (mount-point "/")
               (device root-fs)
               (type "ext4"))
            %base-file-systems))))