[PATCH] gnu: Add arandr.

[Mathieu Lirzin <mthl@openmailbox.org>]

[-- Attachment #1: Type: text/plain, Size: 160 bytes --]


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


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-Add-arandr.patch --]
[-- Type: text/x-patch; name="0001-gnu-Add-arandr.patch", Size: 2255 bytes --]

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 7aa82fe..34c65d6 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 `(("gettext" ,gnu-gettext)
+              ("pygtk"   ,python2-pygtk)))
+    (native-inputs `(("python-setuptools" ,python2-setuptools)
+                     ("python-docutils"   ,python2-docutils)))
+    (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")