fix(marekpasnikowski): remove doubled call to %suweren-home-services

1 files changed, 10 insertions, 12 deletions

diff --git a/users/marekpasnikowski.scm b/users/marekpasnikowski.scm
index 0650fe7..e70e19d 100644
--- a/users/marekpasnikowski.scm
+++ b/users/marekpasnikowski.scm
@@ -17,27 +17,25 @@
   )
 
 ;; DEPRECATED
-(define marekpasnikowski-services
+(define-public home
   (let* ((packages (list emacs
 			 emacs-org-roam
 			 emacs-paredit))
 
-	 (profile (list (simple-service 'marekpasnikowski-packages
-					home-profile-service-type
-					packages))))
-    (append %suweren-home-services
-	    profile)))
+	 (profile (simple-service 'marekpasnikowski-packages
+				  home-profile-service-type
+				  packages))
+
+	 (user-services (list profile))
+
+	 (services* (append %suweren-home-services
+			    user-services)))
+    (home-environment (services services*))))
 
 ;; string
 (define-public marekpasnikowski-username
   "marek")
 
-;; DEPRECATED
-(define-public home
-  (let ((services* (append %suweren-home-services
-			   marekpasnikowski-services)))
-    (home-environment (services services*))))
-
 ;; (string) ->
 ;; record user-account
 (define-public (marekpasnikowski-account supplementary-groups*)