01/03: gnu: translate-shell: Use 'git-fetch'.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit cfa3b7182d156753fcbdf419b152ce8285d1a0be
Author: Efraim Flashner <address@hidden>
Date:   Tue Dec 25 21:16:34 2018 +0200

    gnu: translate-shell: Use 'git-fetch'.
    
    * gnu/packages/dictionaries.scm (translate-shell)[source]: Use
    'git-fetch'.
    [arguments]: Add custom phase to remove "translate" file.
---
 gnu/packages/dictionaries.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm
index 039ec45..cb633c2 100644
--- a/gnu/packages/dictionaries.scm
+++ b/gnu/packages/dictionaries.scm
@@ -250,18 +250,24 @@ and a Python library.")
     (version "0.9.6.8")
     (source
       (origin
-        (method url-fetch)
-        (uri (string-append "https://github.com/soimort/"; name "/archive/v"
-                            version ".tar.gz"))
+        (method git-fetch)
+        (uri (git-reference
+               (url"https://github.com/soimort/translate-shell.git";)
+               (commit (string-append "v" version))))
+        (file-name (git-file-name name version))
         (sha256
          (base32
-          "17yc2kwk8957wwxyih0jmsai720ai2yqyvmrqrglcncqg6zdbz9w"))
-        (file-name (string-append name "-" version ".tar.gz"))))
+          "17fc5nlc594lvmihx39h4ddmi8ja3qqsyswzxadbaz7l3zm356b8"))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases
        (modify-phases %standard-phases
          (delete 'configure)            ; no configure phase
+         (add-after 'unpack 'remove-unnecessary-file
+           ;; This file gets generated during the build phase.
+           (lambda _
+             (delete-file "translate")
+             #t))
          (add-after 'install 'emacs-install
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out   (assoc-ref outputs "out"))