gnu: youtube-dl-gui: Add .desktop file.

* gnu/packages/video.scm (youtube-dl-gui)[arguments]:
Add a ‘create-desktop-file’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2019-07-02 23:12:41 +02:00
parent 54278e225e
commit db37dd91e4
No known key found for this signature in database
GPG Key ID: D889B0F018C5493C
1 changed files with 21 additions and 1 deletions

View File

@ -1549,7 +1549,27 @@ YouTube.com and many more sites.")
(string-append "os.path.join('" (string-append "os.path.join('"
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"', 'share'"))) "', 'share'")))
#t))))) #t))
(add-after 'install 'create-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(applications (string-append out "/share/applications")))
(mkdir-p applications)
(call-with-output-file
(string-append applications "/youtube-dl-gui.desktop")
(lambda (file)
(format
file
"[Desktop Entry]~@
Name=Youtube-dl GUI~@
Comment=Graphical interface to download video with youtube-dl~@
Exec=youtube-dl-gui~@
TryExec=youtube-dl-gui~@
Terminal=false~@
Icon=youtube-dl-gui~@
Type=Application~@
Categories=AudioVideo;Audio;Video;Network~%")))
#t))))))
(inputs (inputs
`(("python2-wxpython" ,python2-wxpython) `(("python2-wxpython" ,python2-wxpython)
("youtube-dl" ,youtube-dl))) ("youtube-dl" ,youtube-dl)))