@@ -512,7 +512,7 @@ environment, and its configuration file, when available.")))
(define %service-type-path
;; Search path for service types.
- (make-parameter `((,%guix-home-root-directory . "gnu/home-services"))))
+ (make-parameter `((,%guix-home-root-directory . "gnu/services"))))
(define (all-home-service-modules)
"Return the default set of home-service modules."
@@ -521,4 +521,9 @@ environment, and its configuration file, when available.")))
#:warn warn-about-load-error)))
(define* (fold-home-service-types proc seed)
- (fold-service-types proc seed (all-home-service-modules)))
+ (filter (match-lambda
+ ((service-type . _)
+ (string-prefix? "home-"
+ (symbol->string
+ (service-type-name service-type)))))
+ (fold-service-types proc seed (all-home-service-modules))))