cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

operating-systems: buer: Use service instead of simple-service for mcron

sioyek
Luis Guilherme Coelho 2024-02-16 11:41:08 -03:00
parent 50e999c21f
commit ba49d84448
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
operating-systems/buer.scm
View File

@ -50,16 +50,15 @@
#|P|# #:use-module (radix services pm) #|P|# #:use-module (radix services pm)
#|Radix system|# #|Radix system|#
#|S|# #:use-module (radix system setuid) #|S|# #:use-module (radix system security)
#:use-module (radix system setuid)
#|M|# #:use-module (radix system monitoring) #|M|# #:use-module (radix system monitoring)
#|Buer files|# #|Buer files|#
#|S|# #:use-module ((buer files substitute-keys) #:prefix public-key:) #|S|# #:use-module ((buer files substitute-keys) #:prefix public-key:)
#|T|# #:use-module ((buer files thinkfan) #:prefix file:thinkfan-) #|T|# #:use-module ((buer files thinkfan) #:prefix file:thinkfan-)
#|Kicksecure configurations|#
#|K|# #:use-module (radix modules kicksecure-configs)
#|SRFI's|# #|SRFI's|#
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -91,8 +90,8 @@
(kernel-arguments (kernel-arguments
(cons* "modprobe.blacklist=usbmouse,usbkbd,pcspkr" (cons* "modprobe.blacklist=usbmouse,usbkbd,pcspkr"
"thinkpad_acpi.fan_control=1" "thinkpad_acpi.fan_control=1"
(kicksecure-delete %kicksecure-kernel-arguments (kicksecure-delete "debugfs"
"debugfs"))) %kicksecure-kernel-arguments)))
(file-systems (file-systems
(cons* (file-system (cons* (file-system
@ -218,9 +217,10 @@
(compression `(("zstd" 3))))) (compression `(("zstd" 3)))))
#|Mcron service|# #|Mcron service|#
(simple-service 'mcron-jobs mcron-service-type (service mcron-service-type
(list #~(job "5 0 * * *" (mcron-configuration
"guix gc --optimize --free-space=5G"))) (jobs (list #~(job "5 0 * * *"
"guix gc --optimize --free-space=5G")))))
#|Device management services|# #|Device management services|#
(service udev-service-type (service udev-service-type