[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: gtk-doc: Wrap executables.
From: |
Ricardo Wurmus |
Subject: |
01/01: gnu: gtk-doc: Wrap executables. |
Date: |
Sun, 24 Jun 2018 11:36:16 -0400 (EDT) |
rekado pushed a commit to branch master
in repository guix.
commit d86a7c647d9b51de0c3d7e420c0951cedbca49eb
Author: Ricardo Wurmus <address@hidden>
Date: Sun Jun 24 17:35:31 2018 +0200
gnu: gtk-doc: Wrap executables.
* gnu/packages/gtk.scm (gtk-doc)[arguments]: Add phase "wrap-executables".
---
gnu/packages/gtk.scm | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 56f3a24..bc7cda0 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -8,7 +8,7 @@
;;; Copyright © 2015 Sou Bunnbu <address@hidden>
;;; Copyright © 2015 Andy Wingo <address@hidden>
;;; Copyright © 2015 David Hashe <address@hidden>
-;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <address@hidden>
;;; Copyright © 2016, 2017 Efraim Flashner <address@hidden>
;;; Copyright © 2016 Fabian Harfert <address@hidden>
;;; Copyright © 2016 Kei Kebreau <address@hidden>
@@ -1468,7 +1468,15 @@ information.")
(string-append (car (find-files (assoc-ref inputs
"docbook-xsl")
"^catalog.xml$"))
"
\"http://docbook.sourceforge.net/release/xsl/")))
- #t)))
+ #t))
+ (add-after 'install 'wrap-executables
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (for-each (lambda (prog)
+ (wrap-program prog
+ `("PYTHONPATH" ":" prefix (,(getenv
"PYTHONPATH")))))
+ (find-files (string-append out "/bin")))
+ #t))))
#:configure-flags
(list (string-append "--with-xml-catalog="
(assoc-ref %build-inputs "docbook-xml")