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

This partially reverts commit 6db9bd04d9e281f1efd40121bb8821ff5db32007 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>

1 files changed, 3 insertions, 9 deletions

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 63e20e39744..a4a35d6bd4e 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -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