From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42490) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fXTLY-0001DT-5F for guix-patches@gnu.org; Mon, 25 Jun 2018 11:24:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fXTLW-0006mU-Sh for guix-patches@gnu.org; Mon, 25 Jun 2018 11:24:04 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:55415) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fXTLW-0006mP-Nq for guix-patches@gnu.org; Mon, 25 Jun 2018 11:24:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fXTLW-0005fM-I7 for guix-patches@gnu.org; Mon, 25 Jun 2018 11:24:02 -0400 Subject: [bug#31965] [PATCH] gnu: Add gaupol. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41981) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fXTKP-0000S5-3O for guix-patches@gnu.org; Mon, 25 Jun 2018 11:22:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fXTKN-0006Oh-UC for guix-patches@gnu.org; Mon, 25 Jun 2018 11:22:53 -0400 Received: from mail-wr0-x231.google.com ([2a00:1450:400c:c0c::231]:44374) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fXTKN-0006OY-N8 for guix-patches@gnu.org; Mon, 25 Jun 2018 11:22:51 -0400 Received: by mail-wr0-x231.google.com with SMTP id p12-v6so12471579wrn.11 for ; Mon, 25 Jun 2018 08:22:51 -0700 (PDT) Received: from mimimi.home (2a01cb040a37a0005adf9a0845f647b3.ipv6.abo.wanadoo.fr. [2a01:cb04:a37:a000:5adf:9a08:45f6:47b3]) by smtp.gmail.com with ESMTPSA id 127-v6sm12720770wmk.45.2018.06.25.08.22.49 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 25 Jun 2018 08:22:49 -0700 (PDT) From: Pierre Neidhardt Date: Mon, 25 Jun 2018 17:22:49 +0200 Message-Id: <20180625152249.7654-1-ambrevar@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 31965@debbugs.gnu.org * gnu/packages/video.scm (gaupol): New variable. --- gnu/packages/video.scm | 67 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index ff0555708..bbac4361e 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -2967,3 +2967,70 @@ format and some of its derived file formats, including MP4. It operates as a multiplexer and demultiplexer, and can mux video and audio in several formats using standalone executable files.") (license license:isc))) + +(define-public gaupol + (package + (name "gaupol") + (version "1.4") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/otsaloma/gaupol/archive/" + version ".tar.gz")) + (sha256 + (base32 + "12hy5x6s5xk81r75x0z4n6wpq8ygsxc4mbr47qcr0kq55kbvp6jj")))) + (build-system python-build-system) + (native-inputs + `(("gettext" ,gettext-minimal) + ("pkg-config" ,pkg-config))) + (inputs + `(("python-pygobject" ,python-pygobject) + ("gtk+" ,gtk+) + ("python-pycairo" ,python-pycairo) ; Required or else clicking on a subtitle line fails. + ("python-chardet" ,python-chardet) ; Optional: Character encoding detection. + ("gtkspell3" ,gtkspell3) ; Optional: Inline spell-checking. + ("iso-codes" ,iso-codes) ; Optional: Translations. + ("gstreamer" ,gstreamer) + ("gst-libav" ,gst-libav) + ("gst-plugins-base" ,gst-plugins-base) + ("gst-plugins-good" ,gst-plugins-good) + ("gst-plugins-bad" ,gst-plugins-bad) + ("gst-plugins-ugly" ,gst-plugins-ugly))) + (arguments + `(#:tests? #f ; Tests seem to require networking. + #:phases + (modify-phases %standard-phases + ;; gaupol's setup.py script does not support one of the Python build + ;; system's default flags, "--single-version-externally-managed". + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (invoke "python" "setup.py" "install" + (string-append "--prefix=" (assoc-ref outputs "out")) + "--root=/"))) + (add-after 'install 'wrap-gaupol + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program (string-append out "/bin/gaupol") + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)) + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) + #t)) + (add-after 'install 'patch-data-dir + ;; Fix some path variables that setup.py seems to garble. + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (substitute* (string-append out "/lib/python3.6/site-packages/aeidon/paths.py") + (("^DATA_DIR = .*$") + (string-append "DATA_DIR = '" out "/share/gaupol'\n")) + (("^LOCALE_DIR = .*$") + (string-append "LOCALE_DIR = '" out "/share/locale'\n")))) + #t))))) + (synopsis "Editor for text-based subtitles") + (description + "Gaupol supports multiple subtitle file formats and provides means of +creating subtitles, editing texts and timing subtitles to match video. The +user interface features a builtin video player and is designed with attention +to convenience of translating and batch processing of multiple documents.") + (home-page "http://otsaloma.io/gaupol/") + (license license:gpl3+))) -- 2.17.1