Compare commits

..

7 Commits

4 changed files with 8 additions and 24 deletions

View File

@ -1,5 +1,4 @@
(use-modules (gnu packages admin) (use-modules (gnu packages admin)
(gnu packages audio)
(gnu packages chromium) (gnu packages chromium)
(gnu packages compression) (gnu packages compression)
(gnu packages commencement) (gnu packages commencement)
@ -8,7 +7,6 @@
(gnu packages fonts) (gnu packages fonts)
(gnu packages gnome) (gnu packages gnome)
(gnu packages gnome-xyz) (gnu packages gnome-xyz)
(gnu packages gnuzilla)
(gnu packages haskell) (gnu packages haskell)
(gnu packages haskell-xyz) (gnu packages haskell-xyz)
(gnu packages libreoffice) (gnu packages libreoffice)
@ -28,22 +26,21 @@
(gnu packages web) (gnu packages web)
(gnu packages xfce) (gnu packages xfce)
(gnu packages xorg) (gnu packages xorg)
(loom packages eyecandy) (loom packages eyecandy))
(loom packages music))
(define %desktop (define %desktop
(list (list
arc-icon-theme arc-icon-theme
arc-theme arc-theme
audacious-gtk
evince evince
font-google-noto
font-openmoji font-openmoji
font-sarasa-gothic
htop htop
mplayer mplayer
nitrogen nitrogen
pavucontrol pavucontrol
pwgen pwgen
quodlibet
recutils recutils
tmux tmux
toon-cursors toon-cursors
@ -66,8 +63,8 @@
(define %web (define %web
(list (list
claws-mail claws-mail
icecat-minimal ungoogled-chromium
ungoogled-chromium)) ))
(define %heavy (define %heavy
(list (list
@ -82,16 +79,3 @@
netcat netcat
openssh openssh
rsync)) rsync))
(define %studio
(list
amsynth
audacity
calf
hydrogen
jack-1
lilypond
qjackctl
setbfree
sooperlooper
yoshimi))

View File

@ -1,3 +1,3 @@
(load "packages.scm") (load "packages.scm")
(packages->manifest (append %desktop %dev %heavy %network %studio %web)) (packages->manifest (append %desktop %dev %heavy %network %web))

View File

@ -1,3 +1,3 @@
(load "packages.scm") (load "packages.scm")
(packages->manifest (append %desktop %dev %heavy %network %studio %web)) (packages->manifest (append %desktop %dev %heavy %network %web))

View File

@ -42,7 +42,7 @@
%base-file-systems)))) %base-file-systems))))
(define pam-audio (define pam-audio
(service pam-limits-service-type (pam-limits-service
(list (list
(pam-limits-entry "@audio" 'both 'rtprio 99) (pam-limits-entry "@audio" 'both 'rtprio 99)
(pam-limits-entry "@audio" 'both 'memlock 'unlimited)))) (pam-limits-entry "@audio" 'both 'memlock 'unlimited))))