From: Amin Bandali <bandali@gnu.org>
Date: Tue, 6 Aug 2019 00:46:25 +0000 (-0400)
Subject: guix: add rottlog, thermald, tlp, and powertop --auto-tune
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/4a72cb41c2cf0e575de05302de7723d26f00f8b6

guix: add rottlog, thermald, tlp, and powertop --auto-tune
---

diff --git a/.config/guix/system/chaman.scm b/.config/guix/system/chaman.scm
index beddfa6..c576209 100644
--- a/.config/guix/system/chaman.scm
+++ b/.config/guix/system/chaman.scm
@@ -1,5 +1,5 @@
-(use-modules (gnu))
-(use-service-modules desktop mail networking ssh xorg)
+(use-modules (gnu) (gnu packages linux))
+(use-service-modules admin desktop mail networking pm ssh xorg)
 
 (operating-system
   (host-name "chaman")
@@ -59,5 +59,17 @@
                                             (args (list "uid=bandali" "gid=users" "home=/home/bandali/mail/%d/%n")))))
                             (passdbs (list (passdb-configuration
                                             (driver "passwd-file")
-                                            (args (list "/home/bandali/.config/dovecot/passwd"))))))))
+                                            (args (list "/home/bandali/.config/dovecot/passwd")))))))
+          (service rottlog-service-type
+                   (rottlog-configuration))
+          (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")))
+          (simple-service 'my-powertop-auto-tune activation-service-type
+                          #~(zero? (system* #$(file-append powertop "/sbin/powertop")
+                                            "--auto-tune"))))
     %desktop-services)))