wigust: Add magit-checkout.origin/magit-checkoutmagit-checkout

* wigust/packages/emacs.scm (magit-checkout): New variable.

1 files changed, 43 insertions, 0 deletions

diff --git a/wigust/packages/emacs.scm b/wigust/packages/emacs.scm
index 80c2223..2d08e97 100644
--- a/wigust/packages/emacs.scm
+++ b/wigust/packages/emacs.scm
@@ -2378,3 +2378,46 @@ Org files.")
          ("autoconf" ,autoconf)
          ("automake" ,automake)
          ("texinfo" ,texinfo))))))
+
+(define-public magit-checkout
+  (let ((commit "aa0f186467711534ec538e5bf9ea5fdbad0cfc1f")
+        (revision "1"))
+      (package
+        (inherit magit)
+        (version (string-append (package-version magit)
+                                "-" revision "." (string-take commit 7)))
+        (source
+         (origin
+           (method git-fetch)
+           (uri (git-reference
+                 (url "https://github.com/magit/magit.git")
+                 (commit commit)))
+           (file-name (string-append (package-name magit)
+                                     "-" version "-checkout"))
+           (sha256
+            (base32
+             "1d2p8gr0sjm6nd8mana5f773g25wws5wg2mjvax0lg07xr0faz0q"))))
+        (propagated-inputs
+         `(("emacs-magit-popup" ,emacs-magit-popup)
+           ,@(package-propagated-inputs magit)))
+        (native-inputs
+         `(;; 'emacs-minimal' does not find Emacs packages (this is for
+           ;; "guix environment").
+           ("emacs" ,emacs-no-x)
+           ("texinfo" ,texinfo)))
+        (arguments
+         (substitute-keyword-arguments (package-arguments magit)
+           ((#:phases phases)
+            `(modify-phases %standard-phases
+              (delete 'configure)
+              (add-before 'build 'patch-exec-paths
+                (lambda* (#:key inputs #:allow-other-keys)
+                  (let ((git  (assoc-ref inputs "git"))
+                        (perl (assoc-ref inputs "perl")))
+                    (for-each (lambda (file) (chmod file #o655))
+                              (find-files "lisp"))
+                    (emacs-substitute-sexps "lisp/magit-git.el"
+                      ("executable-find" (string-append git "/bin/git")))
+                    (substitute* "lisp/magit-sequence.el"
+                      (("perl") (string-append perl "/bin/perl")))
+                    #t))))))))))