mirror of
git://git.savannah.gnu.org/guix/maintenance.git
synced 2023-12-14 03:33:04 +01:00
8ed4838af8
* hydra/harbourfront.scm (gc-job): Replace by... (gc-jobs): ...this; garbage collect twice a day and increase the amount.
67 lines
2.5 KiB
Scheme
67 lines
2.5 KiB
Scheme
(use-modules (gnu))
|
|
(use-service-modules mcron networking ssh)
|
|
(use-package-modules certs screen ssh vim)
|
|
|
|
(define gc-jobs
|
|
(list #~(job '(next-hour '(3)) "guix gc -F 200G")
|
|
#~(job '(next-hour '(15)) "guix gc -F 100G")))
|
|
|
|
(operating-system
|
|
(host-name "harbourfront")
|
|
(timezone "Europe/Paris")
|
|
(locale "en_US.utf8")
|
|
|
|
(bootloader (bootloader-configuration
|
|
(bootloader grub-bootloader)
|
|
(target "/dev/sda")
|
|
(terminal-outputs '(console))))
|
|
|
|
(file-systems (cons (file-system
|
|
(device (file-system-label "my-root"))
|
|
(mount-point "/")
|
|
(type "ext4"))
|
|
%base-file-systems))
|
|
|
|
;; Add kernel module for Symbios Logic SAS1068E
|
|
(initrd-modules (append (list "mptsas")
|
|
%base-initrd-modules))
|
|
|
|
(users (cons* (user-account
|
|
(name "andreas")
|
|
(comment "Andreas Enge")
|
|
(group "users")
|
|
(supplementary-groups '("wheel"))
|
|
(home-directory "/home/andreas"))
|
|
(user-account
|
|
(name "bayfront")
|
|
(comment "Bayfront Offload")
|
|
(group "users")
|
|
(home-directory "/home/bayfront"))
|
|
%base-user-accounts))
|
|
|
|
;; Globally-installed packages.
|
|
(packages (cons* nss-certs screen openssh vim %base-packages))
|
|
|
|
(services (cons* (static-networking-service
|
|
"enp12s0f0"
|
|
"147.210.17.78"
|
|
#:netmask "255.255.254.0"
|
|
#:gateway "147.210.17.254"
|
|
#:name-servers '("147.210.16.143" "147.210.16.214"))
|
|
(service openssh-service-type
|
|
(openssh-configuration
|
|
(permit-root-login 'without-password)
|
|
(authorized-keys
|
|
`(("andreas" ,(local-file "keys/ssh/andreas.pub"))
|
|
("bayfront" ,(local-file "keys/ssh/bayfront.pub"))
|
|
("root" ,(local-file "keys/ssh/andreas.pub"))))))
|
|
(service mcron-service-type
|
|
(mcron-configuration
|
|
(jobs gc-jobs)))
|
|
(service ntp-service-type)
|
|
(modify-services %base-services
|
|
(guix-service-type config =>
|
|
(guix-configuration
|
|
(use-substitutes? #f)))))))
|
|
|