From 3c826c4df26f6d890d72b0ded9aa27686ccd1c43 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Fri, 1 May 2026 22:06:15 -0400
Subject: reflowing automatically

---
 emacsconf-subed.el | 56 ++++++++++++++++++++++++++++++++++++------------------
 1 file changed, 37 insertions(+), 19 deletions(-)

diff --git a/emacsconf-subed.el b/emacsconf-subed.el
index 467ff74..01c08c2 100644
--- a/emacsconf-subed.el
+++ b/emacsconf-subed.el
@@ -26,6 +26,13 @@
 ;; from https://github.com/sachac/compile-media .
 
 ;;; Code:
+(ert-deftest emacsconf-split-text-based-on-heuristics ()
+  "Tests `emacsconf-split-text-based-on-heuristics'."
+  (should (equal (emacsconf-split-text-based-on-heuristics
+									"This is a long sentence that can be split up at several logical points, such as that one." 40)
+								 '("This is a long sentence" "that can be split up at several"
+									 "logical points, such as that one."))))
+
 
 (require 'subed)
 
@@ -118,27 +125,38 @@ TYPE can be 'end if you want the match end instead of the beginning."
                          result))
       (setq position new-position)
       (setq next-limit (+ new-position limit)))
-    (setq result (cons (string-trim current) result))
+		(unless (string= current "")
+			(setq result (cons (string-trim current) result)))
     (nreverse result)))
 
-(defun emacsconf-reflow-automatically ()
-  (interactive)
-  (let* ((subtitle-text-limit (or emacsconf-subed-subtitle-max-length fill-column))
-         (auto-space-msecs 700)
-         (subtitles
-          (mapconcat
-           (lambda (sub)
-             (string-join
-              (emacsconf-split-text-based-on-heuristics (elt sub 3) subtitle-text-limit)
-              "\n"))
-           (emacsconf-combine-close-subtitles (subed-subtitle-list))
-           "\n")))
-    (find-file (concat (file-name-sans-extension (buffer-file-name)) ".txt"))
-    (erase-buffer)
-    (insert subtitles)
-    (goto-char (point-min))
-    (set-fill-column subtitle-text-limit)
-    (display-fill-column-indicator-mode 1)))
+
+
+(defun emacsconf-reflow-automatically (&optional beg end)
+	"Try to split subtitle text at reasonable points."
+  (interactive (if (region-active-p) (list (region-beginning) (region-end))
+								 (list (point-min) (point-max))))
+	(if (derived-mode-p 'subed-mode)
+			(let* ((subtitle-text-limit (or emacsconf-subed-subtitle-max-length fill-column))
+						 (auto-space-msecs 700)
+						 (subtitles
+							(mapconcat
+							 (lambda (sub)
+								 (string-join
+									(emacsconf-split-text-based-on-heuristics (elt sub 3) subtitle-text-limit)
+									"\n"))
+							 (emacsconf-combine-close-subtitles (subed-subtitle-list beg end))
+							 "\n")))
+				(find-file (concat (file-name-sans-extension (buffer-file-name)) ".txt"))
+				(delete-region beg end)
+				(insert subtitles)
+				(goto-char (point-min))
+				(set-fill-column subtitle-text-limit)
+				(display-fill-column-indicator-mode 1))
+		(let ((split (emacsconf-split-text-based-on-heuristics
+									(buffer-substring beg end)
+									(or emacsconf-subed-subtitle-max-length fill-column))))
+			(delete-region beg end)
+			(insert (string-join split "\n")))))
 
 ;;;###autoload
 (defun emacsconf-subed-make-chapter-file-based-on-comments ()
-- 
cgit v1.2.3