02/02: gnu: Add grim.

[guix-commits]

rhelling pushed a commit to branch master
in repository guix.

commit 0290f533cc879239f275e45a704334c545f77f3a
Author: Rutger Helling <address@hidden>
Date:   Thu Dec 20 08:56:49 2018 +0100

    gnu: Add grim.
    
    * gnu/packages/image.scm (grim): New variable.
---
 gnu/packages/image.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 207faed..3971cc7 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -22,6 +22,7 @@
 ;;; Copyright © 2018 Marius Bakke <address@hidden>
 ;;; Copyright © 2018 Pierre-Antoine Rouby <address@hidden>
 ;;; Copyright © 2018 Alex Vong <address@hidden>
+;;; Copyright © 2018 Rutger Helling <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -49,6 +50,7 @@
   #:use-module (gnu packages compression)
   #:use-module (gnu packages documentation)
   #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages freedesktop)
   ;; To provide address@hidden and address@hidden, to work around 
<http://bugs.gnu.org/24703>.
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages gettext)
@@ -58,6 +60,7 @@
   #:use-module (gnu packages graphics)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages lua)
+  #:use-module (gnu packages man)
   #:use-module (gnu packages maths)
   #:use-module (gnu packages mcrypt)
   #:use-module (gnu packages perl)
@@ -73,6 +76,7 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system cmake)
+  #:use-module (guix build-system meson)
   #:use-module (guix build-system python)
   #:use-module (guix build-system r)
   #:use-module (guix build-system scons)
@@ -1570,3 +1574,28 @@ identical visual appearance.")
     (description
      "Jp2a is a small utility that converts JPEG images to ASCII.")
     (license license:gpl2)))
+
+(define-public grim
+  (package
+  (name "grim")
+  (version "1.0")
+  (source
+   (origin
+    (method url-fetch)
+    (uri (string-append "https://github.com/emersion/grim/archive/v"; version
+                        ".tar.gz"))
+    (file-name (string-append name "-" version ".tar.gz"))
+    (sha256
+     (base32 "0xkk5nqyp1px0sxz4asmchznc0q39wdx1b67ql741k8aj815km0f"))))
+  (build-system meson-build-system)
+  (native-inputs `(("pkg-config" ,pkg-config)))
+  (inputs `(("cairo" ,cairo)
+            ("libjpeg-turbo" ,libjpeg-turbo)
+            ("scdoc" ,scdoc)
+            ("wayland" ,wayland)
+            ("wayland-protocols" ,wayland-protocols)))
+  (home-page "https://github.com/emersion/grim";)
+  (synopsis "Create screenshots from a Wayland compositor")
+  (description "grim can create screenshots from a Wayland compositor.")
+  ;; MIT license.
+  (license license:expat)))