amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: home: Make sure profile directory exists.

Browse source 
* guix/scripts/home.scm (process-action): Make sure profile directory exists.
This commit is contained in:
Oleg Pykhalov 2021-10-09 14:52:10 +03:00
parent 0e8d2df0f1
commit 0f6a27c2c4
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
gnu/home/services.scm
View file

@ -508,7 +508,8 @@ environment, and its configuration file, when available.")))
(define %guix-home-root-directory (define %guix-home-root-directory
;; Absolute file name of the module hierarchy. ;; Absolute file name of the module hierarchy.
(parent-directory (dirname (search-path %load-path "gnu/home/services.scm")))) (parent-directory
(dirname (dirname (search-path %load-path "gnu/home/services.scm")))))
(define %service-type-path (define %service-type-path
;; Search path for service types. ;; Search path for service types.

2
guix/scripts/home.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in> ;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -189,6 +190,7 @@ ACTION must be one of the sub-commands that takes a home environment
declaration as an argument (a file name.) OPTS is the raw alist of options declaration as an argument (a file name.) OPTS is the raw alist of options
resulting from command-line parsing." resulting from command-line parsing."
(define (ensure-home-environment file-or-exp obj) (define (ensure-home-environment file-or-exp obj)
(ensure-profile-directory)
(unless (home-environment? obj) (unless (home-environment? obj)
(leave (G_ "'~a' does not return a home environment ~%") (leave (G_ "'~a' does not return a home environment ~%")
file-or-exp)) file-or-exp))