[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)
- [nongnu] elpa/subed updated (2606208506 -> 6ce7de37f2), ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed ec701d3a57 1/8: Add the capability to display waveforms, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed fe09133aa5 6/8: Untabify everything, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed 6286279b93 4/8: Switch to subed-waveform-minor-mode, allow filter functions, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed 504ac658fb 5/8: waveform: subed-waveform-preview-msecs-before / after, and more mouse commands, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed b716bd8fdc 7/8: Actually use `subed-waveform-minor-mode-map',
ELPA Syncer <=
- [nongnu] elpa/subed 5577c44bac 2/8: Add support for setting timestamps with the mouse, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed 93dde01c74 3/8: Merge remote-tracking branch 'mbork/waveform' into waveform, ELPA Syncer, 2023/06/18
- [nongnu] elpa/subed 6ce7de37f2 8/8: 1.2.3 - merge subed-waveform, ELPA Syncer, 2023/06/18