diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-07-02 23:12:41 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-07-02 23:13:21 +0200 |
| commit | db37dd91e442055b424c7ab721de59ffbe5f001f (patch) | |
| tree | 7cb3fc20fba415054435610520821e8ca2d2cbe5 /gnu/packages/video.scm | |
| parent | 54278e225e99707c3bd6f9eb37b8906851251b49 (diff) | |
| download | guix-db37dd91e442055b424c7ab721de59ffbe5f001f.tar.gz | |
gnu: youtube-dl-gui: Add .desktop file.
* gnu/packages/video.scm (youtube-dl-gui)[arguments]: Add a ‘create-desktop-file’ phase.
Diffstat (limited to 'gnu/packages/video.scm')
| -rw-r--r-- | gnu/packages/video.scm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index bd94279b7f..ef6d9cce82 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -1549,7 +1549,27 @@ YouTube.com and many more sites.") (string-append "os.path.join('" (assoc-ref %outputs "out") "', '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 `(("python2-wxpython" ,python2-wxpython) ("youtube-dl" ,youtube-dl))) |