From b951e26fe564ce47ff2592c120249643d00b2149 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 27 Feb 2016 12:00:20 +0100 Subject: gnu: arandr: Add "xrandr" to inputs. * gnu/packages/xdisorg.scm (arandr)[inputs]: Add "xrandr". [arguments]: Add build phase "make-xrandr-available" to ensure "xrandr" executable is found at runtime. --- gnu/packages/xdisorg.scm | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index d72f9f80c6..5a77a6c8f3 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2015 xd1le ;;; Copyright © 2015 Florian Paul Schmidt ;;; Copyright © 2016 Christopher Allan Webber +;;; Copyright © 2016 Ricardo Wurmus ;;; ;;; This file is part of GNU Guix. ;;; @@ -66,9 +67,20 @@ (base32 "0d574mbmhaqmh7kivaryj2hpghz6xkvic9ah43s1hf385y7c33kd")))) (build-system python-build-system) - (arguments `(#:python ,python-2 ;incompatible with python 3 - #:tests? #f)) ;no tests - (inputs `(("pygtk" ,python2-pygtk))) + (arguments + `(#:python ,python-2 ;incompatible with python 3 + #:tests? #f ;no tests + #:phases + (modify-phases %standard-phases + (add-after 'install 'make-xrandr-available + (lambda* (#:key inputs outputs #:allow-other-keys) + (wrap-program (string-append (assoc-ref outputs "out") + "/bin/arandr") + `("PATH" ":" prefix (,(string-append (assoc-ref inputs "xrandr") + "/bin")))) + #t))))) + (inputs `(("pygtk" ,python2-pygtk) + ("xrandr" ,xrandr))) (native-inputs `(("gettext" ,gnu-gettext) ("python-docutils" ,python2-docutils) ("python-setuptools" ,python2-setuptools))) -- cgit 1.4.1