From f9003e6c285e7b1c64ead7c6d876ba95d00dd1c2 Mon Sep 17 00:00:00 2001
From: swedebugia <address@hidden>
Date: Sun, 6 Jan 2019 22:23:29 +0100
Subject: [PATCH 2/2] gnu: youtube-viewer: Rename to youtube-viewer-gtk

* gnu/packages/video.scm (youtube-viewer):
  [name] Rename it.
  [arguments] Add phase to rename the binary.
---
 gnu/packages/video.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index c6bd9063c..128152371 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1466,9 +1466,9 @@ audio, images) from the Web.  It can use either mpv or vlc for playback.")
     (home-page "https://you-get.org/")
     (license license:expat)))
 
-(define-public youtube-viewer
+(define-public youtube-viewer-gtk
   (package
-    (name "youtube-viewer")
+    (name "youtube-viewer-gtk")
     (version "3.5.0")
     (source (origin
               (method git-fetch)
@@ -1509,6 +1509,14 @@ audio, images) from the Web.  It can use either mpv or vlc for playback.")
                (for-each (cut wrap-program <>
                               `("PERL5LIB" ":" prefix (,lib-path ,site-dir)))
                          (find-files bin-dir))
+               #t)))
+                  (add-after 'wrap-program 'rename
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                   (bin-dir (string-append out "/bin/")))
+               (chdir bin-dir)
+               (rename-file "gtk-youtube-viewer"
+                            "youtube-viewer-gtk")
                #t))))))
     (synopsis
      "Lightweight application for searching and streaming videos from YouTube")
-- 
2.19.2