;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules (gnu))
(use-service-modules cups desktop networking ssh xorg docker dbus)

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

  ;; The list of user accounts ('root' is implicit).
  (users
    (cons* (user-account
             (name "bartronx7")
             (comment "bartronx7")
             (group "users")
             (home-directory "/home/bartronx7")
             (supplementary-groups '("wheel" "netdev" "audio" "video" "www-data" "docker")))
           %base-user-accounts))

  ;; Below is the list of system services.  To search for available
  ;; services, run 'guix system search KEYWORD' in a terminal.
  (services
   (append (list
      ;; To configure OpenSSH, pass an 'openssh-configuration'
      ;; record as a second argument to 'service' below.
      (service openssh-service-type)
      (service dhcp-client-service-type)
      (service ntp-service-type)
      (service elogind-service-type
        (elogind-configuration (handle-suspend-key 'ignore)))
      (service dbus-root-service-type)
      (service containerd-service-type)
      (service docker-service-type (docker-configuration
        (environment-variables (list
          "TMPDIR=/tmp/dockerd")))))

           ;; This is the default list of services we
           ;; are appending to.
       %base-services))

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

  ;; The devices that make up the luks "docs" labelled filesystem
  (mapped-devices
   (list (mapped-device
          (source (uuid "cf6bafca-b225-46ca-8dfc-b82fb6ab5560"))
          (target "doc1")
          (type luks-device-mapping))
        (mapped-device
          (source (uuid "05f833fb-1c68-4453-9df5-68a454f59845"))
          (target "doc2")
          (type luks-device-mapping))))

  ;; The list of file systems that get "mounted".  The unique
  ;; file system identifiers there ("UUIDs") can be obtained
  ;; by running 'blkid' in a terminal.
  (file-systems
    (cons*  (file-system
              (mount-point "/")
              (device (file-system-label "guixos"))
              (type "btrfs"))

            (file-system
              (mount-point "/data")
              (device (file-system-label "datapool"))
              (type "btrfs"))

            (file-system
              (mount-point "/docs")
              (device "/dev/mapper/doc1")
              (type "btrfs"))

            %base-file-systems)))