emacs: improve compat for (version< "27" emacs-version0

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

(use-modules (gnu))
(use-service-modules desktop mail networking ssh xorg)

(operating-system
 (host-name "chaman")
 (locale "en_CA.utf8")
 (timezone "Canada/Eastern")
 (keyboard-layout
  (keyboard-layout "us" "basic"))
 (bootloader
  (bootloader-configuration
   (bootloader grub-bootloader)
   (target "/dev/sda")
   (keyboard-layout keyboard-layout)))
 (mapped-devices
  (list (mapped-device
         (source
          (uuid "283da85e-2c84-47e6-a8ca-20f4e8efb806"))
         (target "groot")
         (type luks-device-mapping))
        (mapped-device
         (source
          (uuid "017ddebc-c2c3-4a0a-bda4-d47ec0bc67f0"))
         (target "data")
         (type luks-device-mapping))))
 (file-systems
  (cons* (file-system
          (mount-point "/")
          (device "/dev/mapper/groot")
          (type "ext4")
          (dependencies mapped-devices))
         (file-system
          (mount-point "/data")
          (device "/dev/mapper/data")
          (type "ext4")
          (dependencies mapped-devices))
         %base-file-systems))
 (users
  (cons* (user-account
          (name "mab")
          (group "users")
          (home-directory "/home/mab")
          (supplementary-groups
           '("wheel" "netdev" "audio" "video")))
         %base-user-accounts))
 (packages
  (append
   (list (specification->package "nss-certs"))
   %base-packages))
 (services
  (cons*
   (service xfce-desktop-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 "mab@gnu.local")
     (mail-location "maildir:/home/mab/mail/%d/%n/mail")
     (userdbs (list (userdb-configuration
                     (driver "static")
                     (args (list "uid=mab" "gid=users" "home=/home/mab/mail/%d/%n")))))
     (passdbs (list (passdb-configuration
                     (driver "passwd-file")
                     (args (list "/data/dovecot-passwd")))))))
   %desktop-services)))