From 6a7323c44094632077e2e2fbb0b768fbf484bac3 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 28 Feb 2023 14:52:35 -0300
Subject: etc/guix/system.scm: Use patched xmonad

Wait while patch [0] isn't included upstream.

[0]: https://issues.guix.gnu.org/61872
---
 etc/guix/system.scm | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/etc/guix/system.scm b/etc/guix/system.scm
index 34cd403..796a5d6 100644
--- a/etc/guix/system.scm
+++ b/etc/guix/system.scm
@@ -20,6 +20,7 @@
   (gnu packages tls)
   (gnu packages perl)
   (gnu packages m4)
+  (gnu packages wm)
   (guix utils)
 
 
@@ -51,6 +52,31 @@
   (srfi srfi-1))
 (heredoc:enable-syntax)
 
+;; https://issues.guix.gnu.org/61872
+(define-public xmonad-xsession
+  (package
+    (inherit xmonad)
+    (name "xmonad-xsession")
+    (arguments
+      (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (add-after 'install 'install-xsession
+             (lambda _
+               (let ((xsessions (string-append #$output "/share/xsessions")))
+                 (mkdir-p xsessions)
+                 (call-with-output-file (string-append xsessions
+                                                       "/xmonad.desktop")
+                  (lambda (port)
+                    (format port "~
+                     [Desktop Entry]~@
+                     Name=~a~@
+                     Comment=xmonad window manager~@
+                     Exec=~a/bin/xmonad~@
+                     Type=Application~%" #$name #$output)))))))
+       #:cabal-revision '("2"
+                          "1rgwrnyb7kijzl2mqm8ks2nydh37q5vkbg4400rg9n6x13w2r9b3")))))
+
 (define-public epson-L365
   (package
     (name "epson-L365")
@@ -404,10 +430,11 @@ Seiko Epson Color Ink Jet Printers.")
             nss-mdns
             ghc
             ghc-xmonad-contrib
-            xmonad
+            ;; xmonad
             xmobar
             i3-wm))
-     (list)
+     (list
+      xmonad-xsession)
      (remove (lambda (package)
                (equal? "wget" (package-name package)))
              %base-packages)))
-- 
cgit v1.2.3