Refactor sway-service-type to sway-packages

1 files changed, 13 insertions, 12 deletions

diff --git a/aisaka.org b/aisaka.org
index 620ba27..25d9b0c 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -100,17 +100,18 @@ The Sway Window Manager consists of Sway packages and relevant configurations.
 
 #+name: sway-packages
 #+begin_src scheme
-  (define-public sway-service-type
-    (service-type
-     (name 'sway)
-     (extensions
-      `(,(service-extension home-profile-service-type
-			  (lambda (_)
-			    (map specification->package
-				 '("sway"
-				   "waybar"))))))
-     (description "Sway Window Manager installation.")
-     (default-value #f)))
+  (define-public sway-packages
+    (service
+     (service-type
+      (name 'sway-packages)
+      (extensions
+       `(,(service-extension home-profile-service-type
+			     (lambda (_)
+			       (map specification->package
+				    '("sway"
+				      "waybar"))))))
+      (description "Sway Window Manager installation.")
+      (default-value #f))))
 #+end_src
 
 *** TODO Sway configuration
@@ -326,6 +327,7 @@ The Sway Window Manager consists of Sway packages and relevant configurations.
    (services
     `(,ssh-configuration
       ,sway-configuration
+      ,sway-packages
       ,(service flashrom-service-type)
       ,(service home-bash-service-type
 		(home-bash-configuration
@@ -346,7 +348,6 @@ The Sway Window Manager consists of Sway packages and relevant configurations.
 			    ("system-update-" . ,system-update-)))
 		 (bash-profile `(,(local-file "bash_profile")))
 		 (bashrc `(,(local-file "bashrc")))))
-      ,(service sway-service-type)
       ,(simple-service 'configuration-files
 		       home-files-service-type
 		       `((".config/git/config" ,(local-file "git.config"))