[bug#55165] [PATCH]: Add emacs-git-email.

[bug#55165] [PATCH]: Add emacs-git-email.

[Niklas Eklund]

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

Hello,

here is a patch containing the git-email package for Emacs.

/Niklas


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: patch --]
[-- Type: text/x-patch, Size: 2246 bytes --]

From c38510bb98aae349878d63e609b1777a307221e3 Mon Sep 17 00:00:00 2001
From: Niklas Eklund <niklas.eklund@posteo.net>
Date: Thu, 28 Apr 2022 17:28:16 +0200
Subject: [PATCH] gnu: Add emacs-git-email.

* gnu/packages/emacs-xyz.scm (emacs-git-email): New variable.
---
 gnu/packages/emacs-xyz.scm | 41 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index db1663c677..5454c9e416 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -15745,6 +15745,47 @@ (define-public emacs-gitpatch
 @code{ibuffer} buffers.")
     (license license:gpl3+)))
 
+(define-public emacs-git-email
+  ;; Use latest commit since latest tagged release is missing important
+  ;; changes.
+  (let ((commit "b5ebade3a48dc0ce0c85699f25800808233c73be")
+        (revision "0"))
+    (package
+      (name "emacs-git-email")
+      (version (git-version "0.2.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.sr.ht/~yoctocell/git-email")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1lk1yds7idgawnair8l3s72rgjmh80qmy4kl5wrnqvpmjrmdgvnx"))))
+      (build-system emacs-build-system)
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           ;; piem is not yet packaged in Guix.
+           (add-after 'unpack 'remove-piem
+             (lambda _
+               (delete-file "git-email-piem.el")))
+           (add-before 'install 'makeinfo
+             (lambda _
+               (invoke "makeinfo" "doc/git-email.texi")))
+           )))
+      (native-inputs
+       `(("texinfo" ,texinfo)))
+      (propagated-inputs
+       `(,mu
+         ,emacs-magit
+         ,emacs-notmuch))
+      (license license:gpl3+)
+      (home-page "https://sr.ht/~yoctocell/git-email")
+      (synopsis "Format and send Git patches in Emacs")
+      (description "This package provides utilities for formatting and
+sending Git patches via Email, without leaving Emacs."))))
+
 (define-public emacs-erc-hl-nicks
   (package
     (name "emacs-erc-hl-nicks")
-- 
2.34.0

bug#55165: [PATCH]: Add emacs-git-email.

[Ludovic Courtès]

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

Hi,

Niklas Eklund <niklas.eklund@posteo.net> skribis:

>>From c38510bb98aae349878d63e609b1777a307221e3 Mon Sep 17 00:00:00 2001
> From: Niklas Eklund <niklas.eklund@posteo.net>
> Date: Thu, 28 Apr 2022 17:28:16 +0200
> Subject: [PATCH] gnu: Add emacs-git-email.
>
> * gnu/packages/emacs-xyz.scm (emacs-git-email): New variable.

Applied with the cosmetic changes below.

Thanks!

Ludo’.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 842 bytes --]

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 5454c9e416..a928ac72f1 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -15772,14 +15772,11 @@ (define-public emacs-git-email
                (delete-file "git-email-piem.el")))
            (add-before 'install 'makeinfo
              (lambda _
-               (invoke "makeinfo" "doc/git-email.texi")))
-           )))
+               (invoke "makeinfo" "doc/git-email.texi"))))))
       (native-inputs
-       `(("texinfo" ,texinfo)))
+       (list texinfo))
       (propagated-inputs
-       `(,mu
-         ,emacs-magit
-         ,emacs-notmuch))
+       (list mu emacs-magit emacs-notmuch))
       (license license:gpl3+)
       (home-page "https://sr.ht/~yoctocell/git-email")
       (synopsis "Format and send Git patches in Emacs")