From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:46018) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eqNsc-0000Jp-23 for guix-patches@gnu.org; Mon, 26 Feb 2018 13:52:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eqNsY-0006Fp-UH for guix-patches@gnu.org; Mon, 26 Feb 2018 13:52:06 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:54225) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eqNsY-0006Fi-Om for guix-patches@gnu.org; Mon, 26 Feb 2018 13:52:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eqNsY-0001jD-IA for guix-patches@gnu.org; Mon, 26 Feb 2018 13:52:02 -0500 Subject: [bug#30598] [PATCH 5/5] gnu: Add youtube-viewer. References: <87sh9qvuhz.fsf@gmail.com> In-Reply-To: <87sh9qvuhz.fsf@gmail.com> Resent-Message-ID: From: Alex Vong Date: Tue, 27 Feb 2018 02:51:36 +0800 Message-ID: <87y3jflh3b.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" 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: 30598@debbugs.gnu.org Cc: alexvong1995@gmail.com --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0005-gnu-Add-youtube-viewer.patch Content-Transfer-Encoding: quoted-printable From=205334e61ed866f67af38688dac077f53f85ad013b Mon Sep 17 00:00:00 2001 From: Alex Vong Date: Sun, 25 Feb 2018 06:52:10 +0800 Subject: [PATCH 5/5] gnu: Add youtube-viewer. * gnu/packages/video.scm (youtube-viewer): New public variable. =2D-- gnu/packages/video.scm | 54 ++++++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 54 insertions(+) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index bf7a3960d..48b86a5ac 100644 =2D-- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -53,6 +53,7 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system meson) + #:use-module (guix build-system perl) #:use-module (guix build-system python) #:use-module (guix build-system waf) #:use-module (gnu packages) @@ -1311,6 +1312,59 @@ audio, images) from the Web. It can use either mpv = or vlc for playback.") (home-page "https://you-get.org/") (license license:expat))) =20 +(define-public youtube-viewer + (package + (name "youtube-viewer") + (version "3.3.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/trizen/youtube-viewer/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1j572his6qmazlmyrbnfq62s9bqml875ay7wy26byy9hfc7m0vgk")))) + (build-system perl-build-system) + (native-inputs + `(("perl-module-build" ,perl-module-build))) + ;; FIXME: Add optional dependencies once available: + ;; perl-lwp-useragent-cached and perl-term-readline-gnu + (inputs + `(("perl-data-dump" ,perl-data-dump) + ("perl-file-sharedir" ,perl-file-sharedir) + ("perl-gtk2" ,perl-gtk2) + ("perl-json" ,perl-json) + ("perl-libwww" ,perl-libwww) + ("perl-lwp-protocol-https" ,perl-lwp-protocol-https) + ("perl-mozilla-ca" ,perl-mozilla-ca) + ("perl-unicode-linebreak" ,perl-unicode-linebreak))) + (arguments + `(#:modules ((guix build perl-build-system) + (guix build utils) + (srfi srfi-26)) + #:module-build-flags '("--gtk") + #:phases (modify-phases %standard-phases + (add-after 'install 'wrap-program + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin-dir (string-append (assoc-ref outputs "ou= t") + "/bin/")) + (perl-path (getenv "PERL5LIB"))) + (for-each (cut wrap-program <> + `("PERL5LIB" ":" prefix (,perl-path= ))) + (find-files bin-dir)) + #t)))))) + (synopsis + "Lightweight application for searching and streaming videos from YouT= ube") + (description + "Youtube-viewer searches and plays YouTube videos in a native player. +It comes with various search options; it can search for videos, playlists +and/or channels. The videos are streamed directly in a selected video pla= yer +at the best resolution (customizable) and with closed-captions (if availab= le). +Both command-line and GTK2 interface are available.") + (home-page "https://github.com/trizen/youtube-viewer") + (license license:perl-license))) + (define-public libbluray (package (name "libbluray") =2D-=20 2.16.2 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iHUEARYIAB0WIQTdXC2pN4kXBjiMDs8cGaIXrbrArQUCWpRXOAAKCRAcGaIXrbrA rXHpAP9GnpptHkobyRls4hQYRxjRYD8982zvLuTYZpY/okAZEQD+LxdEHj46Tjrv Brw/WImfsRAK3zdSPdAX4cc7pHgy7A0= =CbcT -----END PGP SIGNATURE----- --==-=-=--