(use-modules (config certbot) (config cuirass) (config network) (config os))

(use-modules (guix gexp))

(use-package-modules base compression gettext guile guile-xyz linux version-control

(define (makefile-job directory target packages env)

  #~(lambda ()

          (map (lambda (p) (string-append p "/bin")) (list #$@packages))

          ":"))

      (define (get-path dir)

      (setenv "PATH" path)

      (setenv "GIT_SSL_CAINFO" "/etc/ssl/certs/ca-certificates.crt")

      (setenv "SSL_CERT_DIR" "/etc/ssl/certs")

      (setenv "SSL_CERT_FILE" "/etc/ssl/certs/ca-certificates.crt")

      (setenv "LANG" "en_US.UTF-8")

      (for-each

      (execl #$(file-append gnu-make "/bin/make") "make" "-C" #$directory #$target)))

(define i18n-download-job

  #~(job '(next-minute-from (next-hour '(05)) '(51))

         #$(makefile-job "/srv/http/i18n" "fdroid-update"

                         (list gnu-make coreutils findutils git)

(define i18n-compile-job

  #~(job '(next-minute-from (next-hour '(06)) '(21))

         #$(makefile-job "/srv/http/i18n" "all"

                         (list gnu-make coreutils findutils git grep util-linux)

(define nani-download-job

  #~(job '(next-minute-from (next-hour-from (next-day (range 1 31 5)) '(02)) '(12))

         #$(makefile-job "/srv/http/nani" "download"

                         (list gnu-make coreutils findutils grep gzip libiconv

(define nani-update-job

  #~(job '(next-minute-from (next-hour-from (next-day (range 1 31 5)) '(03)) '(12))

         #$(makefile-job "/srv/http/nani" "all"

                         (list gnu-make coreutils findutils gnu-gettext grep guile-3.0

(operating-system

  (inherit (tyreunom-os "xana"))

                nani-download-job nani-update-job))

        (certbot-service `(("xana.lepiller.eu")

                           ("nani.lepiller.eu")

        (simple-service 'nani-http-server nginx-service-type

          (list (nginx-server-configuration

                  (ssl-certificate