bug#26538: [PATCH 1/1] gnu: Add youtube-dl-gui.

[Chris Marusich]

* gnu/packages/video.scm (youtube-dl-gui): New variable.
---
 gnu/packages/video.scm | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index b64664176..a80d187be 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -15,6 +15,7 @@
 ;;; Copyright © 2016 Eric Bavier <address@hidden>
 ;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
 ;;; Copyright © 2017 Feng Shu <address@hidden>
+;;; Copyright © 2017 Chris Marusich <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -95,6 +96,7 @@
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages web)
   #:use-module (gnu packages webkit)
+  #:use-module (gnu packages wxwidgets)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xiph)
   #:use-module (gnu packages xml)
@@ -1024,6 +1026,92 @@ YouTube.com and a few more sites.")
     (home-page "https://yt-dl.org";)
     (license license:public-domain)))
 
+(define-public youtube-dl-gui
+  (package
+    (name "youtube-dl-gui")
+    (version "0.3.8")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append 
"https://github.com/MrS0m30n3/youtube-dl-gui/archive/";
+                           version
+                           ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256 (base32 
"1kaq3nrr7l52s9lvrqqywsk8yd6f2lciwj1hd40h8hs4463yrrqc"))))
+    (build-system python-build-system)
+    (arguments
+     ;; In Guix, wxpython has not yet been packaged for Python 3.
+     `(#:python ,python-2
+       ;; This package has no tests.
+       #:tests? #f
+       #:phases (modify-phases %standard-phases
+                  (add-before 'build 'patch-source
+                              (lambda* (#:key inputs #:allow-other-keys)
+                                ;; The youtube-dl-gui program lets you
+                                ;; configure options.  Some of them are
+                                ;; problematic, so we change their defaults.
+                                (substitute* "youtube_dl_gui/optionsmanager.py"
+                                  ;; When this is true, the builder process 
will
+                                  ;; try (and fail) to write logs to the 
builder
+                                  ;; user's home directory.
+                                  (("'enable_log': True") "'enable_log': 
False")
+                                  ;; This determines which youtube-dl program
+                                  ;; youtube-dl-gui will run.  If we don't set
+                                  ;; this, then youtube-dl-gui might download
+                                  ;; an arbitrary copy from the Internet into
+                                  ;; the user's home directory and run it, so
+                                  ;; let's make sure youtube-dl-gui uses the
+                                  ;; youtube-dl from the inputs by default.
+                                  (("'youtubedl_path': self.config_path")
+                                   (string-append "'youtubedl_path': '"
+                                                  (assoc-ref inputs 
"youtube-dl")
+                                                  "/bin'"))
+                                  ;; When this is True, when youtube-dl-gui is
+                                  ;; finished downloading a file, it will try
+                                  ;; (and possibly fail) to open the directory
+                                  ;; containing the downloaded file.  This can
+                                  ;; fail because it assumes that xdg-open is
+                                  ;; in PATH.  Unfortunately, simply adding
+                                  ;; xdg-utils to the propagated inputs is not
+                                  ;; enough to make this work, so for now we
+                                  ;; set the default to False.
+                                  (("'open_dl_dir': True") "'open_dl_dir': 
False"))
+                                ;; The youtube-dl program from the inputs is
+                                ;; actually a wrapper script written in bash,
+                                ;; so attempting to invoke it as a python
+                                ;; script will fail.
+                                (substitute* "youtube_dl_gui/downloaders.py"
+                                  (("cmd = \\['python', 
self\\.youtubedl_path\\]")
+                                   "cmd = [self.youtubedl_path]"))
+                                ;; Use relative paths for installing data
+                                ;; files so youtube-dl-gui installs the files
+                                ;; relative to its prefix in the store, rather
+                                ;; than relative to /.  Also, instead of
+                                ;; installing data files into
+                                ;; $prefix/usr/share, install them into
+                                ;; $prefix/share for consistency (see:
+                                ;; (standards) Directory Variables).
+                                (substitute* "setup.py"
+                                  (("= '/usr/share") "= 'share"))
+                                ;; Update get_locale_file() so it finds the
+                                ;; installed localization files.
+                                (substitute* "youtube_dl_gui/utils.py"
+                                  (("os\\.path\\.join\\('/usr', 'share'")
+                                   (string-append "os.path.join('"
+                                                  (assoc-ref %outputs "out")
+                                                  "', 'share'"))))))))
+    (inputs
+     `(("python2-wxpython" ,python2-wxpython)
+       ("youtube-dl" ,youtube-dl)))
+    (home-page "https://github.com/MrS0m30n3/youtube-dl-gui";)
+    (synopsis
+     "GUI (Graphical User Interface) for @command{youtube-dl}")
+    (description
+     "Youtube-dlG is a GUI (Graphical User Interface) for
address@hidden  You can use it to download videos from YouTube and any
+other sites that youtube-dl supports.")
+    (license license:unlicense)))
+
 (define-public you-get
   (package
     (name "you-get")
-- 
2.12.0