Define sway module

1 files changed, 56 insertions, 7 deletions

diff --git a/aisaka.org b/aisaka.org
index deb2dc6..a546e85 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -40,6 +40,56 @@ This service installs flashrom.
      (default-value #f)))
 #+end_src
 
+* TODO Desktop Environment
+
+Sway is the currently chosen operating environment.
+
+** TODO Sway Window Manager
+
+The Sway Window Manager consists of Sway packages and relevant configurations.
+
+#+name: sway
+#+begin_src scheme :tangle services/sway.scm :noweb yes
+  (add-to-load-path "./services")
+
+  (define-module (sway)
+    #:use-module (gnu)
+    #:use-module (gnu home)
+    #:use-module (gnu home services)
+    #:use-module (gnu home services shells))
+
+  <<sway-packages>>
+
+  <<sway-configuration>>
+#+end_src
+
+*** TODO Sway Installation
+
+#+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)))
+#+end_src
+
+*** TODO Sway configuration
+
+#+name: sway-configuration
+#+begin_src scheme
+  (define-public sway-configuration
+    (simple-service 'configuration-files home-files-service-type
+		    `((".config/sway/config" ,(local-file "../sway.config"))
+		      (".config/waybar/config" ,(local-file "../waybar.config")))))
+#+end_src
+
 * imported configuration dump
 ** TODO System configuration
 
@@ -135,7 +185,8 @@ This service installs flashrom.
     #:use-module (gnu home services shells)
     #:use-module (gnu packages)
     #:use-module (gnu services)
-    #:use-module (guix gexp))
+    #:use-module (guix gexp)
+    #:use-module (sway))
 
   (define allow-downgrades
     "--allow-downgrades ")
@@ -234,13 +285,12 @@ This service installs flashrom.
 		    "seahorse"
 		    "sicp"
 		    "strace"
-		    "sway"
 		    "trezor-agent"
 		    "unzip"
-		    "waybar"
 		    "zip")))
    (services
-    `(,(service flashrom-service-type)
+    `(,sway-configuration
+      ,(service flashrom-service-type)
       ,(service home-bash-service-type
 		(home-bash-configuration
 		 (environment-variables '(("EDITOR" . "emacs -nw")
@@ -260,15 +310,14 @@ This service installs flashrom.
 			    ("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"))
 			 (".config/guix/shell-authorized-directories"
 			  ,(local-file "guix-shell-authorized-directories"))
 			 (".emacs" ,(local-file "emacs.el"))
-			 (".ssh/config" ,(local-file "ssh.config"))
-			 (".config/sway/config" ,(local-file "sway.config"))
-			 (".config/waybar/config" ,(local-file "waybar.config")))))))
+			 (".ssh/config" ,(local-file "ssh.config")))))))
 
 #+end_src