guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: lxsession: Build Vala code from source.


From: Ludovic Courtès
Subject: 01/01: gnu: lxsession: Build Vala code from source.
Date: Wed, 29 Mar 2017 07:19:31 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit a4cdcffb19f38b47bb7e0234c1244edbede35d59
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 29 13:14:28 2017 +0200

    gnu: lxsession: Build Vala code from source.
    
    * gnu/packages/lxde.scm (lxsession)[source](snippet): New field.
---
 gnu/packages/lxde.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/lxde.scm b/gnu/packages/lxde.scm
index 0844263..e765405 100644
--- a/gnu/packages/lxde.scm
+++ b/gnu/packages/lxde.scm
@@ -333,7 +333,20 @@ in LXDE.")
        (patches (search-patches "lxsession-use-gapplication.patch"))
        (sha256
         (base32
-         "1a0zmyywwzdh59nc0l94cir18vhp633z4q2xfhn5zx11ajj45gwh"))))
+         "1a0zmyywwzdh59nc0l94cir18vhp633z4q2xfhn5zx11ajj45gwh"))
+       (modules '((guix build utils)))
+       (snippet
+        ;; Remove C files generated by Vala so we can build from source.
+        '(let* ((c->vala
+                 (lambda (file)
+                   (string-append (string-drop-right file 2)
+                                  ".vala")))
+                (generated-c-file?
+                 (lambda (file stat)
+                   (and (string-suffix? ".c" file)
+                        (file-exists? (c->vala file))))))
+           (for-each delete-file
+                     (find-files "." generated-c-file?))))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases



reply via email to

[Prev in Thread] Current Thread [Next in Thread]