me
/
guix
Archived
1
0
Fork 0
Code

gnu: v4l-utils: Move graphical tools to a separate output 

v4l-utils is a common dependency. Separate graphical tools to avoid pulling in
qtbase unless they are referenced.

* gnu/packages/video.scm (v4l-utils)[outputs]: New 'gui' output.
[arguments]: Add 'split' phase.

Signed-off-by: Marius Bakke <marius@gnu.org>
master
Ivan Kozlov 2020-11-01 15:27:37 +03:00 committed by Marius Bakke
parent 8090c24b85
commit a172a646d8
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/video.scm
View File

@ -45,6 +45,7 @@
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@posteo.ro>
;;; Copyright © 2020 Ivan Kozlov <kanichos@yandex.ru>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2987,11 +2988,39 @@ tools, XML authoring components, and an extensible plug-in based API.")
(base32
"1bkqlrizx0j2rd6ybam2x17bjrpwzl4v4szmnzm3cmixis3w3npr"))))
(build-system gnu-build-system)
;; Separate graphical tools in order to save almost 1 GiB on the closure
;; for the common case.
(outputs '("out" "gui"))
(arguments
'(#:configure-flags
(list (string-append "--with-udevdir="
(assoc-ref %outputs "out")
"/lib/udev"))))
"/lib/udev"))
#:phases
(modify-phases %standard-phases
(add-after 'install 'split
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(gui (assoc-ref outputs "gui")))
(mkdir-p (string-append gui "/bin"))
(mkdir-p (string-append gui "/share/man/man1"))
(mkdir-p (string-append gui "/share/applications"))
(for-each
(lambda (prog)
(for-each
(lambda (file)
(rename-file (string-append out file)
(string-append gui file)))
(list
(string-append "/bin/" prog)
(string-append "/share/man/man1/" prog ".1")
(string-append "/share/applications/" prog ".desktop"))))
'("qv4l2" "qvidcap"))
(copy-recursively (string-append out "/share/icons")
(string-append gui "/share/icons"))
(delete-file-recursively (string-append out "/share/icons"))
(rmdir (string-append out "/share/applications"))
#t))))))
(native-inputs
`(("perl" ,perl)
("pkg-config" ,pkg-config)))