guix,getmail,emacs: update username and mail address

[~bandali/configs] / .config / guix / system / chaman.scm

diff --git a/.config/guix/system/chaman.scm b/.config/guix/system/chaman.scm
index 4e016f5..7d9f13b 100644 (file)
--- a/.config/guix/system/chaman.scm
+++ b/.config/guix/system/chaman.scm
@@ -1,4 +1,6 @@
 (use-modules (gnu)
 (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)
 
              (gnu packages linux))      ; for powertop
 (use-service-modules admin desktop mail networking pm ssh xorg)
 


@@ -38,16 +40,16 @@
          %base-file-systems))
  (users
   (cons* (user-account
          %base-file-systems))
  (users
   (cons* (user-account

-          (name "mab")
+          (name "bandali")

           (group "users")
           (group "users")

-          (home-directory "/home/mab")
+          (home-directory "/home/bandali")

           (supplementary-groups
            '("wheel" "netdev" "audio" "video")))
          %base-user-accounts))
  (packages
           (supplementary-groups
            '("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)
  (services
   (cons*
    (service xfce-desktop-service-type)


@@ -64,11 +66,11 @@
      (listen '("127.0.0.1"))
      (disable-plaintext-auth? #f)
      (auth-mechanisms '("plain"))
      (listen '("127.0.0.1"))
      (disable-plaintext-auth? #f)
      (auth-mechanisms '("plain"))

-     (postmaster-address "mab@gnu.local")
-     (mail-location "maildir:/home/mab/mail/%d/%n/mail")
+     (postmaster-address "bandali@gnu.local")
+     (mail-location "maildir:/home/bandali/mail/%d/%n/mail")

      (userdbs (list (userdb-configuration
                      (driver "static")
      (userdbs (list (userdb-configuration
                      (driver "static")

-                     (args (list "uid=mab" "gid=users" "home=/home/mab/mail/%d/%n")))))
+                     (args (list "uid=bandali" "gid=users" "home=/home/bandali/mail/%d/%n")))))

      (passdbs (list (passdb-configuration
                      (driver "passwd-file")
                      (args (list "/data/dovecot-passwd")))))))
      (passdbs (list (passdb-configuration
                      (driver "passwd-file")
                      (args (list "/data/dovecot-passwd")))))))


@@ -84,4 +86,5 @@
    (simple-service 'my-powertop-auto-tune activation-service-type
                    #~(zero? (system* #$(file-append powertop "/sbin/powertop")
                                      "--auto-tune")))
    (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)))
    %desktop-services)))