03/03: gnu: gnome: Disable hardware acceleration check via 'gnome.desktop'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6cbc8d5766e11cb6fefb7c281d6d6854793a3d24
Author: Ludovic Courtès <address@hidden>
Date:   Fri Mar 18 19:40:03 2016 +0100

    gnu: gnome: Disable hardware acceleration check via 'gnome.desktop'.
    
    * gnu/packages/gnome.scm (gnome-session)[arguments]: Add
    'disable-hardware-acceleration-check' phase.
---
 gnu/packages/gnome.scm |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index b998cc3..e5d62ea 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -3820,7 +3820,18 @@ such as gzip tarballs.")
                    (out  (assoc-ref outputs "out")))
                (wrap-program (string-append out "/bin/gnome-session")
                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
+               #t)))
+         (add-after 'install 'disable-hardware-acceleration-check
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; Do not abort if hardware acceleration is missing.  This allows
+             ;; GNOME to run in QEMU and on low-end devices.
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* (string-append out
+                                           "/share/xsessions/gnome.desktop")
+                 (("gnome-session")
+                  "gnome-session --disable-acceleration-check"))
                #t))))
+
        #:configure-flags
        '("--enable-elogind")))
     (build-system glib-or-gtk-build-system)