My system configuration files
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

118 lines
4.1 KiB

;; 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)
3 years ago
(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"))
3 years ago
(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"
3 years ago
#: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))
3 years ago
(timezone "Europe/London")
(keyboard-layout
(keyboard-layout "us" "mac"))
3 years ago
(bootloader
(bootloader-configuration
(bootloader grub-bootloader)
(target "/dev/sda")
3 years ago
(keyboard-layout keyboard-layout)))
(file-systems
(cons* (file-system
(mount-point "/boot")
3 years ago
(device
(uuid "313090d7-42c7-436a-b8b8-7ae92a1a69cd"
3 years ago
'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"))
3 years ago
%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"))
3 years ago
(supplementary-groups
'("wheel" "libvirt" "kvm" "netdev" "audio" "video")))
3 years ago
%base-user-accounts))
(packages
(append
3 years ago
(map specification->package+output
'("nss-certs" "vim" "zsh" "util-linux"
3 years ago
"wget" "unzip" "tree" "gnome"
"font-dejavu" "font-abattis-cantarell"
"curl" "openssl" "htop"))
3 years ago
%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
3 years ago
(unix-sock-group "libvirt")
(log-level 2)
(tls-port "16555")))
(service virtlog-service-type
3 years ago
(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
3 years ago
(pam-limits-entry "@audio" 'both 'rtprio 99)
(pam-limits-entry "@audio" 'both 'memlock 'unlimited)))
(service mcron-service-type
(mcron-configuration
3 years ago
(jobs (list garbage-collector-job
borg-backup-job)))))
3 years ago
%desktop-services)))