;; This is an operating system configuration template
;; for a "desktop" setup without full-blown desktop
;; environments.

(use-modules (gnu)
             (gnu system nss))
(use-service-modules desktop xorg avahi dbus networking)
(use-package-modules wm ratpoison certs suckless emacs guile-wm)

(operating-system
  (host-name "guix")
  (timezone "America/New_York")
  (locale "en_US.UTF-8")

  (bootloader (grub-configuration (device "/dev/sda")))

  (file-systems
   (cons* (file-system
           (type "ext4")
           (mount-point "/home")
           (title 'label)
           (device "home"))
          (file-system
           (device "guix")
           (title 'label)
           (mount-point "/")
           (type "ext4"))
          %base-file-systems))

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

    (packages (cons* emacs
                     guile-wm
                     ratpoison            ;window managers
                     nss-certs            ;for HTTPS access
                     %base-packages))

  ;; Use the "desktop" services, which include the X11
  ;; log-in service, networking with Wicd, and more.
  ;;(services %desktop-services)
  (services (cons*
             (slim-service)
             (screen-locker-service slock "slock")
             ;; D-Bus
             (avahi-service)
             ;; TODO: connman doesn't work here because it's not a service (just a plain package, I think)
             (wicd-service)
             (udisks-service)
             (upower-service)
             (colord-service)
             (geoclue-service)
             (polkit-service)
             (elogind-service)
             (dbus-service)

             (ntp-service)
             %base-services))

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