Subject: [PATCH] gnu: Add emacs-stgit-2.

From: Sergio Pastor Pérez <[email-masked]>
Date: Mon, 1 Apr 2024 21:54:20 +0200

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

Change-Id: I0231d35ae94ce26eb4a9e55f70d78ab33c5f03e3
---
 gnu/packages/emacs-xyz.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 977aa89729..4999048625 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -7552,6 +7552,32 @@ (define-public emacs-standard-dirs
 configuration, cache, and other data.")
     (license license:gpl3+)))
 
+(define-public emacs-stgit-2
+  (package
+    (inherit stgit-2)
+    (name "emacs-stgit")
+    (build-system emacs-build-system)
+    (native-inputs '())
+    (inputs (list stgit-2 git))
+    (arguments
+     (list
+      #:phases #~(modify-phases %standard-phases
+                   (add-after 'unpack 'chdir
+                     (lambda _
+                       (chdir "contrib")))
+                   (add-after 'chdir 'patch-paths
+                     (lambda* (#:key inputs #:allow-other-keys)
+                       (let ((stgit (search-input-file inputs "/bin/stg"))
+                             (git (search-input-file inputs "/bin/git")))
+                         (substitute* "stgit.el"
+                           (("\"stg\"")
+                            (string-append "\"" stgit "\""))
+                           (("\"git\"")
+                            (string-append "\"" git "\"")))))))))
+    (synopsis "Run Stgit within Emacs")
+    (description
+     "This package provides an Emacs-based interface to the Stgit.")))
+
 (define-public emacs-string-inflection
   (package
     (name "emacs-string-inflection")

base-commit: 9e9ec741d0dc5ce58f8d21d31800ff2cafce128f
-- 
2.41.0