Subject: [PATCH] gnu: Add emacs-git-messenger.

From: Oleg Pykhalov <[email-masked]>
Date: Wed, 09 Aug 2017 17:51:27 +0300

>From f2ac64a4326e4b9dcf8fce29fcb0b5e4acf3ca34 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <[email-masked]>
Date: Mon, 31 Jul 2017 18:07:13 +0300
Subject: [PATCH] gnu: Add emacs-git-messenger.

gnu/packages/emacs.scm (emacs-git-messenger): New variable.
---
 gnu/packages/emacs.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 37a4129a1..6f086d6b1 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -5253,3 +5253,42 @@ user easy handle git-format patch without exit Emacs.
 @code{M-x gitpatch-mail} can send a git-format patch file from @code{magit},
 @code{dired}, @code{ibuffer} buffers.")
     (license license:gpl2+)))
+
+(define-public emacs-git-messenger
+  (package
+    (name "emacs-git-messenger")
+    (version "0.18")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/syohex/emacs-git-messenger/archive/"
+             version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "17mqki6g0wx46fn7dcbcc2pjxik7vvrcb1j9jzxim8b9psbsbnp9"))))
+    (build-system emacs-build-system)
+    (propagated-inputs
+     `(("emacs-popup" ,emacs-popup)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'check
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((emacs-popup (string-append
+                                 (assoc-ref %build-inputs "emacs-popup")
+                                 "/share/emacs/site-lisp/guix.d/popup-"
+                                 ,(package-version emacs-popup))))
+               (zero? (system* "emacs" "--batch" "-L" "."
+                               "-l" (string-append emacs-popup
+                                                   "/popup.el")
+                               "-l" "test/test.el"
+                               "-f" "ert-run-tests-batch-and-exit"))))))))
+    (home-page "https://github.com/syohex/emacs-git-messenger")
+    (synopsis "Popup commit message at current line")
+    (description "@code{emacs-git-messenger} provides a function called
+@code{git-messenger:popup-message} that when called will pop-up the last git
+commit message for the current line.  This uses the git-blame tool
+internally.")
+    (license license:gpl3+)))
-- 
2.14.0