From f8bb08a79b27ddbc7cf9dc8f40dc7d7c4d81f5ec Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 8 Aug 2024 15:27:20 -0300
Subject: etc/guix/system.scm: Add fixed "xmonad-wm" package

---
 etc/guix/system.scm | 29 ++++++++++++++++++++++++++---
 1 file changed, 26 insertions(+), 3 deletions(-)

(limited to 'etc/guix/system.scm')

diff --git a/etc/guix/system.scm b/etc/guix/system.scm
index 21d5343..b4a2564 100644
--- a/etc/guix/system.scm
+++ b/etc/guix/system.scm
@@ -14,7 +14,8 @@
   cups
   cpio
   image
-  package-management)
+  package-management
+  wm)
 (use-service-modules
   admin
   cups
@@ -91,6 +92,28 @@ Seiko Epson Color Ink Jet Printers.")
       (list (ng.license:nonfree "https://epson.com/SoftwareLicenseAgreement")
             license:lgpl2.1))))
 
+(define-public xmonad-wm
+  (package
+    (inherit xmonad)
+    (arguments
+      (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (add-after 'install 'install-xsession
+             (lambda _
+               (let* ((xsessions (string-append #$output "/share/xsessions"))
+                      (entry     (string-append xsessions "/xmonad.desktop")))
+                 (mkdir-p xsessions)
+                 (call-with-output-file
+                  entry
+                  (lambda (port)
+                    (format port "~
+                      [Desktop Entry]~@
+                      Name=xmonad~@
+                      Comment=xmonad window manager~@
+                      Exec=~a/bin/xmonad~@
+                      Type=Application~%" #$output)))))))))))
+
 
 (define current-architecture
   (car
@@ -146,10 +169,10 @@ Seiko Epson Color Ink Jet Printers.")
             nix
             ghc
             ghc-xmonad-contrib
-            xmonad
             xmobar
             i3-wm))
-     (list)
+     (list
+      xmonad-wm)
      %base-packages))
   (services
     (append
-- 
cgit v1.2.3