diff options
| author | Andrew Tropin <andrew@trop.in> | 2022-08-02 08:20:38 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 15:28:03 +0200 |
| commit | 3b1510b8b9033068e4f6fa842c674824fdadc7a8 (patch) | |
| tree | dc984ac10c8a33b9fea1d2584526f17f1ebd924f | |
| parent | b57c656f72cee42ebbd78fe2267689aecfbd970e (diff) | |
| download | guix-3b1510b8b9033068e4f6fa842c674824fdadc7a8.tar.gz | |
home: Use warning instead of display.
* gnu/home/services/xdg.scm (compute-on-first-login-script): Use warning instead of display. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/home/services.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm index d71aa16a7d..75ea54743d 100644 --- a/gnu/home/services.scm +++ b/gnu/home/services.scm @@ -368,9 +368,11 @@ activation."))) (define (compute-on-first-login-script _ gexps) (program-file "on-first-login" - (with-imported-modules (source-module-closure '((guix i18n))) + (with-imported-modules (source-module-closure '((guix i18n) + (guix diagnostics))) #~(begin - (use-modules (guix i18n)) + (use-modules (guix i18n) + (guix diagnostics)) #$%initialize-gettext (let* ((xdg-runtime-dir (or (getenv "XDG_RUNTIME_DIR") @@ -387,7 +389,7 @@ activation."))) (begin #$@gexps (touch flag-file-path))) ;; TRANSLATORS: 'on-first-login' is the name of a service and ;; shouldn't be translated - (display (G_ "XDG_RUNTIME_DIR doesn't exists, on-first-login script + (warning (G_ "XDG_RUNTIME_DIR doesn't exists, on-first-login script won't execute anything. You can check if xdg runtime directory exists, XDG_RUNTIME_DIR variable is set to appropriate value and manually execute the script by running '$HOME/.guix-home/on-first-login'")))))))) |