[bug#30933] [PATCH 2/2] gnu: translate-shell: Update to 0.9.6.7-1.bb9f32d.

[Oleg Pykhalov <go.wigust@gmail.com>]

* gnu/packages/dictionaries.scm (translate-shell): Update to
0.9.6.7-1.bb9f32d.
[arguments](make-flags): Add "NETWORK_ACCESS=no test".
[phases]: Add 'change-file-permissions' phase.
---
 gnu/packages/dictionaries.scm | 94 ++++++++++++++++++++++++-------------------
 1 file changed, 52 insertions(+), 42 deletions(-)

diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm
index 5cd5724f5..bafae77bf 100644
--- a/gnu/packages/dictionaries.scm
+++ b/gnu/packages/dictionaries.scm
@@ -24,6 +24,7 @@
   #:use-module (guix licenses)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
@@ -237,48 +238,57 @@ and a Python library.")
     (license gpl3+)))
 
 (define-public translate-shell
-  (package
-    (name "translate-shell")
-    (version "0.9.6.4")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "https://github.com/soimort/" name "/archive/v"
-                            version ".tar.gz"))
-        (sha256
-         (base32
-          "1fg6nf1plvgimc57fsdr9rcjbf7jvmk5jrlj5ya509vpdcdgvj2s"))
-        (file-name (string-append name "-" version ".tar.gz"))))
-    (build-system gnu-build-system)
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (delete 'configure) ; no configure phase
-         (add-after 'install 'emacs-install
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out   (assoc-ref outputs "out"))
-                    (dest  (string-append out "/share/emacs/site-lisp"))
-                    (emacs (string-append (assoc-ref inputs "emacs") "/bin/emacs")))
-               (install-file "google-translate-mode.el" dest)
-               (emacs-generate-autoloads ,name dest)))))
-       #:make-flags (list (string-append "PREFIX=" %output))
-       #:imported-modules (,@%gnu-build-system-modules (guix build emacs-utils))
-       #:modules ((guix build gnu-build-system)
-                  (guix build emacs-utils)
-                  (guix build utils))
-       #:test-target "test"))
-    (propagated-inputs
-     `(("curl" ,curl)
-       ("fribidi" ,fribidi)
-       ("rlwrap" ,rlwrap)))
-    (native-inputs
-     `(("emacs" ,emacs-minimal)
-       ("util-linux" ,util-linux))) ; hexdump, for the test
-    (home-page "https://www.soimort.org/translate-shell/")
-    (synopsis "Translations from the command line")
-    (description
-     "Translate Shell (formerly Google Translate CLI) is a command-line
+  (let ((commit "bb9f32d3145125ba664b6b05bf0a2fd34108e9d2"))
+    (package
+      (name "translate-shell")
+      (version (git-version "0.9.6.7" "1" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/soimort/translate-shell.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32
+           "0vl50vfd4kn0mazj3j30m75xldcra23skrd3qhx3kav2613a9y3i"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (delete 'configure) ; no configure phase
+           (add-after 'unpack 'change-file-permissions
+             (lambda _
+               (chmod "translate" #o755)
+               #t))
+           (add-after 'install 'emacs-install
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (let* ((out   (assoc-ref outputs "out"))
+                      (dest  (string-append out "/share/emacs/site-lisp"))
+                      (emacs (string-append (assoc-ref inputs "emacs")
+                                            "/bin/emacs")))
+                 (install-file "google-translate-mode.el" dest)
+                 (emacs-generate-autoloads ,name dest)))))
+         #:make-flags (list (string-append "PREFIX=" %output)
+                            "NETWORK_ACCESS=no test")
+         #:imported-modules (,@%gnu-build-system-modules
+                             (guix build emacs-utils))
+         #:modules ((guix build gnu-build-system)
+                    (guix build emacs-utils)
+                    (guix build utils))
+         #:test-target "test"))
+      (propagated-inputs
+       `(("curl" ,curl)
+         ("fribidi" ,fribidi)
+         ("rlwrap" ,rlwrap)))
+      (native-inputs
+       `(("emacs" ,emacs-minimal)
+         ("util-linux" ,util-linux))) ; hexdump, for the test
+      (home-page "https://www.soimort.org/translate-shell/")
+      (synopsis "Translations from the command line")
+      (description
+       "Translate Shell (formerly Google Translate CLI) is a command-line
 translator powered by Google Translate (default), Bing Translator,
 Yandex.Translate and Apertium.  It gives you easy access to one of these
 translation engines from your terminal.")
-    (license public-domain)))
+      (license public-domain))))
-- 
2.16.2