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

6db9bd04d9e281f1efd40121bb8821ff5db32007 — Jake Forster 4 months ago 1a1a3e9

gnu: emacs-dicom: Enable video playing.

* gnu/packages/emacs-xyz.scm (emacs-dicom): Enable video playing.
[arguments]<#:tests?>: Set to #f.
<#:phases>{patch-dcmtk-executables}: Patch references to ffmpeg and mpv.
Rename the phase to 'patch-commands'.
{makeinfo}: New phase.
[native-inputs]: Add texinfo.
[inputs]: Add ffmpeg and mpv.

Change-Id: Id4e65a0842267b231f9bbbc066a0e6dac373bbb4
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

patch browse .tar.gz

1 files changed, 14 insertions(+), 4 deletions(-)

M gnu/packages/emacs-xyz.scm

M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +14 -4

@@ 1919,19 1919,29 @@ separate, named tab groups.")
     (build-system emacs-build-system)
     (arguments
      (list
+      #:tests? #f                       ;no tests
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'patch-dcmtk-executables
+          (add-after 'unpack 'patch-commands
             (lambda* (#:key inputs #:allow-other-keys)
               (make-file-writable "dicom.el")
               (let ((dcm2xml (search-input-file inputs "/bin/dcm2xml"))
-                    (dcmj2pnm (search-input-file inputs "/bin/dcmj2pnm")))
+                    (dcmj2pnm (search-input-file inputs "/bin/dcmj2pnm"))
+                    (ffmpeg (search-input-file inputs "/bin/ffmpeg"))
+                    (mpv (search-input-file inputs "/bin/mpv")))
                 (substitute* "dicom.el"
                   (("\"dcm2xml")
                    (string-append "\"" dcm2xml))
                   (("\"dcmj2pnm")
-                   (string-append "\"" dcmj2pnm)))))))))
-    (inputs (list dcmtk))
+                   (string-append "\"" dcmj2pnm))
+                  (("(^|[^`])ffmpeg" _ start)
+                   (string-append start ffmpeg))
+                  (("(^|[^`])mpv" _ start)
+                   (string-append start mpv))))))
+          (add-before 'install 'makeinfo
+            (lambda _ (emacs-makeinfo))))))
+    (native-inputs (list texinfo))
+    (inputs (list dcmtk ffmpeg mpv))
     (propagated-inputs (list emacs-compat))
     (home-page "https://github.com/minad/dicom")
     (synopsis