Using guix home now

guix/system/channels.scm

@@ -0,0 +1,17 @@
+(list (channel
+       (name 'guix)
+       (url "https://git.savannah.gnu.org/git/guix.git")
+       (introduction
+        (make-channel-introduction
+         "9edb3f66fd807b096b48283debdcddccfea34bad"
+         (openpgp-fingerprint
+          "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))
+
+      (channel
+       (name 'nonguix)
+       (url "https://gitlab.com/nonguix/nonguix")
+       (introduction
+        (make-channel-introduction
+         "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+         (openpgp-fingerprint
+          "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5")))))

guix/system/home-desktop.scm

@@ -0,0 +1,103 @@
+(use-modules (gnu)
+             (gnu services desktop)
+             (gnu packages wm)
+             (gnu system setuid)
+             (gnu packages admin)
+             (nongnu packages linux))
+
+(use-service-modules
+ cups
+ desktop
+ networking
+ ssh
+ sddm
+ xorg)
+
+(operating-system
+ (kernel linux)
+ (firmware (list linux-firmware))
+ (locale "en_US.utf8")
+ (timezone "America/Los_Angeles")
+ (keyboard-layout (keyboard-layout "us"))
+ (host-name "borges")
+ (setuid-programs
+  (cons (setuid-program
+         (program (file-append swaylock "/bin/swaylock")))
+        %setuid-programs))
+ (users (cons* (user-account
+                (name "opal")
+                (comment "opal")
+                (group "users")
+                (home-directory "/home/opal")
+                (supplementary-groups
+                 '("wheel"
+                   "netdev"
+                   "audio"
+                   "video")))
+               %base-user-accounts))
+
+ (packages (append (list git
+                         wl-clipboard
+                         vim
+                         nss-certs
+                         exfat-utils
+                         emacs
+                         sway
+                         swaybg
+                         swaylock
+                         swayidle
+                         dmenu
+                         bluez
+                         bluez-alsa
+                         pulseaudio
+			 openssl
+			 openssh
+			 zsh))
+           %base-packages)
+
+ (services
+  (append (modify-services %desktop-services
+                           (delete gdm-service-type))
+          (list (service sddm-service-type
+                         (sddm-configuration
+                          (display-server "wayland"))))))
+ (bootloader
+  (bootloader-configuration
+   (bootloader grub-efi-bootloader)
+   (targets (list "/boot/efi"))
+   (keyboard-layout keyboard-layout)))
+ (mapped-devices
+  (list (mapped-device
+         (source
+          (uuid "40aa6387-e935-4f70-8e7d-1975678a5a32"))
+         (target "cryptroot")
+         (type luks-device-mapping))))
+ (file-systems
+  (cons* (file-system
+          (mount-point "/")
+          (device "/dev/mapper/cryptroot")
+          (type "btrfs")
+          (dependencies mapped-devices))
+         (file-system
+          (mount-point "/boot/efi")
+          (device (uuid "1C3B-10F5" 'fat32))
+          (type "vfat"))
+         %base-file-systems)))
+
+;; (setuid-programs
+;;    (let ((from (lambda (package file)
+;; 		 (setuid-program (program (file-append package file))))))
+;;      (cons* (from light "/bin/light")
+;; 	    (from mtr "/sbin/mtr")
+;; 	    (from network-manager "/bin/nmtui")
+;; 	    (from nfs-utils "/sbin/mount.nfs")
+;; 	    (from swaylock "/bin/swaylock")
+;; 	    %setuid-programs)))
+
+;; (services (cons* ...
+;;                  (modify-services %desktop-services
+;;                    (gdm-service-type config
+;;                      =;;putabrackethere (gdm-configuration
+;;                          (inherit config)
+;;                          (wayland? #t)
+;;                          (debug? #t))))))

guix/system/work-laptop.scm

@@ -0,0 +1,110 @@
+(use-modules (gnu)
+             (gnu services desktop)
+             (gnu packages wm)
+             (gnu system setuid)
+             (gnu packages admin)
+             (nongnu packages linux))
+
+(use-service-modules
+ cups
+ desktop
+ networking
+ ssh
+ sddm
+ xorg)
+
+(operating-system
+ (kernel linux)
+ (firmware (list linux-firmware))
+ (locale "en_US.utf8")
+ (timezone "America/Los_Angeles")
+ (keyboard-layout (keyboard-layout "us"))
+ (host-name "borges")
+ (setuid-programs
+  (cons (setuid-program
+         (program (file-append swaylock "/bin/swaylock")))
+        %setuid-programs))
+ (users (cons* (user-account
+                (name "opal")
+                (comment "opal")
+                (group "users")
+                (home-directory "/home/opal")
+                (supplementary-groups
+                 '("wheel"
+                   "netdev"
+                   "audio"
+                   "video")))
+               %base-user-accounts))
+
+ (packages (append (list git
+                         wl-clipboard
+                         vim
+                         nss-certs
+                         stow
+                         exfat-utils
+                         emacs
+                         emacs-exwm
+                         sway
+                         swaybg
+                         swaylock
+                         swayidle
+                         polybar
+                         nyxt
+                         dmenu
+                         bluez
+                         bluez-alsa
+                         pulseaudio
+                         keepassxc
+                         font-fira-mono
+                         font-fira-sans
+                         font-fira-code
+                         gcc-toolchain))
+           %base-packages)
+
+ (services
+  (append (modify-services %desktop-services
+                           (delete gdm-service-type))
+          (list (service sddm-service-type
+                         (sddm-configuration
+                          (display-server "wayland"))))))
+
+ (bootloader
+  (bootloader-configuration
+   (bootloader grub-efi-bootloader)
+   (targets (list "/boot/efi"))
+   (keyboard-layout keyboard-layout)))
+ (mapped-devices
+  (list (mapped-device
+         (source
+          (uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
+         (target "cryptroot")
+         (type luks-device-mapping))))
+ (file-systems
+  (cons* (file-system
+          (mount-point "/")
+          (device "/dev/mapper/cryptroot")
+          (type "btrfs")
+          (dependencies mapped-devices))
+         (file-system
+          (mount-point "/boot/efi")
+          (device (uuid "15B3-5DE5" 'fat32))
+          (type "vfat"))
+         %base-file-systems)))
+
+;; (setuid-programs
+;;    (let ((from (lambda (package file)
+;; 		 (setuid-program (program (file-append package file))))))
+;;      (cons* (from light "/bin/light")
+;; 	    (from mtr "/sbin/mtr")
+;; 	    (from network-manager "/bin/nmtui")
+;; 	    (from nfs-utils "/sbin/mount.nfs")
+;; 	    (from swaylock "/bin/swaylock")
+;; 	    %setuid-programs)))
+
+;; (services (cons* ...
+;;                  (modify-services %desktop-services
+;;                    (gdm-service-type config
+;;                      =;;putabrackethere (gdm-configuration
+;;                          (inherit config)
+;;                          (wayland? #t)
+;;                          (debug? #t))))))