config.scm: Enable docker daemon and other minor updates

config.scm

@@ -1,74 +1,76 @@
-;; Guixsd System Wide Configuration
+(use-modules
+ (gnu)
+ (gnu packages shells)
+ (guix profiles)
+ (guix packages)
+ (srfi srfi-1))
+(use-service-modules desktop docker networking ssh xorg)
 
-(use-modules (gnu)
+(define (manifest->packages manifest)
-	     (gnu system nss))
+  "Return the list of packages in MANIFEST."
-(use-service-modules desktop docker)
+  (filter-map (lambda (entry)
-(use-package-modules admin bootloaders certs curl databases docker dns
+                (let ((item (manifest-entry-item entry)))
-		     emacs emacs-xyz engineering file fonts fontutils ghostscript gnuzilla
+                  (if (package? item) item #f)))
-		     guile graphviz golang image image-viewers
+              (manifest-entries manifest)))
-		     networking mpd package-management pdf pulseaudio
-		     python-web ratpoison ruby rust scheme shells shellutils
-		     ssh suckless terminals tmux version-control virtualization wm xorg)
 
 (operating-system
-  (host-name "antelope")
+  (locale "en_CA.utf8")
   (timezone "America/Toronto")
-  (locale "en_US.utf8")
+  (keyboard-layout
-
+    (keyboard-layout "us" "altgr-intl"))
-  (bootloader (bootloader-configuration
+  (bootloader
-                (bootloader grub-bootloader)
+    (bootloader-configuration
-                (target "/dev/sda")))
+      (bootloader grub-efi-bootloader)
-
+      (target "/boot/efi")
-  (file-systems (cons* (file-system
+      (keyboard-layout keyboard-layout)))
-                         (device (uuid "a0a2ee18-9a8d-4bd5-995f-361aaa4d220e" 'ext4))
+  (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 "/")
-                         (type "ext4"))
+             (device "/dev/mapper/cryptroot")
+             (type "ext4")
+             (dependencies mapped-devices))
            %base-file-systems))
-
+  (host-name "guixsd")
-  (users (cons (user-account
+  (users (cons* (user-account
                   (name "collin")
-                (comment "Master user")
+                  (comment "Collin Doering")
                   (group "users")
-                (supplementary-groups '("wheel" "docker" "netdev"
+                  (shell #~(string-append #$zsh "/bin/zsh"))
-                                        "audio" "video"))
                   (home-directory "/home/collin")
-		(shell #~(string-append #$zsh "/bin/zsh")))
+                  (supplementary-groups
+                    '("wheel" "docker" "netdev" "audio" "video")))
                 %base-user-accounts))
 
-  (packages (cons* ratpoison dmenu
+  (packages
-                   nss-certs
+    (append
-		   recutils
+      (manifest->packages
-		   file htop
+        (specifications->manifest
-                   emacs emacs-guix emacs-magit emacs-geiser
+          '("docker"
-		   zsh direnv tmux kitty
+            "docker-cli"
-		   docker docker-cli docker-compose
+            "docker-compose"
-		   kicad kicad-symbols kicad-library
+            "ratpoison"
-                   ;; Broken:
+	    "nss-certs"
-                   ;; skopeo bind:utils
+	    "xterm"
-                   ;; Missing:
+	    "recutils"
-		   ;; exa bat terraform fzf
+	    "emacs"
-		   ;; ghdl gtkwave
+	    "emacs-guix"
-		   feh imlib2
+	    "emacs-exwm"
-		   gs-fonts font-dejavu font-gnu-freefont-ttf
+	    "graphviz"
-		   mpd ncmpcpp
+	    "tmux"
-		   aircrack-ng
+	    "xterm"
-		   pulseaudio pulsemixer
+	    "xrandr"
-		   icecat fontconfig
+	    "xsetroot")))
-		   curl openssh
-		   ansible awscli
-		   rust go ruby
-		   racket guile-readline
-		   graphviz
-		   zathura zathura-pdf-poppler zathura-ps zathura-djvu
-		   stow git
-		   xrdb xrandr
-                   xmonad xmobar
 	%base-packages))
 
-  ;; Use the "desktop" services, which include the X11
-  ;; log-in service, networking with NetworkManager, and more.
   (services (cons* (service docker-service-type)
-		   %desktop-services))
+		   %desktop-services)))
-
-  ;; Allow resolution of '.local' host names with mDNS.
-  (name-service-switch %mdns-host-lookup-nss))