X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/a4c7bd3ea86e26e63a76f5d6375b03740e9e6a41..95f304a8d9bd644b2fd49df49ca6acfbc93dae74:/.config/guix/system/chaman.scm?ds=sidebyside

diff --git a/.config/guix/system/chaman.scm b/.config/guix/system/chaman.scm
index beddfa6..53ec86d 100644
--- a/.config/guix/system/chaman.scm
+++ b/.config/guix/system/chaman.scm
@@ -1,5 +1,7 @@
-(use-modules (gnu))
-(use-service-modules desktop mail networking ssh xorg)
+(use-modules (gnu)
+             (gnu packages linux)
+             (srfi srfi-1))             ;for 'remove'
+(use-service-modules admin desktop mail networking pm ssh xorg)
 
 (operating-system
   (host-name "chaman")
@@ -37,27 +39,51 @@
     (list (specification->package "nss-certs"))
     %base-packages))
   (services
-   (append
-    (list (service xfce-desktop-service-type)
-          (service openssh-service-type)
-          (set-xorg-configuration
-           (xorg-configuration
-            (keyboard-layout keyboard-layout)))
-          (dovecot-service #:config
-                           (dovecot-configuration
-                            ;; (log-path "/dev/stderr")
-                            (protocols (list (protocol-configuration
-                                              (name "imap"))))
-                            (ssl? "no")
-                            (listen '("127.0.0.1"))
-                            (disable-plaintext-auth? #f)
-                            (auth-mechanisms '("plain"))
-                            (postmaster-address "bandali@gnu.local")
-                            (mail-location "maildir:/home/bandali/mail/%d/%n/mail")
-                            (userdbs (list (userdb-configuration
-                                            (driver "static")
-                                            (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"))))))))
+   (cons*
+    (service xfce-desktop-service-type)
+    (service openssh-service-type)
+    (set-xorg-configuration
+     (xorg-configuration
+      (keyboard-layout keyboard-layout)))
+    (dovecot-service #:config
+                     (dovecot-configuration
+                      ;; (log-path "/dev/stderr")
+                      (protocols (list (protocol-configuration
+                                        (name "imap"))))
+                      (ssl? "no")
+                      (listen '("127.0.0.1"))
+                      (disable-plaintext-auth? #f)
+                      (auth-mechanisms '("plain"))
+                      (postmaster-address "bandali@gnu.local")
+                      (mail-location "maildir:/home/bandali/mail/%d/%n/mail")
+                      (userdbs (list (userdb-configuration
+                                      (driver "static")
+                                      (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")))))))
+    (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") ;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")))
+    ;; (service slim-service-type
+    ;;          (slim-configuration
+    ;;           (display ":0")
+    ;;           (vt "vt7")))
+    ;; (service slim-service-type
+    ;;          (slim-configuration
+    ;;           (display ":1")
+    ;;           (vt "vt8")))
+    ;; (remove (lambda (service)
+    ;;           (eq? (service-kind service) gdm-service-type))
+    ;;         %desktop-services)
     %desktop-services)))