Partially revert "gnu: emacs-dicom: Enable video playing."

This partially reverts commit 6db9bd04d9 to
reduce closure size.

* gnu/packages/emacs-xyz.scm (emacs-dicom):
[arguments]<#:phases>{patch-commands}: Do not patch ffmpeg and mpv commands.
[inputs]: Remove ffmpeg and mpv.

Change-Id: Ib0de1cae10100f0a4378a3b8b97f26255b4d4fd1
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Jake Forster 2025-12-05 23:48:50 +10:30 committed by Liliana Marie Prikler
parent 3f9a28a9b0
commit 2e9170642e
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -2096,25 +2096,19 @@ separate, named tab groups.")
(make-file-writable "dicom.el")
(let ((convert (search-input-file inputs "/bin/convert"))
(dcm2img (search-input-file inputs "/bin/dcm2img"))
(dcm2xml (search-input-file inputs "/bin/dcm2xml"))
(ffmpeg (search-input-file inputs "/bin/ffmpeg"))
(mpv (search-input-file inputs "/bin/mpv")))
(dcm2xml (search-input-file inputs "/bin/dcm2xml")))
(substitute* "dicom.el"
(("(^|[^`])dcm2img" _ start)
(string-append start dcm2img))
(("\"dcm2xml")
(string-append "\"" dcm2xml))
(("(^|[^`])ffmpeg" _ start)
(string-append start ffmpeg))
;; Guix has ImageMagick 6.
(("(^|[^`])magick" _ start)
(string-append start convert))
(("(^|[^`])mpv" _ start)
(string-append start mpv))))))
(string-append start convert))))))
(add-before 'install 'makeinfo
(lambda _ (emacs-makeinfo))))))
(native-inputs (list texinfo))
(inputs (list dcmtk ffmpeg imagemagick mpv))
(inputs (list dcmtk imagemagick))
(propagated-inputs (list emacs-compat))
(home-page "https://github.com/minad/dicom")
(synopsis