sysconf/etc/config.scm

;; This is an operating system configuration generated
;; by the graphical installer.

(use-modules (gnu)
       (guix)
       (gnu services mcron)
       (gnu system locale))
(use-service-modules dbus sound vpn desktop networking ssh xorg
         shepherd virtualization)
(use-package-modules audio bash shells linux glib)

(define garbage-collector-job
  ;; Collect garbage 1 minutes after midnight every day.
  ;; The job's action is a shell command.
  #~(job "1 0 * * *"            ;Vixie cron syntax
         "guix pull && guix upgrade && guix gc -F 1G"))

(define borg-backup-job
  ;; Run the backup script 5 minutes after midnight every day
  ;; This runs from the user's home directory.
  #~(job "5 0 * * *"            ;Vixie cron syntax
    "~/bin/backup_system.sh"
         #:user "alex"))

(operating-system
  (locale "en_GB.utf8")
  (locale-definitions
    (cons* (locale-definition
       (name "ja_JP.utf8") (source "ja_JP"))
     (locale-definition
       (name "gl_ES.utf8") (source "gl_ES"))
     %default-locale-definitions))
  (timezone "Europe/London")
  (keyboard-layout
    (keyboard-layout "us" "mac"))
  (bootloader
    (bootloader-configuration
      (bootloader grub-bootloader)
      (target "/dev/sda")
      (keyboard-layout keyboard-layout)))
  (file-systems
    (cons* (file-system
             (mount-point "/boot")
             (device
               (uuid "313090d7-42c7-436a-b8b8-7ae92a1a69cd"
                     'ext4))
             (type "ext4"))
           (file-system
             (mount-point "/home")
             (device
               (uuid "2c896a94-8a1c-417c-a447-818143bb4008"
                     'ext4))
             (type "ext4"))
           (file-system
             (mount-point "/")
             (device
               (uuid "24b2d106-7133-4747-937a-2d999eed03c2"
                     'ext4))
             (type "ext4"))
           %base-file-systems))
  (host-name "alex-guix")
  (users (cons* (user-account
                  (name "alex")
                  (comment "alex")
                  (group "users")
                  (home-directory "/home/alex")
                  (shell (file-append bash "/bin/bash"))
                  (supplementary-groups
                    '("wheel" "libvirt" "kvm" "netdev" "audio" "video")))
                %base-user-accounts))
  (packages
    (append
      (map specification->package+output
     '("nss-certs" "vim" "zsh" "util-linux"
       "wget" "unzip" "tree" "gnome"
       "font-dejavu" "font-abattis-cantarell"
       "curl" "openssl" "htop"))
      %base-packages))
  (services
    (append
      (list (service gnome-desktop-service-type)
            (service xfce-desktop-service-type)
            (service tor-service-type)
      (service libvirt-service-type
              (libvirt-configuration
                (unix-sock-group "libvirt")
                (log-level 2)
                (tls-port "16555")))
      (service virtlog-service-type
               (virtlog-configuration
                 (max-clients 1000)))
      (set-xorg-configuration
        (xorg-configuration
          (keyboard-layout keyboard-layout)))
      ;; this service provides symlinks for programs in standard locations
      ;; (eg /bin/bash)
      (service special-files-service-type
         `(("/bin/sh" ,(file-append bash "/bin/sh"))
           ("/bin/pwd" ,(file-append coreutils "/bin/pwd"))
           ("/bin/bash" ,(file-append bash "/bin/bash"))
           ("/lib64" ,(file-append glibc "/lib"))
           ("/usr/bin/env" ,(file-append coreutils "/bin/env"))))
      ;; this service authorizes substitute URLs
      ;; (service guix-service-type
      ;; (guix-configuration
      ;; (substitute-urls
      ;; (list "https://ci.guix.gnu.org"
      ;;     "https://bayfront.guix.gnu.org/"))))
      (pam-limits-service
        (list
          (pam-limits-entry "@audio" 'both 'rtprio 99)
          (pam-limits-entry "@audio" 'both 'memlock 'unlimited)))
      (service mcron-service-type
               (mcron-configuration
                 (jobs (list garbage-collector-job
                             borg-backup-job)))))
      %desktop-services)))