(use-modules ((gnu) #:select (use-package-modules use-service-modules))
	     ((gnu bootloader) #:select (bootloader-configuration))
	     ((gnu bootloader grub) #:select (grub-bootloader))
	     ((gnu packages base) #:select (coreutils))
	     ((gnu packages android) #:select (android-udev-rules))
	     ((gnu services base)
	      #:select
	      (guix-configuration
	       guix-service-type
	       udev-configuration
	       udev-configuration-rules
	       udev-service-type))
	     ((gnu services xorg)
	      #:select
	      (gdm-configuration
	       gdm-service-type
	       ;;slim-configuration
	       ;;slim-service-type
	       xorg-configuration))
	     ((gnu system file-systems)
	      #:select (file-system %base-file-systems))
	     ((gnu system keyboard) #:select (keyboard-layout))
	     ((gnu system nss) #:select (%mdns-host-lookup-nss))
	     ((guix gexp) #:select (file-append)))
(use-service-modules desktop)
(use-package-modules certs gnome)

(operating-system
  (host-name "targaryen")
  (timezone "America/New_York")

  (keyboard-layout (keyboard-layout "us" "dvorak"))

  (bootloader
   (bootloader-configuration (bootloader grub-bootloader)
			     (target "/dev/sda")
			     (keyboard-layout keyboard-layout)))

  (file-systems
   (cons
    (file-system (device "my-root")
		 (mount-point "/")
		 (type "ext4")
		 (title 'label))
    %base-file-systems))

  ;; Needed to connect to a phone.
  (groups (cons (user-group (name "adbusers") (system? #t)) %base-groups))

  (users
   (cons
    (user-account (name "luther")
		  (comment "Luther Thompson")
		  (group "users")
		  (supplementary-groups
		   '("wheel" "netdev" "audio" "video" "cdrom" "adbusers"))
		  (home-directory "/home/luther"))
    %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   %base-packages))

  (services
   (cons* (service gnome-desktop-service-type)
	  (extra-special-file "/usr/bin/env" (file-append coreutils "/bin/env"))
	  (modify-services %desktop-services
	    (udev-service-type config =>
			       (udev-configuration (inherit config)
						   (rules
						    (cons*
						     android-udev-rules
						     (udev-configuration-rules
						      config)))))
	    (gdm-service-type config =>
			      (gdm-configuration
			       (xorg-configuration
				(xorg-configuration
				 (keyboard-layout
				  keyboard-layout)
				 (extra-config
				  '(
"Section \"InputClass\"
	Identifier \"Touchpads\"
	Driver \"libinput\"
	MatchIsTouchpad \"on\"
	Option \"DisableWhileTyping\" \"on\"
	Option \"HorizontalScrolling\" \"off\"
	Option \"Tapping\" \"on\"
EndSection"))))))
	    (guix-service-type config =>
			       (guix-configuration
				(inherit config)
				(substitute-urls
				 '("https://ci.guix.info"
				   "https://berlin.guixsd.org"
				   "https://mirror.hydra.gnu.org"
				   "https://hydra.gnu.org")))))))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss)

  (swap-devices '("/swapfile")))


;; Local Variables:
;; eval: (guix-devel-mode 1)
;; End: