tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: v4l-utils: Drop gui output.

Browse Source 
With the current version the complete package takes less than 6MB.

* gnu/packages/video.scm (v4l-utils)[outputs]: Remove field.
[arguments]<#:phases>{split}: Remove phase.
(v4l-utils-minimal)[outputs, arguments]: Remove fields.

Change-Id: I3727e66929a055d83681a0bef1ad31865f7d2b07
This commit is contained in:
Andreas Enge
2026-02-15 12:02:24 +01:00
parent e05f37092f
commit fc6bd9e7db
1 changed files with 2 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
gnu/packages/video.scm
View File

@@ -4152,40 +4152,12 @@ tools, XML authoring components, and an extensible plug-in based API.")
(base32
"0cafp64b7ylxhjnp47hxm59r0b0v5hc2gc23qh2s2k5463lgpik5"))))
(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 "--disable-static"
(string-append "--with-udevdir="
(assoc-ref %outputs "out")
"/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))))))
"/lib/udev"))))
(native-inputs
(list perl pkg-config))
(inputs
@@ -4205,15 +4177,7 @@ be used for realtime video capture via Linux-specific APIs.")
(define-public v4l-utils-minimal
(package/inherit v4l-utils
(name "v4l-utils-minimal")
(arguments
(substitute-keyword-arguments arguments
((#:phases phases)
#~(modify-phases #$phases
(delete 'split)))
((#:disallowed-references _ '())
(list qtbase qtbase-5)))) ;FIXME: most likely useless
(outputs '("out"))
(inputs (modify-inputs inputs
(inputs (modify-inputs (package-inputs v4l-utils)
(delete "qtbase")))))
(define-public obs