[bug#51923] [PATCH v2] gnu: Add megapixels.

[phodina via Guix-patches via <guix-patches@gnu.org>]

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

Hi Tobias,

thanks for the review. Please see the attached updated patch.

Have you had time to test it?

Petr

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

From c27ef7829f5f3c3198118751729583acd8eb05c6 Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Sun, 3 Oct 2021 23:16:11 +0200
Subject: [PATCH v2] gnu: Add megapixels.

* gnu/packages/gnome.scm (megapixels): New variable.

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 19520f335a..a868ac462a 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -63,6 +63,7 @@
 ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
+;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1137,6 +1138,57 @@ freedesktop.org desktop notification specification.")
     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
     (license license:gpl2+)))
 
+(define-public megapixels
+  (package
+    (name "megapixels")
+    (version "1.3.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "http://gitlab.com/postmarketos/megapixels")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "0dagp1sh5whnnllrydk7ijjid0hmvcbdm8kkzq2g168khdfn80jm"))))
+    (build-system meson-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'patch-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((out (assoc-ref %outputs "out"))
+                   (paths (map
+                           (lambda (input)
+                             (string-append (assoc-ref inputs input) "/bin"))
+                           '("coreutils" "imagemagick"))))
+               (wrap-program
+                   (string-append out "/share/megapixels/postprocess.sh")
+                 `("PATH" prefix ,paths))))))))
+    (native-inputs
+     `(("cmake" ,cmake)
+       ("coreutils" ,coreutils)
+       ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
+       ("glib:bin" ,glib "bin")         ; glib-compile-schemas, etc.
+       ("gtk:bin" ,gtk "bin")           ; for gtk-update-icon-cache
+       ("imagemagick" ,imagemagick)
+       ("libtiff" ,libtiff)
+       ("pkg-config" ,pkg-config)
+       ("zbar" ,zbar)))
+    (inputs
+     `(("gtk" ,gtk)
+       ("imagemagick" ,imagemagick)
+       ("libhandy" ,libhandy)
+       ("libraw" ,libraw)
+       ("perl-image-exiftool" ,perl-image-exiftool)))
+    (synopsis "Camera applications for mobile devices")
+    (description "This package provides camera application for mobile devices
+that captures a 5 frame burst of raw frames that are later postprocessed and
+saved as jpg files.")
+    (home-page "http://gitlab.com/postmarketos/megapixels")
+    (license license:gpl3+)))
+
 (define-public mm-common
   (package
     (name "mm-common")

base-commit: b7b982228a7256afcb83d0b05a098139c2e1a644
-- 
2.33.0