;; -*- geiser-scheme-implementation: guile -*-

(use-modules (gnu)
	     (gnu packages cups)
	     (gnu packages gnome)
	     (gnu packages scanner))

(use-service-modules desktop networking ssh xorg cups)

(operating-system
 (locale "en_US.utf8")
 (timezone "America/Anchorage")
 (keyboard-layout
  (keyboard-layout "us" "altgr-intl" #:options '("ctrl:swapcaps")))
 (bootloader
  (bootloader-configuration
   (bootloader grub-bootloader)
   (targets (list "/dev/sda"))
   (keyboard-layout keyboard-layout)))
 (kernel-arguments (cons "cpufreq.default_governor=conservative"
			 %default-kernel-arguments))
 (mapped-devices
    (list (mapped-device
            (source
              (uuid "32325179-3734-4223-9d4a-fe15aeca876a"))
            (target "cryptroot")
            (type luks-device-mapping))))
  (file-systems
    (cons* (file-system
             (mount-point "/")
             (device "/dev/mapper/cryptroot")
             (type "ext4")
             (dependencies mapped-devices))
;	   %fuse-control-file-system
           %base-file-systems))
  (host-name "theoden")
  (users (cons* (user-account
		 (name "christopher")
		 (comment "Christopher Howard")
		 (group "users")
		 (home-directory "/home/christopher")
		 (supplementary-groups
		  '("wheel" "netdev" "audio" "video"
		    "dialout" "lp" "disk" "floppy"
		    "cdrom" "lpadmin" "kvm")))
		%base-user-accounts))
  (packages
   (append
    (list
     (list (specification->package "bind") "utils"))
   (append
    (map specification->package
	 '("cups"
	   "dosfstools"
	   "ed"
	   "evolution"
	   "evolution-data-server"
	   "file"
	   "font-adobe-source-code-pro"
	   "font-dejavu"
	   "font-fantasque-sans"
	   "font-fira-mono"
           "font-ghostscript"
	   "font-gnu-freefont"
	   "font-google-noto"
	   "font-hermit"
	   "font-inconsolata"
	   "font-mononoki"
	   "font-tamzen"
           "gnome-dictionary"
	   "gnome-maps"
	   "gnome-tweaks"
	   "gsettings-desktop-schemas"
	   "mg"
	   "neofetch"
	   "nss-certs"
	   "procenv"
	   "recutils"
	   "sane-backends"
	   "screen"
	   "seahorse"
	   "s-tui"
	   "simple-scan"
	   "torsocks"
	   "tmon"
	   "tree"
	   "turbostat"
	   "wget"))
   %base-packages)))

 (services
  (modify-services
   (cons*
    (service gnome-desktop-service-type)
    (service tor-service-type)
    (rngd-service)
    (service openssh-service-type)
    (set-xorg-configuration
     (xorg-configuration
      (keyboard-layout keyboard-layout)))
    (service cups-service-type
	     (cups-configuration
	      (web-interface? #t)
	      (log-level 'debug)
	      (access-log-level 'all)
	      (extensions
	       (list hplip-minimal cups-filters))))
    (udev-rules-service
     'usbasp
     (udev-rule
      "99-USBasp.rules"
      (string-append
       "SUBSYSTEM==\"usb\", ENV{DEVTYPE}==\"usb_device\", "
       "ATTRS{idVendor}==\"16c0\", ATTRS{idProduct}==\"05dc\", "
       "MODE=\"0666\"")))
    %desktop-services)
   (udev-service-type
    config =>
    (udev-configuration
     (inherit config)
     (rules (cons sane-backends
		  (udev-configuration-rules config)))))
   (guix-service-type
    config =>
    (guix-configuration
     (inherit config)
     (extra-options (list "--gc-keep-outputs=yes")))))))