diff options
| author | EuAndreh <eu@euandre.org> | 2022-05-12 20:54:20 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-05-12 20:54:26 -0300 |
| commit | 46154996979b4d8e0a588c2cb218880c3933278d (patch) | |
| tree | f33a6f43d32fd1e24e4d0cd41779c5548d3ab3fa | |
| parent | etc/guix/system.scm: Include virtualization and printing services (diff) | |
| download | dotfiles-46154996979b4d8e0a588c2cb218880c3933278d.tar.gz dotfiles-46154996979b4d8e0a588c2cb218880c3933278d.tar.xz | |
etc/guix/system.scm: Add xmonad-current custom package
| -rw-r--r-- | etc/guix/system.scm | 19 |
1 files changed, 18 insertions, 1 deletions
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 |