bartronx7/guix-configs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

laptop cleanup unencrypt root

Browse source
This commit is contained in:
bart 2025-11-01 09:17:06 -05:00
parent 0157dfe51c
commit 09b370fef2
1 changed files with 82 additions and 82 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

164
laptop/system.scm
View file

@ -24,99 +24,99 @@
(swap-devices (list (swap-space (target "/swapfile")))) (swap-devices (list (swap-space (target "/swapfile"))))
;; The list of user accounts ('root' is implicit). ;; The list of user accounts ('root' is implicit).
(users (cons* (user-account (users
(name "bartronx7") (cons*
(comment "Bart") (user-account
(group "users") (name "bartronx7")
(home-directory "/home/bartronx7") (comment "Bart")
(shell #~(string-append #$zsh "/bin/zsh")) (group "users")
(supplementary-groups '("wheel" "netdev" "audio" "video"))) (home-directory "/home/bartronx7")
(user-account (shell #~(string-append #$zsh "/bin/zsh"))
(name "kate") (supplementary-groups '("wheel" "netdev" "audio" "video")))
(comment "Kate") (user-account
(group "users") (name "kate")
(home-directory "/home/kate") (comment "Kate")
(supplementary-groups '("wheel" "netdev" "audio" "video"))) (group "users")
(user-account (home-directory "/home/kate")
(name "emma") (supplementary-groups '("wheel" "netdev" "audio" "video")))
(comment "Emma") (user-account
(group "users") (name "emma")
(home-directory "/home/emma") (comment "Emma")
(supplementary-groups '("wheel" "netdev" "audio" "video"))) (group "users")
(user-account (home-directory "/home/emma")
(name "claire") (supplementary-groups '("wheel" "netdev" "audio" "video")))
(comment "Claire") (user-account
(group "users") (name "claire")
(home-directory "/home/claire") (comment "Claire")
(supplementary-groups '("wheel" "netdev" "audio" "video"))) (group "users")
%base-user-accounts)) (home-directory "/home/claire")
(supplementary-groups '("wheel" "netdev" "audio" "video")))
%base-user-accounts))
;; Packages installed system-wide. Users can also install packages ;; Packages installed system-wide. Users can also install packages
;; under their own account: use 'guix search KEYWORD' to search ;; under their own account: use 'guix search KEYWORD' to search
;; for packages and 'guix install PACKAGE' to install a package. ;; for packages and 'guix install PACKAGE' to install a package.
(packages (append (list (specification->package "dmenu") (packages
(specification->package "st") (append
(specification->package "firefox") (map specification->package (list
(specification->package "libreoffice") "dmenu"
(specification->package "git") "st"
(specification->package "curl") "firefox"
(specification->package "rust") "libreoffice"
(specification->package "zsh") "git"
(specification->package "unzip")) %base-packages)) "curl"
"rust"
"zsh"
"unzip"))
%base-packages))
;; Below is the list of system services. To search for available ;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal. ;; services, run 'guix system search KEYWORD' in a terminal.
(services (services
(append (list (service gnome-desktop-service-type) (append
%desktop-services
(list
(service gnome-desktop-service-type)
(service bluetooth-service-type
(bluetooth-configuration
(fast-connectable? #t)
(auto-enable? #t)))
(service openssh-service-type)
(service tor-service-type)
(service cups-service-type
(cups-configuration
(web-interface? #t)))
(set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout))))))
;; To configure OpenSSH, pass an 'openssh-configuration' (bootloader
;; record as a second argument to 'service' below. (bootloader-configuration
(service bluetooth-service-type (bootloader grub-efi-bootloader)
(bluetooth-configuration (targets (list "/boot/efi"))
(fast-connectable? #t) (keyboard-layout keyboard-layout)))
(auto-enable? #t)))
(service openssh-service-type)
(service tor-service-type)
(service cups-service-type
(cups-configuration
(web-interface? #t)))
(set-xorg-configuration
(xorg-configuration (keyboard-layout keyboard-layout))))
;; This is the default list of services we (mapped-devices
;; are appending to. (list
%desktop-services)) (mapped-device
(bootloader (bootloader-configuration (source (uuid "b6595ebc-8b65-4771-b2cf-682d5c9dc3c3"))
(bootloader grub-efi-bootloader) (target "crypthome")
(targets (list "/boot/efi")) (type luks-device-mapping))))
(keyboard-layout keyboard-layout)))
(mapped-devices (list (mapped-device
(source (uuid
"b619e349-c462-4652-9b30-ae00d687f604"))
(target "cryptroot")
(type luks-device-mapping))
(mapped-device
(source (uuid
"b6595ebc-8b65-4771-b2cf-682d5c9dc3c3"))
(target "crypthome")
(type luks-device-mapping))))
;; The list of file systems that get "mounted". The unique ;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained ;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal. ;; by running 'blkid' in a terminal.
(file-systems (cons* (file-system (file-systems
(mount-point "/boot/efi") (cons*
(device (uuid "8864-46B5" (file-system
'fat32)) (mount-point "/boot/efi")
(type "vfat")) (device (uuid "8864-46B5" 'fat32))
(file-system (type "vfat"))
(mount-point "/") (file-system
(device "/dev/mapper/cryptroot") (mount-point "/")
(type "ext4") (device (uuid "b6595ebc-8b65-4771-b2cf-682d5c9dc3c3"))
(dependencies mapped-devices)) (type "btrfs"))
(file-system (file-system
(mount-point "/home") (mount-point "/home")
(device "/dev/mapper/crypthome") (device "/dev/mapper/crypthome")
(type "ext4") (type "btrfs")
(dependencies mapped-devices)) (dependencies mapped-devices))
%base-file-systems))) %base-file-systems)))