Fri Aug 12 09:50:50+0200 2022
495458f
Update cron jobs
systems/xana.scm
| 23 | 23 | (use-modules (gnu services web)) | |
| 24 | 24 | (use-modules (config certbot) (config network) (config os) (config web)) | |
| 25 | 25 | (use-modules (guix gexp)) | |
| 26 | - | (use-package-modules base compression gettext guile guile-xyz linux version-control | |
| 27 | - | web wget) | |
| 26 | + | (use-package-modules base compression gettext gnupg guile guile-xyz linux | |
| 27 | + | version-control web wget) | |
| 28 | + | (use-modules (packages mecab)) | |
| 28 | 29 | ||
| 29 | 30 | (define lepiller-policy | |
| 30 | 31 | (append | |
… | |||
| 34 | 35 | '("error_page 404 /$lang/404.html;"))) | |
| 35 | 36 | ||
| 36 | 37 | (define (makefile-job directory target packages env) | |
| 37 | - | #~(lambda () | |
| 38 | + | #~(begin | |
| 38 | 39 | (define path | |
| 39 | 40 | (string-join | |
| 40 | 41 | (map (lambda (p) (string-append p "/bin")) (list #$@packages)) | |
| 41 | 42 | ":")) | |
| 42 | 43 | (define (get-path dir) | |
| 43 | 44 | (string-join | |
| 44 | - | (map (lambda (p) (string-append p "/" path) (list #$@packages))) | |
| 45 | + | (map (lambda (p) (string-append p "/" dir)) (list #$@packages)) | |
| 45 | 46 | ":")) | |
| 46 | 47 | (setenv "PATH" path) | |
| 47 | 48 | (setenv "GIT_SSL_CAINFO" "/etc/ssl/certs/ca-certificates.crt") | |
… | |||
| 56 | 57 | ||
| 57 | 58 | (define i18n-download-job | |
| 58 | 59 | #~(job '(next-minute-from (next-hour '(05)) '(51)) | |
| 59 | - | #$(makefile-job "/srv/http/i18n" "fdroid-update" | |
| 60 | - | (list gnu-make coreutils findutils git) | |
| 61 | - | '()))) | |
| 60 | + | #$(program-file | |
| 61 | + | "i18n-download" | |
| 62 | + | (makefile-job "/srv/http/i18n" "fdroid-update" | |
| 63 | + | (list gnu-make coreutils findutils git) | |
| 64 | + | '())))) | |
| 62 | 65 | ||
| 63 | 66 | (define i18n-compile-job | |
| 64 | 67 | #~(job '(next-minute-from (next-hour '(06)) '(21)) | |
| 65 | - | #$(makefile-job "/srv/http/i18n" "all" | |
| 66 | - | (list gnu-make coreutils findutils git grep util-linux) | |
| 67 | - | '()))) | |
| 68 | + | #$(program-file | |
| 69 | + | "i18n-compile" | |
| 70 | + | (makefile-job "/srv/http/i18n" "all" | |
| 71 | + | (list gnu-make coreutils findutils git grep util-linux) | |
| 72 | + | '())))) | |
| 68 | 73 | ||
| 69 | 74 | (define nani-download-job | |
| 70 | 75 | #~(job '(next-minute-from (next-hour-from (next-day (range 1 31 5)) '(02)) '(12)) | |
| 71 | - | #$(makefile-job "/srv/http/nani" "download" | |
| 72 | - | (list gnu-make coreutils findutils grep gzip libiconv | |
| 73 | - | sed tar unzip util-linux wget xz) | |
| 74 | - | '()))) | |
| 76 | + | #$(program-file | |
| 77 | + | "nani-download" | |
| 78 | + | (makefile-job "/srv/http/nani" "download" | |
| 79 | + | (list gnu-make coreutils findutils grep gzip libiconv | |
| 80 | + | git sed tar unzip util-linux wget xz) | |
| 81 | + | '())))) | |
| 75 | 82 | ||
| 76 | 83 | (define nani-update-job | |
| 77 | 84 | #~(job '(next-minute-from (next-hour-from (next-day (range 1 31 5)) '(03)) '(12)) | |
| 78 | - | #$(makefile-job "/srv/http/nani" "all" | |
| 79 | - | (list gnu-make coreutils findutils gnu-gettext grep guile-3.0 | |
| 80 | - | haunt sed) | |
| 81 | - | '(("GUILE_LOAD_PATH" . "share/guile/site/3.0") | |
| 82 | - | ("GUILE_LOAD_COMPILED_PATH" . "share/guile/site/3.0"))))) | |
| 85 | + | #$(program-file | |
| 86 | + | "nani-update" | |
| 87 | + | (makefile-job "/srv/http/nani" "all" | |
| 88 | + | (list gnu-make coreutils findutils gnu-gettext grep | |
| 89 | + | guile-3.0 haunt sed guile-gcrypt | |
| 90 | + | mecab mecab-ipadic guile-mecab) | |
| 91 | + | '(("GUILE_LOAD_PATH" . "share/guile/site/3.0") | |
| 92 | + | ("GUILE_LOAD_COMPILED_PATH" . "lib/guile/3.0/site-ccache") | |
| 93 | + | ("MECAB_DICDIR" . "lib/mecab/dic")))))) | |
| 83 | 94 | ||
| 84 | 95 | (operating-system | |
| 85 | 96 | (inherit (tyreunom-os "xana")) | |