From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Darrington Subject: Re: [PATCH] Adding .xsession to guile-wm Date: Mon, 12 Sep 2016 18:05:27 +0200 Message-ID: <20160912160527.GA6808@jocasta.intra> References: Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="1yeeQ81UyVL57Vl7" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56940) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjTjj-0000Xa-He for guix-devel@gnu.org; Mon, 12 Sep 2016 12:05:44 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjTjf-0000IV-Cz for guix-devel@gnu.org; Mon, 12 Sep 2016 12:05:35 -0400 Received: from de.cellform.com ([88.217.224.109]:55562 helo=jocasta.intra) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjTje-0000GZ-Vq for guix-devel@gnu.org; Mon, 12 Sep 2016 12:05:31 -0400 Content-Disposition: inline In-Reply-To: List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Alex ter Weele Cc: guix-devel@gnu.org --1yeeQ81UyVL57Vl7 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Most of the .desktop files in my store do not have the /gnu/store/... on th= eir Exec=3D 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 Date: Sun, 11 Sep 2016 22:18:53 -0400 Subject: [PATCH] Adding .xsession to guile-wm =20 --- gnu/packages/guile-wm.scm | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) =20 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/gui= le-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=3D" (assoc-ref %outputs "out") @@ -103,7 +104,27 @@ dependencies.") `("GUILE_LOAD_PATH" ":" prefix (,mod= s ,xcb)) `("GUILE_LOAD_COMPILED_PATH" ":" pre= fix (,mods ,xcb))))) - %standard-phases)))) + (alist-cons-after + 'install 'install-xsession + (lambda* (#:key outputs #:allow-other-ke= ys) + ;; add a .desktop file to xsessions + (let ((xsessions (string-append + %output "/share/xses= sions"))) + (mkdir-p xsessions) + (call-with-output-file + (string-append + xsessions "/guile-wm.desktop") + (lambda (port) + (format + port + "~ + [Desktop Entry]~@ + Name=3D~a~@ + Comment=3D~a~@ + Exec=3D~a/bin/guile-wm~@ + Type=3DApplication~%" + ,name ,synopsis %output))))) + %standard-phases))))) (native-inputs `(("pkg-config" ,pkg-config))) (inputs `(("guile" ,guile-2.0) ("guile-xcb" ,guile-xcb))) --=20 2.10.0 =20 --=20 Avoid eavesdropping. Send strong encrypted email. PGP Public key ID: 1024D/2DE827B3=20 fingerprint =3D 8797 A26D 0854 2EAB 0285 A290 8A67 719C 2DE8 27B3 See http://sks-keyservers.net or any PGP keyserver for public key. --1yeeQ81UyVL57Vl7 Content-Type: application/pgp-signature; name="signature.asc" Content-Description: Digital signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 iEYEARECAAYFAlfW0kcACgkQimdxnC3oJ7NElgCfaKCT5uF1q9WZdDdelYCx7WUF pBkAn1UpieRlEk3qCEyMYbk9IHeXEKv4 =AAe9 -----END PGP SIGNATURE----- --1yeeQ81UyVL57Vl7--