gnu: Add jhead.

* gnu/packages/image.scm (jhead): New variable.

Merges: https://codeberg.org/guix/guix/pulls/5415
Change-Id: Ia4d18490a735218938da0d9675eb6660bc29d2f0
Reviewed-by: Anderson Torres <anderson.torres.8519@gmail.com>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>

gnu/packages/image.scm

@@ -43,6 +43,7 @@
 ;;; Copyright © 2025 Jake Forster <jakecameron.forster@gmail.com>
 ;;; Copyright © 2025 Ghislain Vaillant <ghislain.vaillant@inria.fr>
 ;;; Copyright © 2026 Carlos Durán Domínguez <wurt@wurt.eu>
+;;; Copyright © 2025 Junker <dk@junkeria.club>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -720,6 +721,37 @@ official designation is ISO/IEC 29199-2). This library is an implementation of t
       "See the header of the Makefile in the distribution."))
     (home-page "https://jxrlib.codeplex.com/")))
 
+(define-public jhead
+  (package
+    (name "jhead")
+    (version "3.08")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/Matthias-Wandel/jhead")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0q9zc47ngnj4zfdpy43jcp2cbnmrlgg38aa7spv8zh94i75jwmvp"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f             ;no tests.
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure))))
+    (home-page "https://github.com/Matthias-Wandel/jhead")
+    (synopsis "Displays and manipulates EXIF header of JPEG files")
+    (description
+     "@command{jhead} is a simple command line tool for display and manipulate
+@acronym{EXIF, Exchangeable Image File Format} header data embedded in JPEG
+images.")
+    (license license:public-domain)))
+
 (define-public jpegoptim
   (package
    (name "jpegoptim")