aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--etc/guix/system.scm29
1 files changed, 26 insertions, 3 deletions
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