guix-config/config.scm

(use-modules
 (gnu)
 (gnu packages shells)
 (guix profiles)
 (guix packages)
 (srfi srfi-1))
(use-service-modules desktop docker networking ssh xorg)

(define (manifest->packages manifest)
  "Return the list of packages in MANIFEST."
  (filter-map (lambda (entry)
                (let ((item (manifest-entry-item entry)))
                  (if (package? item) item #f)))
              (manifest-entries manifest)))

(operating-system
  (locale "en_CA.utf8")
  (timezone "America/Toronto")
  (keyboard-layout
    (keyboard-layout "us" "altgr-intl"))
  (bootloader
    (bootloader-configuration
      (bootloader grub-efi-bootloader)
      (target "/boot/efi")
      (keyboard-layout keyboard-layout)))
  (mapped-devices
    (list (mapped-device
            (source
              (uuid "a3557b80-26cb-4fa9-8861-3dba1f6b1aa2"))
            (target "cryptroot")
            (type luks-device-mapping))))
  (file-systems
    (cons* (file-system
             (mount-point "/boot/efi")
             (device (uuid "76BA-85FB" 'fat32))
             (type "vfat"))
           (file-system
             (mount-point "/")
             (device "/dev/mapper/cryptroot")
             (type "ext4")
             (dependencies mapped-devices))
           %base-file-systems))
  (host-name "guixsd")
  (users (cons* (user-account
                  (name "collin")
                  (comment "Collin Doering")
                  (group "users")
                  (shell #~(string-append #$zsh "/bin/zsh"))
                  (home-directory "/home/collin")
                  (supplementary-groups
                    '("wheel" "docker" "netdev" "audio" "video")))
                %base-user-accounts))

  (packages
    (append
      (manifest->packages
        (specifications->manifest
          '("docker"
            "docker-cli"
            "docker-compose"
            "ratpoison"
	    "nss-certs"
	    "xterm"
	    "recutils"
	    "emacs"
	    "emacs-guix"
	    "emacs-exwm"
	    "graphviz"
	    "tmux"
	    "xterm"
	    "xrandr"
	    "xsetroot")))
	%base-packages))

  (services (cons* (service docker-service-type)
		   %desktop-services)))