diff options
| author | EuAndreh <eu@euandre.org> | 2023-02-28 14:52:35 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-02-28 14:52:37 -0300 |
| commit | 6a7323c44094632077e2e2fbb0b768fbf484bac3 (patch) | |
| tree | f0dbca9259c295cad49564f1a5ec4dd0c4b57e0f | |
| parent | etc/sh/rc: Sleep after 30 minutes instead of 5 (diff) | |
| download | dotfiles-6a7323c44094632077e2e2fbb0b768fbf484bac3.tar.gz dotfiles-6a7323c44094632077e2e2fbb0b768fbf484bac3.tar.xz | |
etc/guix/system.scm: Use patched xmonad
Wait while patch [0] isn't included upstream.
[0]: https://issues.guix.gnu.org/61872
| -rw-r--r-- | etc/guix/system.scm | 31 |
1 files 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))) |