[nongnu] elpa/subed a80297b9c1: subed-sum-time: new function

[ELPA Syncer]

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

    subed-sum-time: new function
    
    * subed/subed-common.el (subed-sum-time): New function.
---
 subed/subed-common.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index b7f6dbd35e..7b131b2d12 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -2403,5 +2403,23 @@ The wdiff program must be installed.  Set
                        (display-buffer (current-buffer)))
                result))
 
+;;; Misc
+
+(defun subed-sum-time (&optional beg end)
+  "Display the total time of the subtitles.
+Does not yet take overlapping subtitles into account."
+  (interactive (list (and (region-active-p) (min (point) (mark)))
+                     (and (region-active-p) (max (point) (mark)))))
+  (let ((sum
+         (seq-reduce
+          ;; TODO: Handle overlapping subtitles
+          (lambda (prev val)
+            (+ prev (- (elt val 2) (elt val 1))))
+          (subed-subtitle-list beg end)
+          0)))
+    (when (called-interactively-p 'any)
+      (message "%s" (subed-msecs-to-timestamp sum)))
+    sum))
+
 (provide 'subed-common)
 ;;; subed-common.el ends here