From 5e4ef038eb3eac660c2d4680446d3dbc09dac9ad Mon Sep 17 00:00:00 2001
From: Andy Tai <atai@atai.org>
Date: Fri, 8 Aug 2025 22:59:34 -0700
Subject: [PATCH] gnu: Add jaro.

* gnu/packages/guile-xyz.scm (jaro): New variable.

Change-Id: I2e79b21ac5def54e7c4bc6408479f45eb2c54ae0
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/guile-xyz.scm | 40 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index e707e44fc88..11eed6dba59 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -57,6 +57,7 @@
 ;;; Copyright © 2025 Libre en Communs <contact@a-lec.org>
 ;;; Copyright © 2025 Noé Lopez <noelopez@free.fr>
 ;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
+;;; Copyright © 2025 Andy Tai <atai@atai.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -92,6 +93,7 @@
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages emacs-build)
   #:use-module (gnu packages emacs-xyz)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages gettext)
@@ -7582,6 +7584,44 @@ ftypes.")
     (home-page "https://dthompson.us/projects/guile-bstructs.html")
     (license license:asl2.0)))
 
+(define-public jaro
+  (let ((commit "a5744a686e43a148536b04db5be779aabfed1603")
+        (revision "0"))
+    (package
+      (name "jaro")
+      (version (git-version "0.5.5" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/isamert/jaro.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0jf6ciwvk0ix9gv1gymmyhicx07hsxivryf6fcqvi7gg38czqwzl"))))
+      (build-system gnu-build-system)
+      (arguments
+       (list
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)
+            (delete 'build)
+            (replace 'install
+              (lambda* (#:key outputs #:allow-other-keys)
+                (install-file "jaro"
+                              (string-append #$output "/bin"))))
+            (replace 'check
+              (lambda* (#:key tests? #:allow-other-keys)
+                (when tests?
+                  (invoke "guile" "--no-auto-compile" "tests.scm")))))))
+      (inputs (list guile-3.0 perl perl-file-mimeinfo))
+      (home-page "https://github.com/isamert/jaro")
+      (synopsis "Customizable xdg-open alternative")
+      (description
+       "Jaro is a just another resource opener.  It runs the appropriate
+application to open a given file or URL based on given configurations.")
+      (license license:gpl3))))
+
 (define-public guile-goblins
   (package
     (name "guile-goblins")