[elpa] externals/dicom fc2eab62c7 5/5: Add dicom--mpv-args

[ELPA Syncer]

branch: externals/dicom
commit fc2eab62c7c3d18b06822685c093b2a97c32f5c2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add dicom--mpv-args
---
 dicom.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/dicom.el b/dicom.el
index 5d634751ad..7805dd664a 100644
--- a/dicom.el
+++ b/dicom.el
@@ -66,6 +66,13 @@
                            "emacs/dicom/"))
   "Cache directory for converted images.")
 
+(defvar dicom--mpv-args
+  "--loop --osd-font-size=16 --osd-margin-x=0 --osd-margin-y=0 --osd-level=3 \
+--osd-status-msg='fps:${container-fps} \
+frame:${estimated-frame-number}/${estimated-frame-count} \
+progress:${percent-pos}%'"
+  "MPV command line arguments.")
+
 (defvar dicom--timeout 3
   "Timeout for conversion.")
 
@@ -293,8 +300,7 @@ REUSE can be a buffer name to reuse."
       ((file-exists-p dst)
        (message "Playing %s…" dicom--file)
        (call-process-shell-command
-        (format "(mpv --loop %s) & disown"
-                (shell-quote-argument dst))
+        (format "(mpv %s %s) & disown" dicom--mpv-args (shell-quote-argument 
dst))
         nil 0))
       (dicom--proc
        (message "Conversion in progress…"))