;; Operating system configuration for a full
;; "desktop" environment with gnome

(use-modules (gnu) (guix) (gnu services mcron) (gnu system nss))          ;; Ajout de (guix) et de (gnu services mcron)
(use-service-modules desktop networking ssh)
(use-package-modules bootloaders certs gnome screen ssh base idutils)     ;; Ajout de base et de idutils

(define updatedb-job
;;  ;; Run 'updatedb' at 20AM every day.  Here we write the
;;  ;; job's action as a Scheme procedure.
  #~(job '(next-hour '(20))
         (lambda ()
           (execl (string-append #$findutils "/bin/updatedb")
                  "updatedb"
                  "--prunepaths=/tmp /var/tmp /gnu/store"))))
 
(define garbage-collector-job
;;  ;; Collect garbage 5 minutes after 17 o'clock every day.
;;  ;; The job's action is a shell command.
  #~(job "5 17 * * *"            ;Vixie cron syntax
         "guix gc -F 5G"))
 
(define idutils-job
;;  ;; Update the index database as user "hubert" at 12:15PM
;;  ;; and 19:15PM.  This runs from the user's home directory.
  #~(job '(next-minute-from (next-hour '(12 19)) '(15))
         (string-append #$idutils "/bin/mkid src")
         #:user "hubert"))

(operating-system
  (host-name "gnu")
  (timezone "Europe/Paris")
  (locale "fr_FR.utf8")