[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