diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-03-15 20:32:36 +0100 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-03-15 20:33:34 +0100 |
| commit | b55db49481394214adc30be623078c723d32c707 (patch) | |
| tree | 33b838a6c3edfa8eea671609f486fe46fb5a4c9b | |
| parent | 0754f29afc797de88f68736db751c53a5cc64f4b (diff) | |
| download | guix-b55db49481394214adc30be623078c723d32c707.tar.gz | |
gnu: mkvtoolnix: Move all GUI files to the "gui" output.
* gnu/packages/video.scm (mkvtoolnix)[arguments]: Do it.
| -rw-r--r-- | gnu/packages/video.scm | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index ee49d35cec..5b40a7d4a5 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -437,15 +437,29 @@ H.264 (MPEG-4 AVC) video streams.") (add-after 'install 'post-install (lambda* (#:key outputs #:allow-other-keys) ;; Move the Qt interface to "gui". - (let ((out (assoc-ref outputs "out")) - (gui (assoc-ref outputs "gui"))) + (let* ((out (assoc-ref outputs "out")) + (gui (assoc-ref outputs "gui")) + (strip-store-dir (lambda (path) + (substring path (string-prefix-length out path))))) (for-each (lambda (file) (mkdir-p (string-append gui (dirname file))) (rename-file (string-append out file) (string-append gui file))) - '("/bin/mkvtoolnix-gui" - "/share/applications/org.bunkus.mkvtoolnix-gui.desktop"))) + (append '("/bin/mkvtoolnix-gui" + "/share/applications/org.bunkus.mkvtoolnix-gui.desktop" + "/share/metainfo/org.bunkus.mkvtoolnix-gui.appdata.xml" + "/share/mime/packages/org.bunkus.mkvtoolnix-gui.xml") + (map strip-store-dir (find-files out "\\.ogg$")) + (map strip-store-dir (find-files out "mkvtoolnix-gui\\.png$")) + (map strip-store-dir (find-files out "mkvtoolnix-gui\\.1")))) + (for-each + (lambda (file) + (delete-file-recursively (string-append out file))) + '("/share/applications" + "/share/metainfo" + "/share/mime" + "/share/mkvtoolnix"))) #t))))) (home-page "https://mkvtoolnix.download") (synopsis "Tools to create, alter and inspect Matroska files") |