aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2022-08-02 08:20:38 +0300
committerLudovic Courtès <ludo@gnu.org>2022-08-05 15:28:03 +0200
commit3b1510b8b9033068e4f6fa842c674824fdadc7a8 (patch)
treedc984ac10c8a33b9fea1d2584526f17f1ebd924f
parentb57c656f72cee42ebbd78fe2267689aecfbd970e (diff)
downloadguix-3b1510b8b9033068e4f6fa842c674824fdadc7a8.tar.gz
guix-3b1510b8b9033068e4f6fa842c674824fdadc7a8.zip
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.scm8
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'"))))))))