02/09: gnu: eamcs-magit-svm: Don't use unstable tarball.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit daa82371b81af3e7333363f1ccc737e7929098ba
Author: Efraim Flashner <address@hidden>
Date:   Wed Jan 23 09:50:35 2019 +0200

    gnu: eamcs-magit-svm: Don't use unstable tarball.
    
    * gnu/packages/emacs-xyz.scm (emacs-magit-svn)[source]: Use 'git-fetch'.
    [native-inputs]: Remove tar, gzip.
    [arguments]: Adjust code accordingly.
---
 gnu/packages/emacs-xyz.scm | 50 +++++++++++++++++++---------------------------
 1 file changed, 21 insertions(+), 29 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index fd5f84c..ce0030e 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -323,18 +323,16 @@ operations.")
     (name "emacs-magit-svn")
     (version "2.2.0")
     (source (origin
-              (method url-fetch)
-              (uri (string-append
-                    "https://github.com/magit/magit-svn/archive/";
-                    version ".tar.gz"))
-              (file-name (string-append name "-" version ".tar.gz"))
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/magit/magit-svn";)
+                     (commit version)))
+              (file-name (git-file-name name version))
               (sha256
                (base32
-                "1c3n377v436zaxamlsz04y1ahdhp96x1vd43zaryv4y10m02ba47"))))
+                "128ra3habdqk1rsnmy87m0aw2pqi033dqmmjmgsmfblnfvi987p9"))))
     (build-system trivial-build-system)
-    (native-inputs `(("emacs" ,emacs-minimal)
-                     ("tar" ,tar)
-                     ("gzip" ,gzip)))
+    (native-inputs `(("emacs" ,emacs-minimal)))
     (propagated-inputs `(("dash" ,emacs-dash)
                          ("with-editor" ,emacs-with-editor)
                          ("magit" ,emacs-magit)))
@@ -347,26 +345,20 @@ operations.")
          (use-modules (guix build utils)
                       (guix build emacs-utils))
 
-         (let* ((tar      (string-append (assoc-ref %build-inputs "tar")
-                                         "/bin/tar"))
-                (PATH     (string-append (assoc-ref %build-inputs "gzip")
-                                         "/bin"))
-                (emacs    (string-append (assoc-ref %build-inputs "emacs")
-                                         "/bin/emacs"))
-                (magit    (string-append (assoc-ref %build-inputs "magit")
-                                         "/share/emacs/site-lisp"))
-                (dash     (string-append (assoc-ref %build-inputs "dash")
-                                         "/share/emacs/site-lisp/guix.d/dash-"
-                                         ,(package-version emacs-dash)))
-                (with-editor (string-append (assoc-ref %build-inputs 
"with-editor")
-                                            
"/share/emacs/site-lisp/guix.d/with-editor-"
-                                            ,(package-version 
emacs-with-editor)))
-                (source   (assoc-ref %build-inputs "source"))
-                (lisp-dir (string-append %output "/share/emacs/site-lisp")))
-           (setenv "PATH" PATH)
-           (invoke tar "xvf" source)
-
-           (install-file (string-append "magit-svn-" ,version "/magit-svn.el")
+         (let ((emacs    (string-append (assoc-ref %build-inputs "emacs")
+                                        "/bin/emacs"))
+               (magit    (string-append (assoc-ref %build-inputs "magit")
+                                        "/share/emacs/site-lisp"))
+               (dash     (string-append (assoc-ref %build-inputs "dash")
+                                        "/share/emacs/site-lisp/guix.d/dash-"
+                                        ,(package-version emacs-dash)))
+               (with-editor (string-append (assoc-ref %build-inputs 
"with-editor")
+                                           
"/share/emacs/site-lisp/guix.d/with-editor-"
+                                           ,(package-version 
emacs-with-editor)))
+               (source   (assoc-ref %build-inputs "source"))
+               (lisp-dir (string-append %output "/share/emacs/site-lisp")))
+
+           (install-file (string-append source "/magit-svn.el")
                          lisp-dir)
 
            (with-directory-excursion lisp-dir