From 5cec0ad8e1b9ec44517643129bce8eb440fb1856 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Sun, 12 Jan 2020 22:12:59 +0100
Subject: [PATCH] local/bin/homeinit: Init Guix manifests.

---
 .local/bin/homeinit | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/.local/bin/homeinit b/.local/bin/homeinit
index ddae0ad5..d216f745 100755
--- a/.local/bin/homeinit
+++ b/.local/bin/homeinit
@@ -232,11 +232,18 @@ if inpath guix; then
 		unset CURRENT_COMMIT
 	fi
 
-	## TODO: The manifest will uninstall other unspecified packages.  Is this
-	## really what we want?
-	# export GUIX_PACKAGE_PATH=$HOME/.guix-packages
-	~/.config/guix/current/bin/guix package --manifest=$HOME/.package-lists/guix-manifest.scm --keep-failed
+	~/.config/guix/current/bin/guix package --manifest=$HOME/.package-lists/guix-default-manifest.scm --keep-failed
 	. ~/.guix-profile/etc/profile
+
+	for i in main emacs texlive; do
+		profile=$HOME/.guix-extra-profiles/$i/$i
+		mkdir -p $(dirname "$profile")
+		~/.config/guix/current/bin/guix package --manifest=$HOME/.package-lists/guix-$i-manifest.scm --keep-failed --profile="$profile"
+		if [ -f "$profile"/etc/profile ]; then
+			. "$profile"/etc/profile
+		fi
+		unset profile
+	done
 fi
 
 section "Quicklisp"