fschl
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fschl/systems/base: dont use 'specification->package'

This commit is contained in:
Frieder Schlesier 2024-06-01 16:26:40 +02:00
parent 919381562f
commit 4dc517442c
1 changed files with 18 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fschl/systems/base.scm
View File

@ -10,12 +10,13 @@
(use-service-modules guix admin sysctl pm nix avahi dbus cups desktop linux (use-service-modules guix admin sysctl pm nix avahi dbus cups desktop linux
mcron networking xorg ssh docker audio virtualization) mcron networking xorg ssh docker audio virtualization)
(use-package-modules nfs certs shells ssh linux bash emacs gnome networking wm fonts libusb (use-package-modules audio video nfs certs shells ssh linux bash emacs gnome
cups freedesktop file-systems version-control package-management) networking wm fonts libusb cups freedesktop file-systems
version-control package-management vim)
(define-public base-operating-system (define-public base-operating-system
(operating-system (operating-system
(host-name "default-placeholder") (host-name "default")
(timezone "Europe/Berlin") (timezone "Europe/Berlin")
(locale "en_US.utf8") (locale "en_US.utf8")
@ -80,23 +81,20 @@
%base-groups)) %base-groups))
;; Install bare-minimum system packages ;; Install bare-minimum system packages
(packages (append (map specification->package (packages (cons* bluez
'("bluez" bluez-alsa
"bluez-alsa" brightnessctl
"brightnessctl" emacs-no-x-toolkit
"btrfs-progs" exfat-utils
"emacs-no-x-toolkit" fuse-exfat
"exfat-utils" git
"fuse-exfat" gvfs ;; Enable user mounts
"git" intel-media-driver/nonfree
"gvfs" ;; Enable user mounts libva-utils
"intel-vaapi-driver" ntfs-3g
"libva-utils" stow
"nss-certs" ;; SSL root certificates vim
"ntfs-3g" %base-packages))
"vim"
"xf86-input-libinput"))
%base-packages))
;; Configure only the services necessary to run the system ;; Configure only the services necessary to run the system
(services (append (services (append