diff options
| -rw-r--r-- | etc/guix/system.scm | 29 |
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 |