[nongnu] elpa/subed ec7b222 368/389: Enable CPS showing by default and improve CPS toggling functions

[ELPA Syncer]

branch: elpa/subed
commit ec7b2221fe9cd18368f4ef5934459e6de8144c6e
Author: Marcin Borkowski <mbork@mbork.pl>
Commit: Marcin Borkowski <mbork@mbork.pl>

    Enable CPS showing by default and improve CPS toggling functions
---
 subed/subed-common.el | 23 +++++++++++++++++------
 subed/subed.el        |  3 ++-
 2 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index f62ddac..d0ca925 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1034,19 +1034,30 @@ Return nil if function `buffer-file-name' returns nil."
   "Whether CPS is shown for the current subtitle."
   (member #'subed--update-cps-overlay after-change-functions))
 
-(defun subed-enable-show-cps ()
+(defun subed-enable-show-cps (&optional quiet)
   "Enable showing CPS next to the subtitle heading."
-  (interactive)
+  (interactive "p")
   (add-hook 'after-change-functions #'subed--update-cps-overlay nil t)
   (add-hook 'subed-subtitle-motion-hook 
#'subed--move-cps-overlay-to-current-subtitle nil t)
-  (add-hook 'after-save-hook #'subed--move-cps-overlay-to-current-subtitle nil 
t))
+  (add-hook 'after-save-hook #'subed--move-cps-overlay-to-current-subtitle nil 
t)
+  (unless quiet
+    (message "Enabled showing characters per second")))
 
-(defun subed-disable-show-cps ()
-  "Enable showing CPS next to the subtitle heading."
+(defun subed-disable-show-cps (&optional quiet)
+  "Disable showing CPS next to the subtitle heading."
   (interactive)
   (remove-hook 'after-change-functions #'subed--update-cps-overlay t)
   (remove-hook 'subed-subtitle-motion-hook 
#'subed--move-cps-overlay-to-current-subtitle t)
-  (remove-hook 'after-save-hook #'subed--move-cps-overlay-to-current-subtitle 
t))
+  (remove-hook 'after-save-hook #'subed--move-cps-overlay-to-current-subtitle 
t)
+  (unless quiet
+    (message "Disabled showing characters per second")))
+
+(defun subed-toggle-show-cps ()
+  "Enable or disable showing CPS next to the subtitle heading."
+  (interactive)
+  (if (subed-show-cps-p)
+      (subed-disable-show-cps)
+    (subed-enable-show-cps)))
 
 (defvar subed-transform-for-cps #'subed--strip-tags)
 
diff --git a/subed/subed.el b/subed/subed.el
index 02196db..f95d5e0 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -190,7 +190,8 @@ Key bindings:
   (subed-enable-sync-point-to-player :quiet)
   (subed-enable-sync-player-to-point :quiet)
   (subed-enable-replay-adjusted-subtitle :quiet)
-  (subed-enable-loop-over-current-subtitle :quiet))
+  (subed-enable-loop-over-current-subtitle :quiet)
+  (subed-enable-show-cps :quiet))
 
 ;; Internally, supported formats are listed in `subed--init-alist', which
 ;; associates file extensions with format-specific init methods (e.g. "srt" ->