01/03: gnu: Add arandr.

[Mathieu Lirzin]

mthl pushed a commit to branch master
in repository guix.

commit ae05b1856ff0f865af7353bf8b575fdb79888770
Author: Mathieu Lirzin <address@hidden>
Date:   Sat Sep 26 18:03:40 2015 +0200

    gnu: Add arandr.
    
    * gnu/packages/xdisorg.scm (arandr): New variable.
---
 gnu/packages/xdisorg.scm |   31 +++++++++++++++++++++++++++++++
 1 files changed, 31 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 7aa82fe..96e7c3a 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -30,12 +30,15 @@
   #:use-module (guix utils)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system glib-or-gtk)
+  #:use-module (guix build-system python)
   #:use-module (gnu packages)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages image)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages perl)
+  #:use-module (gnu packages python)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages xml)
@@ -44,6 +47,34 @@
 
 ;; packages outside the x.org system proper
 
+(define-public arandr
+  (package
+    (name "arandr")
+    (version "0.1.8")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://christian.amsuess.com/tools/"; name
+                                  "/files/" name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0d574mbmhaqmh7kivaryj2hpghz6xkvic9ah43s1hf385y7c33kd"))))
+    (build-system python-build-system)
+    (arguments `(#:python ,python-2     ;incompatible with python 3
+                 #:tests? #f))          ;no tests
+    (inputs `(("pygtk" ,python2-pygtk)))
+    (native-inputs `(("gettext"           ,gnu-gettext)
+                     ("python-docutils"   ,python2-docutils)
+                     ("python-setuptools" ,python2-setuptools)))
+    (home-page "https://christian.amsuess.com/tools/arandr/";)
+    (synopsis "Another RandR graphical user interface")
+    ;; TRANSLATORS: "X11 resize-and-rotate" should not be translated.
+    (description "ARandR is designed to provide a simple visual front end for
+the X11 resize-and-rotate (RandR) extension.  Relative monitor positions are
+shown graphically and can be changed in a drag-and-drop way.  Configurations
+are saved as executable shell scripts which can be loaded without using this
+program.")
+    (license license:gpl3+)))
+
 (define-public xclip
   (package
     (name "xclip")