From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:45784) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hIZxN-0000cJ-B8 for guix-patches@gnu.org; Mon, 22 Apr 2019 10:30:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hIZxL-0005eb-HB for guix-patches@gnu.org; Mon, 22 Apr 2019 10:30:05 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:37649) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hIZxL-0005eB-1N for guix-patches@gnu.org; Mon, 22 Apr 2019 10:30:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hIZxK-0000LK-RG for guix-patches@gnu.org; Mon, 22 Apr 2019 10:30:02 -0400 Subject: [bug#35377] [PATCH] gnu: gdm: Provide custom session. Resent-Message-ID: Received: from eggs.gnu.org ([209.51.188.92]:44953) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hIZwE-0007oA-SY for guix-patches@gnu.org; Mon, 22 Apr 2019 10:28:55 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hIZit-0006Qr-N5 for guix-patches@gnu.org; Mon, 22 Apr 2019 10:15:08 -0400 Received: from dd26836.kasserver.com ([85.13.145.193]:38564) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hIZit-0006PO-H7 for guix-patches@gnu.org; Mon, 22 Apr 2019 10:15:07 -0400 From: Danny Milosavljevic Date: Mon, 22 Apr 2019 16:15:01 +0200 Message-Id: <20190422141501.6140-1-dannym@scratchpost.org> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 35377@debbugs.gnu.org * gnu/packages/gnome.scm (gdm)[arguments]<#:phases>[install-custom-sessio= n]: Provide custom session. --- gnu/packages/gnome.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 101c0ce13f..e3738fbd93 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -5536,6 +5536,23 @@ libxml2.") (string-append "\"" (assoc-ref inputs "gnome-session") "/bin/gnome-session\""))) #t)) + (add-after 'install 'install-custom-session + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (builtin-sessions (string-append out + "/share/gdm/BuiltIn= Sessions"))) + (mkdir-p builtin-sessions) + (call-with-output-file (string-append builtin-sessions "/= custom.desktop") + (lambda (port) + (format port "[Desktop Entry] +Encoding=3DUTF-8 +Type=3DApplication +Name=3DCustom Session +Comment=3DCustomized user session (in ~/.xsession) +X-GDM-BypassXsession=3Dfalse +Exec=3Dcustom +"))) + #t))) ;; GDM needs GNOME Session to run these applications. We link ;; their autostart files in `share/gdm/greeter/autostart' ;; because GDM explicitly tells GNOME Session to look there.