From mboxrd@z Thu Jan  1 00:00:00 1970
From: L  p R n  d n    <guix@lprndn.info>
Subject: Re: Porting Lutris over
Date: Tue, 18 Jun 2019 10:07:06 +0200
Message-ID: <87tvcns4et.fsf@lprndn.info>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:35179)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <guix@lprndn.info>) id 1hd99F-0004u9-NJ
 for guix-devel@gnu.org; Tue, 18 Jun 2019 04:07:23 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <guix@lprndn.info>) id 1hd99D-00060a-Oi
 for guix-devel@gnu.org; Tue, 18 Jun 2019 04:07:21 -0400
Received: from mout01.posteo.de ([185.67.36.141]:56014)
 by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <guix@lprndn.info>) id 1hd99B-0005tZ-QF
 for guix-devel@gnu.org; Tue, 18 Jun 2019 04:07:19 -0400
Received: from submission (posteo.de [89.146.220.130])
 by mout01.posteo.de (Postfix) with ESMTPS id 8B84D16005F
 for <guix-devel@gnu.org>; Tue, 18 Jun 2019 10:07:08 +0200 (CEST)
In-Reply-To: Marlin's message of "Mon\, 17 Jun 2019 22\:33\:23 -0300 \(6 hours\,
 26 minutes\, 40 seconds ago\)"
List-Id: "Development of GNU Guix and the GNU System distribution."
 <guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
 <mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guix-devel>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
 <mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: "Guix-devel" <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
To: Marlin <mbmattos1113@firemail.cc>
Cc: guix-devel@gnu.org

Hello,


Here is what I had somewhere lost on my computer for lutris:

(arguments
     `(#:tests? #f
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'wrap-program
           (lambda* (#:key outputs inputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (input-path (lambda (lib path)
                                  (string-append (assoc-ref inputs lib) path)))
                    (libraries '("mesa" "glu" "libdrm" "webkitgtk"))

                    (libs
                     (map (lambda (lib) (input-path lib "/lib"))
                          libraries))
                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
               (wrap-program (string-append out "/bin/lutris")
                 `("GI_TYPELIB_PATH" = (,gi-typelib-path))
                 `("LD_LIBRARY_PATH" ":" prefix ,libs))
               #t))))))

As I remember, it should build but I kind of gave up with runtime stuff.
Also, I'm not sure it's compatible with FSF.
Hope it helps.

Lprndn