diff options
| author | jonscoresby--- <jonscoresby@mailbox.org> | 2022-08-26 09:28:20 -0600 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2022-08-27 23:48:56 +0200 |
| commit | b0d64a81dcf95c725a5e547a71d20c29d41b5c6f (patch) | |
| tree | 9e601f7fc887ce56fc657a5137494fb1f8e39c68 | |
| parent | 69820ecfd9269216cbccab8202718e015c46bd72 (diff) | |
| download | guix-b0d64a81dcf95c725a5e547a71d20c29d41b5c6f.tar.gz | |
gnu: qtile: Install .desktop file.
* gnu/packages/wm.scm (qtile)[arguments]: Add install-xsession phase. Signed-off-by: Marius Bakke <marius@gnu.org>
| -rw-r--r-- | gnu/packages/wm.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 7ea6840689..5084d194a6 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -579,7 +579,16 @@ subscribe to events.") (assoc-ref inputs "pango") "/lib/libpango-1.0.so.0\")\n")) (("^pangocairo = ffi.dlopen.*") (string-append "pangocairo = ffi.dlopen(\"" - (assoc-ref inputs "pango") "/lib/libpangocairo-1.0.so.0\")\n")))))))) + (assoc-ref inputs "pango") "/lib/libpangocairo-1.0.so.0\")\n"))))) + (add-after 'install 'install-xsession + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (xsessions (string-append out "/share/xsessions")) + (qtile (string-append out "/bin/qtile start"))) + (mkdir-p xsessions) + (copy-file "resources/qtile.desktop" (string-append xsessions "/qtile.desktop")) + (substitute* (string-append xsessions "/qtile.desktop") + (("qtile start") qtile)))))))) (inputs (list glib pango pulseaudio)) (propagated-inputs |