diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-08 15:27:20 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-08 15:27:20 -0300 |
| commit | f8bb08a79b27ddbc7cf9dc8f40dc7d7c4d81f5ec (patch) | |
| tree | 8ce2739554754018b77d6e5ac64d93cc81d34274 | |
| parent | etc/sh/rc: Shrink $GOLDFLAGS (diff) | |
| download | dotfiles-f8bb08a79b27ddbc7cf9dc8f40dc7d7c4d81f5ec.tar.gz dotfiles-f8bb08a79b27ddbc7cf9dc8f40dc7d7c4d81f5ec.tar.xz | |
etc/guix/system.scm: Add fixed "xmonad-wm" package
| -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 |