branch: elpa/subed
commit 82a4c1d99d630c7fee40e78173a9f0944cdd05b9
Author: Rodrigo Morales <[email protected]>
Commit: Rodrigo Morales <[email protected]>
subed-waveform: add defcustoms for setting height/width of waveforms
---
subed/subed-waveform.el | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/subed/subed-waveform.el b/subed/subed-waveform.el
index 66fce8b7a5..1750a56640 100644
--- a/subed/subed-waveform.el
+++ b/subed/subed-waveform.el
@@ -177,6 +177,18 @@ rounded to the nearest multiple of this number."
:type 'integer
:group 'subed-waveform)
+(defcustom subed-waveform-image-width nil
+ "Width for images that display the waveforms of one subtitle.
+
+If nil, the width for waveforms is computed in
+`subed-waveform--image-parameters'.")
+
+(defcustom subed-waveform-image-height nil
+ "Height for images that display the waveforms of one subtitle.
+
+If it is nil, the height for waveforms is computed in
+`subed-waveform--image-parameters'.")
+
(defvar subed-waveform--overlay nil "Overlay if only a single waveform is
displayed.")
(defvar subed-waveform--svg nil "SVG if only a single waveform is displayed.")
@@ -618,7 +630,9 @@ This function ignores arguments and can be used in hooks."
(when (subed-jump-to-subtitle-text)
(let ((overlay (subed-waveform--get-current-overlay)))
(when overlay (delete-overlay overlay))
- (setq overlay (subed-waveform--make-overlay)))))))
+ (setq overlay (subed-waveform--make-overlay
+ subed-waveform-image-width
+ subed-waveform-image-height)))))))
(defun subed-waveform-add-to-all ()
"Update all subtitles with overlays."
@@ -626,7 +640,9 @@ This function ignores arguments and can be used in hooks."
(remove-overlays (point-min) (point-max) 'subed-waveform t)
(subed-for-each-subtitle (point-min) (point-max) nil
(subed-jump-to-subtitle-text)
- (subed-waveform--make-overlay)))
+ (subed-waveform--make-overlay
+ subed-waveform-image-width
+ subed-waveform-image-height)))
(defun subed-waveform-refresh ()
"Add all waveforms or just the current one.
