Ah, sorry, my mcron is brocken -> rottlog not work.
> Can you share your Guix system config
Yes, but it's long:
;; Version 04
(use-modules
(srfi srfi-1) ;; «(remove (lambda»
(guix)
(guix gexp)
(gnu)
(gnu packages)
(gnu packages bash) ;; «extra-special-file "/bin/sh"»
(gnu packages search) ;; «#$package-name»
(gnu packages linux) ;; ???
(gnu packages gnome) ;; fix «colord: unbound variable»
(gnu services mcron) ;; <- manual
(gnu system locale)
(gnu system nss))
(use-service-modules networking desktop admin)
(use-package-modules base bootloaders ssh)
(define updatedb-job
#~(job '(next-hour '(10)) ;; at 10AM every day
(lambda ()
(execl (string-append #$mlocate "/bin/updatedb")
"updatedb"
(string-append
"--require-visibility 0 -o /var/mlocatedb"
"--prunepaths=\"/tmp /var/tmp /var/cache /var/lock /var/run /var/spool\""
"--prunenames=\".cache .Cache cache Cache\"")))))
(define fstrim-job
#~(job "10 10 * * 6" ;; weekly, at 10:10
"fstrim -a"))
(define store-config-service
;;; Store the current configuration with the generation.
(simple-service 'store-my-config etc-service-type
`(("system-config.scm" ,(local-file (assoc-ref (current-source-location)
'filename))))))
;; Main
(operating-system
(host-name "guix")
(timezone "Europe/Moscow")
(locale "ru_RU.utf8")
(locale-definitions (list (locale-definition (source "en_US")
(name "en_US.utf8"))
(locale-definition (source "ru_RU")
(name "ru_RU.utf8"))))
(bootloader (bootloader-configuration
(bootloader grub-bootloader)
(target "/dev/sdb") ;; <=============================
======= CHECK THIS!
(menu-entries
(list (menu-entry
(label "Old")
(linux "/boot/vmlinuz-4.14.9-calculate")
(linux-arguments '("root=/dev/sda3"))
(initrd
"/boot/initramfs-4.14.9-calculate.img"))))))
;;; Nvidia nForce
(initrd-modules (cons* "sata_nv"
"pata_acpi" %base-initrd-modules))
(file-systems (cons*
(file-system
(device (file-system-label "my-root")) ;; sdb2
(mount-point "/")
(type "ext4"))
(file-system
(device (file-system-label "my-home")) ;; sdb1
(mount-point "/home")
(type "ext4"))
(file-system
(device (uuid "634a6369-c5a8-4f4c-b3e8-35fb92cf850e"))
(mount-point "/mnt/WD-HDD")
(type "ext4"))
(file-system
(device (uuid "c36b9de3-2b00-4263-8844-9f2d72628d78"))
(mount-point "/mnt/oldhome")
(type "ext4"))
%base-file-systems))
(swap-devices '("/dev/disk/by-uuid/52be6bef-ff4c-4fec-b63f-608ee61a723d"))
(users (cons* (user-account
(name "jone")
(comment "Jone")
(group "users")
(supplementary-groups '("wheel" "netdev" "audio" "video"))
(uid 1000)
(home-directory "/home/jone"))
(user-account
(name "guest")
(comment "Guest")
(group "users")
(uid 1010)
(home-directory "/home/guest"))
%base-user-accounts))
(groups (cons (user-group
(name "mlocate")
(system? #t))
%base-groups))
(sudoers-file (local-file "/etc/sudoers"))
(packages
(let ((trash (map specification->package
'("zile" "wireless-tools"))))
(append (map specification->package
'("xfce" "slim" "gvfs" "xrandr" "unzip" "xclip"
"emacs" "w3m" "emacs-guix" "alsa-lib" "perl"
"moreutils" "mlocate" "tree" "file"
"autobuild" "autoconf" "autogen" "automake" "ccache" "cmake" "gcc-toolchain" "make"
;;; and dependences - visibly!
"gnutls" "ncurses" "libx11" "gtk+" "imagemagick" "acl" "zlib" "dbus" "glibc-utf8-locales"
;;; new/additional
"alsa-utils" "nss-certs"))
(remove (lambda (pkg)
(memq pkg trash))
%base-packages)))) ;; %base-packages selected here!
(services (cons*
(xfce-desktop-service)
(extra-special-file "/usr/bin/env"
(file-append coreutils "/bin/env"))
(extra-special-file "/bin/sh"
(file-append bash "/bin/bash"))
store-config-service
(mcron-service (list updatedb-job fstrim-job)) ;; mcron-service-type?
(service rottlog-service-type (rottlog-configuration))
(modify-services (remove (lambda (service)
(eq? (service-value service) colord)) ;; not colord-service-type! [1]
%desktop-services)
(guix-service-type
config => (guix-configuration
(inherit config)
(substitute-urls (cons* "https://berlin.guixsd.org"
%default-substitute-urls)))))))
(name-service-switch %mdns-host-lookup-nss))
;; [1] See guix/gnu/services/desktop.scm, «#:export» variables
;; rottlog-service-type, mcron