diff mbox

[bug#50559,0/2] Add home modules to (guix self)

Message ID 87czpdroen.fsf@trop.in
State Accepted
Headers show

Commit Message

Andrew Tropin Sept. 13, 2021, 6:16 a.m. UTC 
I studied (guix self) source code very briefly, so I hope I did changes
correctly.  Let me know, please, if something is wrong here.
Andrew Tropin (2):
  home-services: shepherd: Add missing exports.
  guix: self: Add *home-modules*.

 gnu/home-services/shepherd.scm |  2 ++
 guix/self.scm                  | 13 ++++++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

Comments

Oleg Pykhalov Sept. 13, 2021, 8:02 p.m. UTC | #1 
Pushed to wip-guix-home.
diff mbox

Patch

From ce36535761b0189043256ea17b79a8672be96fac Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew@trop.in>
Date: Fri, 10 Sep 2021 12:53:02 +0300
Subject: [PATCH 2/2] guix: self: Add *home-modules*.

* guix/self.scm(*home-modules*): New variable.
---
 guix/self.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index 79d93357a2..5922ea6aa1 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -958,13 +958,23 @@  itself."
                  #:guile-for-build
                  guile-for-build))
 
+  (define *home-modules*
+    (scheme-node "guix-home"
+                 `((gnu home)
+                   (gnu home-services)
+                   ,@(scheme-modules* source "gnu/home-services"))
+                 (list *core-package-modules* *package-modules*
+                       *extra-modules* *core-modules* *system-modules*)
+                 #:extensions dependencies
+                 #:guile-for-build guile-for-build))
+
   (define *cli-modules*
     (scheme-node "guix-cli"
                  (append (scheme-modules* source "/guix/scripts")
                          `((gnu ci)))
                  (list *core-modules* *extra-modules*
                        *core-package-modules* *package-modules*
-                       *system-modules*)
+                       *system-modules* *home-modules*)
                  #:extensions dependencies
                  #:guile-for-build guile-for-build))
 
@@ -1012,6 +1022,7 @@  itself."
                                        *cli-modules*
                                        *system-test-modules*
                                        *system-modules*
+                                       *home-modules*
                                        *package-modules*
                                        *core-package-modules*
                                        *extra-modules*
-- 
2.33.0