~ruther/guix-local: Partially revert "gnu: emacs-dicom: Enable video playing."

2e9170642ee386559e4e76d5703993a0fafd21d6 — Jake Forster 2 months ago 3f9a28a

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>

patch browse .tar.gz

1 files changed, 3 insertions(+), 9 deletions(-)

M gnu/packages/emacs-xyz.scm

M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +3 -9

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