-(use-modules (gnu))
-(use-service-modules desktop mail networking ssh xorg)
+(use-modules (gnu)
+ (gnu packages certs) ; for nss-certs
+ (gnu packages emacs-xyz) ; for exwm
+ (gnu packages linux)) ; for powertop
+(use-service-modules admin desktop mail networking pm ssh xorg)
(operating-system
(host-name "chaman")
'("wheel" "netdev" "audio" "video")))
%base-user-accounts))
(packages
- (append
- (list (specification->package "nss-certs"))
- %base-packages))
+ (cons* nss-certs
+ emacs-exwm
+ %base-packages))
(services
(cons*
(service xfce-desktop-service-type)
(passdbs (list (passdb-configuration
(driver "passwd-file")
(args (list "/data/dovecot-passwd")))))))
+ (service rottlog-service-type)
+ (service thermald-service-type)
+ (service tlp-service-type
+ (tlp-configuration
+ (cpu-boost-on-ac? #t)
+ (sound-power-save-on-bat 0)
+ (sound-power-save-controller? #f)
+ ;; (usb-blacklist "0e8f:00a8") ;for some reason doesn't seem to work
+ (usb-autosuspend? #f)))
+ (simple-service 'my-powertop-auto-tune activation-service-type
+ #~(zero? (system* #$(file-append powertop "/sbin/powertop")
+ "--auto-tune")))
+ (simple-service 'light-udev-rules udev-service-type (list light))
%desktop-services)))