From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 1/2] gnu: Add slop. Date: Thu, 7 Apr 2016 16:56:29 +0300 Message-ID: <1460037390-1521-1-git-send-email-alezost@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:48139) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aoAQJ-0005kK-B9 for guix-devel@gnu.org; Thu, 07 Apr 2016 09:56:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aoAQG-0000zd-3g for guix-devel@gnu.org; Thu, 07 Apr 2016 09:56:39 -0400 Received: from mail-lb0-x244.google.com ([2a00:1450:4010:c04::244]:34036) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aoAQF-0000zV-Sq for guix-devel@gnu.org; Thu, 07 Apr 2016 09:56:36 -0400 Received: by mail-lb0-x244.google.com with SMTP id vk4so6489756lbb.1 for ; Thu, 07 Apr 2016 06:56:35 -0700 (PDT) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id p127sm1282415lfb.27.2016.04.07.06.56.33 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Thu, 07 Apr 2016 06:56:34 -0700 (PDT) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/xdisorg.scm (slop): New variable. --- gnu/packages/xdisorg.scm | 36 +++++++++++++++++++++++++++++++++++- 1 file changed, 35 insertions(+), 1 deletion(-) diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 5a77a6c..e6457de 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2014 Andreas Enge ;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 Eric Bavier -;;; Copyright © 2014, 2015 Alex Kost +;;; Copyright © 2014, 2015, 2016 Alex Kost ;;; Copyright © 2013, 2015 Ludovic Courtès ;;; Copyright © 2015 Mathieu Lirzin ;;; Copyright © 2015 Alexander I.Grafov @@ -32,6 +32,7 @@ #:use-module (guix packages) #:use-module (guix download) #:use-module (guix utils) + #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system python) @@ -41,6 +42,7 @@ #:use-module (gnu packages image) #:use-module (gnu packages pkg-config) #:use-module (gnu packages gettext) + #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) ;for libgudev #:use-module (gnu packages ncurses) @@ -376,6 +378,38 @@ of the screen selected by mouse.") (license (license:x11-style "file://COPYING" "See 'COPYING' in the distribution.")))) +(define-public slop + (package + (name "slop") + (version "4.3.21") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/naelstrof/slop/archive/v" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0z0p4a3p5mc6fjh5f8js9ppb0maxyvfxpiw2n6nqc5nim1kv6bim")))) + (build-system cmake-build-system) + (arguments '(#:tests? #f)) ; no check target + (inputs + `(("libx11" ,libx11) + ("libxrandr" ,libxrandr) + ("libxext" ,libxext) + ("imlib2" ,imlib2) + ("glew" ,glew) + ("mesa" ,mesa))) + (home-page "https://github.com/naelstrof/slop") + (synopsis "Select a region and print its bounds to stdout") + (description + "slop (Select Operation) is a tool that queries for a selection from a +user and prints the region to stdout. It grabs the mouse and turns it into a +crosshair, lets the user click and drag to make a selection (or click on a +window) while drawing a pretty box around it, then finally prints the +selection's dimensions to stdout.") + (license license:gpl3+))) + (define-public unclutter (package (name "unclutter") -- 2.7.3