From ef297af5bd73eb6148843b879c451916df7de405 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 3 Jan 2021 15:15:26 +0100
Subject: [PATCH 3/3] gnu: Add dialect.

* gnu/packages/language.scm (dialect): New public variable.
---
 gnu/packages/language.scm   | 61 ++++++++++++++++++++++++++++++++++++-
 gnu/packages/python-web.scm |  2 +-
 2 files changed, 61 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm
index 651b2305c9..ffd2be5ae6 100644
--- a/gnu/packages/language.scm
+++ b/gnu/packages/language.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
-;;; Copyright © 2017, 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2017, 2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2018 Nikita <nikita@n0.is>
 ;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
 ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
@@ -33,6 +33,7 @@
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gstreamer)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages ibus)
   #:use-module (gnu packages java)
@@ -45,6 +46,7 @@
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages python-web)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages sqlite)
@@ -58,6 +60,7 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
@@ -68,6 +71,62 @@
   #:use-module (guix git-download)
   #:use-module (guix utils))
 
+(define-public dialect
+  ;; XXX The ‘About’ dialogue icon is missing.
+  (package
+    (name "dialect")
+    (version "1.1.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/gi-lom/dialect")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0yvayqi80c3cwhs2hx186ybr15jp1d9frp8fzg38lf6pi44nypvk"))))
+    (build-system meson-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-typelib
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/dialect")
+                 `("GI_TYPELIB_PATH" prefix
+                   ,(search-path-as-string->list (getenv "GI_TYPELIB_PATH")))
+                 `("PYTHONPATH" prefix
+                   ,(search-path-as-string->list (getenv "PYTHONPATH"))))))))))
+    (native-inputs
+     `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
+       ("gettext" ,gettext-minimal)
+       ("glib:bin" ,glib "bin")         ; for glib-compile-resources
+       ("gobject-introspection" ,gobject-introspection)
+       ("gtk+-bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("glib" ,glib)
+       ("gtk+" ,gtk+)
+       ("libhandy" ,libhandy)))
+    (propagated-inputs
+     `(("python-googletrans" ,python-googletrans)
+       ("python-gst" ,python-gst)
+       ("python-gtts" ,python-gtts)
+       ("python-pygobject" ,python-pygobject)))
+    (home-page "https://github.com/gi-lom/dialect")
+    (synopsis "Desktop client for the Google Translate network SaaSS")
+    (description
+     "Dialect is a very thin graphical desktop client for the Google Translate
+network @acronym{SaaSS, Service as a Software Substitute} that replaces the Web
+interface with a native GTK 3 window.  It lets you translate text between many
+languages without opening a browser.
+
+Dialect is not translation software: it simply forwards input to Google's
+servers and displays the result.  It's useless without an Internet connection,
+if you are blocked for performing too many translations, or when the service
+is discontinued.")
+    (license gpl3+)))
+
 (define-public nimf
   (package
     (name "nimf")
diff --git a/gnu/packages/python-web.scm b/gnu/packages/python-web.scm
index b0dc135537..6126fa26b4 100644
--- a/gnu/packages/python-web.scm
+++ b/gnu/packages/python-web.scm
@@ -14,7 +14,7 @@
 ;;; Copyright © 2015 Cyril Roelandt <tipecaml@gmail.com>
 ;;; Copyright © 2015, 2016, 2017, 2019 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
-;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2015, 2017 Ben Woodcroft <donttrustben@gmail.com>
 ;;; Copyright © 2015, 2016 Christopher Allan Webber <cwebber@dustycloud.org>
 ;;; Copyright © 2017 Adriano Peluso <catonano@gmail.com>
-- 
2.30.1