GNU bug report logs -
#56758
[PATCH 0/2] Don't try to mkdir XDG_RUNTIME_DIR
Previous Next
Reported by: Andrew Tropin <andrew <at> trop.in>
Date: Mon, 25 Jul 2022 09:47:02 UTC
Severity: normal
Tags: patch
Done: Ludovic Courtès <ludo <at> gnu.org>
Bug is archived. No further changes may be made.
Full log
View this message in rfc822 format
[Message part 1 (text/plain, inline)]
Your bug report
#56758: [PATCH 0/2] Don't try to mkdir XDG_RUNTIME_DIR
which was filed against the guix-patches package, has been closed.
The explanation is attached below, along with your original report.
If you require more details, please reply to 56758 <at> debbugs.gnu.org.
--
56758: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=56758
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
Hi Andrew,
Andrew Tropin <andrew <at> trop.in> skribis:
> home: xdg: Use single @ intsead of @@.
> home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation script.
> home: Use warning instead of display.
> tests: Make tests inside container reproducible.
Applied, thanks!
Ludo’.
[Message part 3 (message/rfc822, inline)]
[Message part 4 (text/plain, inline)]
Andrew Tropin (2):
home: xdg: Use closures in activation scripts.
home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation script.
gnu/home/services/xdg.scm | 46 ++++++++++++++++++++++++---------------
1 file changed, 28 insertions(+), 18 deletions(-)
--
2.37.0
[0001-home-xdg-Use-closures-in-activation-scripts.patch (text/x-patch, inline)]
From d08ed8de3ead1a704a96e0e6673dffb62f859597 Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew <at> trop.in>
Date: Thu, 21 Jul 2022 15:24:32 +0300
Subject: [PATCH 1/2] home: xdg: Use closures in activation scripts.
* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation,
home-xdg-user-directories-files-service): Use closures in activation scripts.
---
gnu/home/services/xdg.scm | 41 ++++++++++++++++++++++-----------------
1 file changed, 23 insertions(+), 18 deletions(-)
diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 71c028c788..5a41dc4994 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -23,6 +23,7 @@ (define-module (gnu home services xdg)
#:use-module (gnu packages freedesktop)
#:use-module (gnu home services utils)
#:use-module (guix gexp)
+ #:use-module (guix modules)
#:use-module (guix records)
#:use-module (guix i18n)
#:use-module (guix diagnostics)
@@ -105,16 +106,17 @@ (define (home-xdg-base-directories-environment-variables-service config)
home-xdg-base-directories-configuration-fields))
(define (ensure-xdg-base-dirs-on-activation config)
- #~(map (lambda (xdg-base-dir-variable)
- ((@@ (guix build utils) mkdir-p)
- (getenv
- xdg-base-dir-variable)))
- '#$(map (lambda (field)
- (format
- #f "XDG_~a"
- (object->snake-case-string
- (configuration-field-name field) 'upper)))
- home-xdg-base-directories-configuration-fields)))
+ (with-imported-modules '((guix build utils))
+ #~(map (lambda (xdg-base-dir-variable)
+ ((@ (guix build utils) mkdir-p)
+ (getenv
+ xdg-base-dir-variable)))
+ '#$(map (lambda (field)
+ (format
+ #f "XDG_~a"
+ (object->snake-case-string
+ (configuration-field-name field) 'upper)))
+ home-xdg-base-directories-configuration-fields))))
(define (last-extension-or-cfg config extensions)
"Picks configuration value from last provided extension. If there
@@ -205,14 +207,17 @@ (define (home-xdg-user-directories-activation-service config)
(let ((dirs (map (lambda (field)
((configuration-field-getter field) config))
home-xdg-user-directories-configuration-fields)))
- #~(let ((ensure-dir
- (lambda (path)
- (mkdir-p
- ((@@ (ice-9 string-fun) string-replace-substring)
- path "$HOME" (getenv "HOME"))))))
- (display "Creating XDG user directories...")
- (map ensure-dir '#$dirs)
- (display " done\n"))))
+ (with-imported-modules `((guix build utils)
+ ,@(source-module-closure
+ '((ice-9 string-fun))))
+ #~(let ((ensure-dir
+ (lambda (path)
+ ((@ (guix build utils) mkdir-p)
+ ((@ (ice-9 string-fun) string-replace-substring)
+ path "$HOME" (getenv "HOME"))))))
+ (display "Creating XDG user directories...")
+ (map ensure-dir '#$dirs)
+ (display " done\n")))))
(define home-xdg-user-directories-service-type
(service-type (name 'home-xdg-user-directories)
--
2.37.0
[0002-home-xdg-Skip-mkdir-XDG_RUNTIME_DIR-in-activation-sc.patch (text/x-patch, inline)]
From da332f8272ea3c240fc4e3664051da3b3a4e18c6 Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew <at> trop.in>
Date: Thu, 21 Jul 2022 17:06:24 +0300
Subject: [PATCH 2/2] home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation
script.
* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation): Skip mkdir
XDG_RUNTIME_DIR in activation script.
---
gnu/home/services/xdg.scm | 19 ++++++++++++-------
1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 5a41dc4994..541f64a379 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -109,13 +109,18 @@ (define (ensure-xdg-base-dirs-on-activation config)
(with-imported-modules '((guix build utils))
#~(map (lambda (xdg-base-dir-variable)
((@ (guix build utils) mkdir-p)
- (getenv
- xdg-base-dir-variable)))
- '#$(map (lambda (field)
- (format
- #f "XDG_~a"
- (object->snake-case-string
- (configuration-field-name field) 'upper)))
+ (getenv xdg-base-dir-variable)))
+ '#$(filter-map
+ (lambda (field)
+ (let ((env-var-name
+ (format
+ #f "XDG_~a"
+ (object->snake-case-string
+ (configuration-field-name field) 'upper))))
+ ;; XDG_RUNTIME_DIR shouldn't be created during activation
+ ;; and will be provided by elogind or other service.
+ (and (not (string=? "XDG_RUNTIME_DIR" env-var-name))
+ env-var-name)))
home-xdg-base-directories-configuration-fields))))
(define (last-extension-or-cfg config extensions)
--
2.37.0
[signature.asc (application/pgp-signature, inline)]
This bug report was last modified 2 years and 291 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.