[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#59983] [PATCH] home: Let user configure XDG base directories.
From: |
Antero Mejr |
Subject: |
[bug#59983] [PATCH] home: Let user configure XDG base directories. |
Date: |
Mon, 12 Dec 2022 03:00:49 +0000 |
* gnu/home.scm (home-environment)[base-xdg-configuration]: New field.
* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation): Make
XDG_RUNTIME_DIR directory if the configuration changes it from the default.
---
Allows making a runtime dir at ~/.local/runtime (or any other dir),
so users don't have to set up elogind or other greeters/PAM modules.
gnu/home.scm | 9 +++++++--
gnu/home/services/xdg.scm | 7 ++++++-
2 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/gnu/home.scm b/gnu/home.scm
index c95d1e0818..f100b575e3 100644
--- a/gnu/home.scm
+++ b/gnu/home.scm
@@ -39,6 +39,7 @@ (define-module (gnu home)
home-environment-essential-services
home-environment-services
home-environment-location
+ home-environment-base-xdg-configuration
home-environment-with-provenance
@@ -71,7 +72,10 @@ (define-record-type* <home-environment> home-environment
(location home-environment-location ; <location>
(default (and=> (current-source-location)
source-properties->location))
- (innate)))
+ (innate))
+
+ (base-xdg-configuration home-environment-base-xdg-configuration
+ (default (home-xdg-base-directories-configuration))))
(define (home-environment-default-essential-services he)
"Return the list of essential services for home environment."
@@ -83,7 +87,8 @@ (define (home-environment-default-essential-services he)
(service home-symlink-manager-service-type)
(service home-fontconfig-service-type)
- (service home-xdg-base-directories-service-type)
+ (service home-xdg-base-directories-service-type
+ (home-environment-base-xdg-configuration he))
(service home-shell-profile-service-type)
(service home-service-type)
diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 865f8b81d7..b62580461e 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -133,7 +133,12 @@ (define (ensure-xdg-base-dirs-on-activation config)
(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" variable))
+ ;; But if the user changes the value from the default,
+ ;; then we can make XDG_RUNTIME_DIR.
+ (and (or (not (string=? "XDG_RUNTIME_DIR" variable))
+ (not (string=? ((configuration-field-getter field)
+ config)
+
"${XDG_RUNTIME_DIR:-/run/user/$UID}")))
variable)))
home-xdg-base-directories-configuration-fields)))
--
2.38.1
- [bug#59983] [PATCH] home: Let user configure XDG base directories.,
Antero Mejr <=