From 2e9170642ee386559e4e76d5703993a0fafd21d6 Mon Sep 17 00:00:00 2001 From: Jake Forster Date: Fri, 5 Dec 2025 23:48:50 +1030 Subject: [PATCH] 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 --- gnu/packages/emacs-xyz.scm | 12 +++--------- 1 file 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