emacs: add binding for eww, and only use typo-mode in web-mode
[~bandali/configs] / .config / guix / system / chaman.scm
index e17d465..6a60e11 100644 (file)
@@ -1,5 +1,8 @@
-(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")
@@ -44,9 +47,9 @@
            '("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)))