(use-modules (gnu)
             (gnu system)
             (nongnu system linux-initrd)
             (nongnu packages linux)
             (guix channels)
	     (guix ui)
	     (guix gexp)
	     (xlibre))
(use-service-modules networking ssh xorg desktop lightdm)
(use-package-modules vim admin version-control admin xfce linux gl)

(define my-xlibre-config
  (xlibre-configuration
    (drivers '("modesetting"))
    (modules (list xlibre-input-libinput))
    (keyboard-layout (keyboard-layout "de"))
    (server-arguments '("-keeptty" "-seat" "seat0" "-nolisten" "tcp"))))

(operating-system
  (host-name "guix")
  (timezone "Europe/Berlin")
  (locale "de_DE.utf8")
  (keyboard-layout
    (keyboard-layout "de"))

  (kernel linux)
  (kernel-arguments
    (cons*
      "consoleblank=60"
      %default-kernel-arguments))
  (initrd microcode-initrd)
  (firmware
    (list
      linux-firmware))

  (bootloader
    (bootloader-configuration
      (bootloader grub-efi-bootloader)
      (targets '("/boot/efi"))))

  (file-systems
    (cons*
      (file-system
        (device (uuid "F870-66B4" 'fat32))
        (mount-point "/boot/efi")
        (type "vfat"))
      (file-system
        (device (uuid "c29e6fef-a781-4c79-a786-622dbd67b3ef"))
        (mount-point "/")
        (type "ext4"))
      %base-file-systems))

  (swap-devices
    (list
      (swap-space
        (target
          (uuid "77d40cde-9081-4f73-8ea8-43185193edf2")))))

  (users
    (cons*
      (user-account
        (name "luke")
        (group "users")
        (supplementary-groups '("wheel" "netdev" "audio" "video" "tty" "input"))
        (home-directory "/home/luke"))
      %base-user-accounts))

  (packages
    (append
      (list
        neovim
	netcat
        btop
        git
        xlibre-server
        xlibre-input-libinput
	xfce
	bluez
	mesa
	mesa-utils)
      %base-packages))

  (services
    (append
      (list
	(service openssh-service-type)
	(service xfce-desktop-service-type)
        (service slim-service-type
          (slim-configuration (auto-login? #f)
                              (xorg-configuration my-xlibre-config)
                              (vt "vt7")
                              (display ":0"))))
      (modify-services %desktop-services
	;; replaced by slim
        (delete gdm-service-type)))))
        ;; hibernate / poweroff only
        ;;(elogind-service-type config =>
        ;;  (elogind-configuration
        ;;    (inherit config)
        ;;    (handle-lid-switch 'hibernate)
        ;;    (handle-lid-switch-external-power 'hibernate)
        ;;    (handle-lid-switch-docked 'ignore)
        ;;    (handle-power-key 'poweroff)
        ;;    (handle-suspend-key 'hibernate)
        ;;    (idle-action 'hibernate)
        ;;    (idle-action-seconds (* 30 60))
        ;;    (lid-switch-ignore-inhibited? #t)))))))