me
/
guix
Archived
1
0
Fork 0
Code

gnu: mkvtoolnix: Move all GUI files to the "gui" output. 

* gnu/packages/video.scm (mkvtoolnix)[arguments]: Do it.
master
Pierre Neidhardt 2019-03-15 20:32:36 +01:00
parent 0754f29afc
commit b55db49481
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/video.scm
View File

@ -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")