(use-modules
  (gnu)
  (gnu packages)
  (gnu system nss)
  (srfi srfi-1))
(use-service-modules desktop networking ssh xorg)
(use-package-modules shells)

(operating-system
  (host-name "guix")
  (timezone "America/Toronto")
  (locale "en_US.utf8")
  (keyboard-layout (keyboard-layout "us"))

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

  (initrd-modules
    (append '("virtio_scsi") %base-initrd-modules))

  (swap-devices (list "/dev/sda2"))

  (file-systems
    (cons* (file-system
             (mount-point "/")
             (device
               (uuid "f354b908-fd6f-46c9-931b-2bebaac61b56"
                     'ext4))
             (type "ext4"))
           %base-file-systems))

  (users (cons (user-account
                (name "collin")
                (comment "Master User")
                (group "users")
	        (shell #~(string-append #$zsh "/bin/zsh"))
                (supplementary-groups
                  '("wheel" "netdev" "audio" "video"))
                (home-directory "/home/collin"))
               %base-user-accounts))

  ;; "ratpoison" "xmonad" "ghc-xmonad-contrib" "xmobar" "dmenu"
  ;; "xterm" "stumpwm" "rofi"
  ;; "xsetroot" "xrandr" "emacs-exwm"
  (packages
    (append
      (map specification->package
        '("nss-certs"
          "recutils"
          "openssh"
          "tmux"
          "emacs"
          "emacs-guix"))
      %base-packages))

  (services
   (append
    (list (service openssh-service-type))
    (remove (lambda (service)
    	      (eq? (service-kind service) gdm-service-type))
    	    %desktop-services)))

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