;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.

(use-modules 
	(gnu) 
	(gnu system nss) 
	(guix store))
(use-service-modules desktop pm xorg)
(use-package-modules certs mate gnome)

(operating-system
  (host-name "antelope")
  (timezone "Europe/Paris")
  (locale "sv_SE.utf8")

  ;; Assuming /dev/sda is the target hard disk, and "my-root"
  ;; is the label of the target root file system.
  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")
		(menu-entries
			(menu-entry
				(label "Ubuntu 16.04")
				(linux "/boot/vmlinuz-4.4.0-128-generic")
				(linux-arguments '("root=/dev/sda5"))
				(initrd "/boot/initrd.img-4.4.0-128-generic")))))

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

  (users (cons (user-account
                (name "swedebugia")
                (comment "Alice's brother")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/swedebugia"))
               %base-user-accounts))

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

  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with Wicd,
  ;; and more.
  (services (cons* 
		(slim-configuration
			(auto-login? #t)
			(default-user "swedebugia")
			(auto-login-session "xfdesktop"))
		(guix-configuration
;			#:authorize-keys (cons "/home/swedebugia/berlin.guixsd.org.pub"
;						%default-authorized-guix-keys)
			(substitute-urls (cons	"https://berlin.guixsd.org"
						%default-substitute-urls)))
		;; Is this correct?
;		(tlp-servicy-type
;			(tlp-configuration
;				;; Should I use parenteses instead of "#:"?
;				(cpu-scaling-govenor-on-ac (list "conservative"))
;				(cpu-scaling-govenor-on-bat (list "conservative"))))
		(xfce-desktop-service)
                   %desktop-services))

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