From 002337a36b87b6614adfb801956685c7b1f49518 Mon Sep 17 00:00:00 2001
From: mst <mstenek@disroot.org>
Date: Mon, 29 Dec 2025 10:45:26 -0700
Subject: [PATCH] gnu: Add emacs-tmsu.

* gnu/packages/emacs-xyz.scm (emacs-tmsu): New variable.

Closes guix/guix#5187

Change-Id: Ie9f8a811f53ced5471bd92f784d6e32cde6d890d
Modified-by: Cayetano Santos <csantosb@inventati.org>
Signed-off-by: Cayetano Santos <csantosb@inventati.org>
---
 gnu/packages/emacs-xyz.scm | 45 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 90f5cefc83334a480cfd342ba41ece7303117cb0..c05b3a8b040d121ef1f711225325ba8258e48df5 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -215,6 +215,7 @@
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages emacs-build)
   #:use-module (gnu packages enchant)
+  #:use-module (gnu packages file-systems)
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages games)
@@ -21682,6 +21683,50 @@ using a convenient notation.")
     (license (list license:gpl3+
                    license:fdl1.3+)))) ;GFDLv1.3+ for the manual
 
+(define-public emacs-tmsu
+  ;; There are no releases or tags upstream.
+  (let ((commit "c75ae9bed8f3bb2229e873fcc85fe62701e47974")
+        (revision "0"))
+    (package
+      (name "emacs-tmsu")
+      (version (git-version "0.9" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/vifon/tmsu.el")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0mxz9bmdcdxkj7f4ih405i4vpd35c72xgs1i8cbi0132dpnnblpz"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'patch-exec-paths
+              (lambda* (#:key inputs #:allow-other-keys)
+                (let ((tmsu (search-input-file inputs "bin/tmsu")))
+                  (substitute* (list "tmsu.el" "tmsu-dired.el")
+                    (("\"tmsu\"")
+                     (string-append "\"" tmsu "\"")))))))
+        #:test-command
+        #~(list "emacs"
+                "-batch"
+                "-l"
+                "tmsu-tests.el"
+                "-f"
+                "ert-run-tests-batch-and-exit")))
+      (inputs (list tmsu))
+      (synopsis "Emacs interface to the @code{tmsu} file tagging tool")
+      (description
+       "@code{tmsu.el} focuses on enhancing the @acronym{UX, User Experience}
+of the most common @code{tmsu} operations: tag editing and querying.  It's
+primarily intended to be used from dired, though @code{tmsu-edit} can be used
+separately from it.")
+      (home-page "https://github.com/vifon/tmsu.el")
+      (license license:gpl3+))))
+
 (define-public emacs-beframe
   (let ((commit "c3f4583b0767e7f8c38c83ed29af40af8ba3bdfa")) ;version bump
     (package