emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed b716bd8fdc 7/8: Actually use `subed-waveform-minor-m


From: ELPA Syncer
Subject: [nongnu] elpa/subed b716bd8fdc 7/8: Actually use `subed-waveform-minor-mode-map'
Date: Sun, 18 Jun 2023 16:02:31 -0400 (EDT)

branch: elpa/subed
commit b716bd8fdcc68769567c56d9cc5f00e494a6e3eb
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Actually use `subed-waveform-minor-mode-map'
    
    * subed/subed-waveform.el: Actually use
    `subed-waveform-minor-mode-map'.
---
 subed/subed-waveform.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/subed/subed-waveform.el b/subed/subed-waveform.el
index 9a8d7ae401..04be565eeb 100644
--- a/subed/subed-waveform.el
+++ b/subed/subed-waveform.el
@@ -168,11 +168,20 @@ rounded to the nearest multiple of this number."
   (when (overlayp subed-waveform--image-overlay)
     (delete-overlay subed-waveform--image-overlay)))
 
+(defvar subed-waveform-minor-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c C-=") #'subed-waveform-volume-increase)
+    (define-key map (kbd "C-c C--") #'subed-waveform-volume-decrease)
+    (define-key map (kbd "C-c |") #'subed-waveform-put-svg)
+    map)
+  "Keymap for `subed-waveform-minor-mode'.")
+
 ;;;###autoload
 (define-minor-mode subed-waveform-minor-mode
   "Display waveforms for subtitles. Update on motion."
-  :lighter "w"
-  :require 'subed
+  :keymap subed-waveform-minor-mode-map
+       :lighter "w"
+       :require 'subed
   (if subed-waveform-minor-mode
       (progn
         (add-hook 'before-save-hook #'subed-waveform-remove nil t)
@@ -190,14 +199,6 @@ rounded to the nearest multiple of this number."
     (remove-hook 'subed-mpv-playback-position-hook 
#'subed-waveform--update-current-bar t)
     (remove-hook 'after-change-motion-hook #'subed-waveform-put-svg t)))
 
-(defvar subed-waveform-minor-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-c C-=") #'subed-waveform-volume-increase)
-    (define-key map (kbd "C-c C--") #'subed-waveform-volume-decrease)
-    (define-key map (kbd "C-c |") #'subed-waveform-put-svg)
-    map)
-  "Keymap for `subed-waveform-minor-mode'.")
-
 (defconst subed-waveform-volume-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "C-=") #'subed-waveform-volume-increase)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]