[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] Adding .xsession to guile-wm
From: |
John Darrington |
Subject: |
Re: [PATCH] Adding .xsession to guile-wm |
Date: |
Mon, 12 Sep 2016 18:05:27 +0200 |
User-agent: |
Mutt/1.5.23 (2014-03-12) |
Most of the .desktop files in my store do not have the /gnu/store/... on their
Exec= line. Perhaps they should? What is the policy here?
J'
On Sun, Sep 11, 2016 at 11:01:56PM -0400, Alex ter Weele wrote:
Adding an xsession to guile-wm so that display managers will identify it
as an available wm.
From 91f74b1b762596527dfa9412c33e39981932fa70 Mon Sep 17 00:00:00 2001
From: Alex ter Weele <address@hidden>
Date: Sun, 11 Sep 2016 22:18:53 -0400
Subject: [PATCH] Adding .xsession to guile-wm
---
gnu/packages/guile-wm.scm | 25 +++++++++++++++++++++++--
1 file changed, 23 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/guile-wm.scm b/gnu/packages/guile-wm.scm
index 98e657f..606a792 100644
--- a/gnu/packages/guile-wm.scm
+++ b/gnu/packages/guile-wm.scm
@@ -64,6 +64,7 @@ dependencies.")
(package
(name "guile-wm")
(version "1.0")
+ (synopsis "Guile window manager")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.markwitmer.com/dist/guile-wm-"
@@ -72,7 +73,7 @@ dependencies.")
(base32
"1l9qcz236jxvryndimjy62cf8zxf8i3f8vg3zpqqjhw15j9mdk3r"))))
(build-system gnu-build-system)
- (arguments '(;; The '.scm' files go to $(datadir), so set that to the
+ (arguments `(;; The '.scm' files go to $(datadir), so set that to the
;; standard value.
#:configure-flags (list (string-append "--datadir="
(assoc-ref %outputs "out")
@@ -103,7 +104,27 @@ dependencies.")
`("GUILE_LOAD_PATH" ":" prefix (,mods
,xcb))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,mods ,xcb)))))
- %standard-phases))))
+ (alist-cons-after
+ 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; add a .desktop file to xsessions
+ (let ((xsessions (string-append
+ %output
"/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append
+ xsessions "/guile-wm.desktop")
+ (lambda (port)
+ (format
+ port
+ "~
+ [Desktop Entry]~@
+ Name=~a~@
+ Comment=~a~@
+ Exec=~a/bin/guile-wm~@
+ Type=Application~%"
+ ,name ,synopsis %output)))))
+ %standard-phases)))))
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.0)
("guile-xcb" ,guile-xcb)))
--
2.10.0
--
Avoid eavesdropping. Send strong encrypted email.
PGP Public key ID: 1024D/2DE827B3
fingerprint = 8797 A26D 0854 2EAB 0285 A290 8A67 719C 2DE8 27B3
See http://sks-keyservers.net or any PGP keyserver for public key.
signature.asc
Description: Digital signature
- [PATCH] Adding .xsession to guile-wm, Alex ter Weele, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm, Thompson, David, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm,
John Darrington <=
- Re: [PATCH] Adding .xsession to guile-wm, Efraim Flashner, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm, John Darrington, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm, Alex ter Weele, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm, Thompson, David, 2016/09/12
- Re: [PATCH] Adding .xsession to guile-wm, John Darrington, 2016/09/13
- Re: [PATCH] Adding .xsession to guile-wm, Ludovic Courtès, 2016/09/13
- [PATCH] guix: gnu-build-system: add new phase patch-dot-desktop-files, John Darrington, 2016/09/20
- Re: [PATCH] guix: gnu-build-system: add new phase patch-dot-desktop-files, Ludovic Courtès, 2016/09/24
- [PATCH] guix: gnu-build-system: add new phase patch-dot-desktop-files, John Darrington, 2016/09/25
Re: [PATCH] Adding .xsession to guile-wm, Ludovic Courtès, 2016/09/13