From ad1c349db067fc8d035a05ace39d22d0125e8f85 Mon Sep 17 00:00:00 2001 From: ng0 Date: Sun, 15 Jan 2017 12:21:16 +0000 Subject: gnu: dwm: Add '.desktop' file. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes . * gnu/packages/suckless.scm (dwm)[arguments]: Add 'install-xsession' phase. Signed-off-by: Ludovic Courtès --- gnu/packages/suckless.scm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm index a737a29dc0..e30a0883a3 100644 --- a/gnu/packages/suckless.scm +++ b/gnu/packages/suckless.scm @@ -74,7 +74,26 @@ (let ((out (assoc-ref outputs "out"))) (zero? (system* "make" "install" - (string-append "DESTDIR=" out) "PREFIX=")))))))) + (string-append "DESTDIR=" out) "PREFIX="))))) + (add-after 'build 'install-xsession + (lambda* (#:key outputs #:allow-other-keys) + ;; Add a .desktop file to xsessions. + (let* ((output (assoc-ref outputs "out")) + (xsessions (string-append output "/share/xsessions"))) + (mkdir-p xsessions) + (with-output-to-file + (string-append xsessions "/dwm.desktop") + (lambda _ + (format #t + "[Desktop Entry]~@ + Name=dwm~@ + Comment=Dynamic Window Manager~@ + Exec=~a/bin/dwm~@ + TryExec=~@*~a/bin/dwm~@ + Icon=~@ + Type=Application~%" + output))) + #t)))))) (inputs `(("freetype" ,freetype) ("libx11" ,libx11) -- cgit v1.2.3