From 46154996979b4d8e0a588c2cb218880c3933278d Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 12 May 2022 20:54:20 -0300
Subject: etc/guix/system.scm: Add xmonad-current custom package

---
 etc/guix/system.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/etc/guix/system.scm b/etc/guix/system.scm
index 14b864f..1401ab0 100644
--- a/etc/guix/system.scm
+++ b/etc/guix/system.scm
@@ -14,6 +14,20 @@
   (nongnu packages linux)
   (nongnu system linux-initrd))
 
+(define xmonad-current
+  (package
+    (inherit xmonad)
+    (arguments
+      (substitute-keyword-arguments (package-arguments xmonad)
+	((#:phases phases)
+	 `(modify-phases ,phases
+	    (add-after 'install-xsession 'set-desktop-name
+	      (lambda* (#:key outputs #:allow-other-keys)
+                (substitute* (string-append (assoc-ref outputs "out")
+                                            "/share/xsessions/xmonad.desktop")
+                  (("Name=xmonad-next") "Name=xmonad"))))))))))
+
+
 (operating-system
   (kernel linux)
   (initrd microcode-initrd)
@@ -43,7 +57,10 @@
      (map (compose list specification->package+output symbol->string)
           '(nss-certs
             i3-wm))
-     %base-packages))
+     (list xmonad-current)
+     (remove (lambda (package)
+               (equal? "wget" (package-name package)))
+             %base-packages)))
   (services
     (append
      (list
-- 
cgit v1.2.3