[nongnu] elpa/subed beda7dc 371/389: Add functions to insert HTML-like tags

[ELPA Syncer]

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

    Add functions to insert HTML-like tags
---
 subed/subed-common.el | 37 +++++++++++++++++++++++++++++++++++++
 subed/subed-config.el |  5 +++++
 subed/subed.el        |  2 ++
 3 files changed, 44 insertions(+)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index 0c80cf5..bc74217 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1028,6 +1028,43 @@ Return nil if function `buffer-file-name' returns nil."
                (when (file-exists-p file-stem-video)
                  (throw 'found-videofile file-stem-video))))))))
 
+;;; Inserting HTML-like tags
+
+(defvar subed--html-tag-history nil
+  "History of HTML-like tags in subtitles.")
+(defvar subed--html-attr-history nil
+  "History of HTML-like attributes in subtitles.")
+
+(defun subed-insert-html-tag (begin end tag &optional attributes)
+  "Insert a pair of HTML-like tags around the region.
+If region is not active, insert a pair of tags and put the point
+between them.  If called with a prefix argument, also ask for
+attribute(s)."
+  (interactive (let* ((region-p (use-region-p))
+                     (begin (if region-p (region-beginning) (point)))
+                     (end (if region-p (region-end) (point)))
+                     (tag (read-string "Tag: " nil 'subed--html-tag-history))
+                     (attributes (when current-prefix-arg
+                                   (read-string "Attribute(s): " nil 
'subed--html-attr-history))))
+                (list begin end tag attributes)))
+  (save-excursion
+    (push (point) buffer-undo-list)
+    (goto-char end)
+    (insert "</" tag ">")
+    (goto-char begin)
+    (insert-before-markers "<" tag)
+    (when attributes (insert-before-markers " " attributes))
+    (insert-before-markers ">")))
+
+(defun subed-insert-default-html-tag (begin end)
+  "Insert a pair of default tags at point or around the region.
+See `subed-insert-html-tag' and `subed-default-html-tag'."
+  (interactive (let* ((region-p (use-region-p))
+                     (begin (if region-p (region-beginning) (point)))
+                     (end (if region-p (region-end) (point))))
+                (list begin end)))
+  (subed-insert-html-tag begin end subed-default-html-tag))
+
 ;;; Characters per second computation
 
 (defun subed-show-cps-p ()
diff --git a/subed/subed-config.el b/subed/subed-config.el
index f2f62d8..3416ee6 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -199,6 +199,11 @@ remembers whether it was originally enabled by the user.")
   :type 'file
   :group 'subed)
 
+(defcustom subed-default-html-tag "i"
+  "Default HTML-like tag."
+  :type 'string
+  :group 'subed)
+
 (defcustom subed-mpv-arguments '("--osd-level=2" "--osd-fractions")
   "Additional arguments for \"mpv\".
 The options --input-ipc-server=SRTEDIT-MPV-SOCKET and --idle are
diff --git a/subed/subed.el b/subed/subed.el
index f95d5e0..f68b54b 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -71,6 +71,8 @@
     (define-key subed-mode-map (kbd "C-c ]") 
#'subed-copy-player-pos-to-stop-time)
     (define-key subed-mode-map (kbd "C-c .") 
#'subed-toggle-sync-point-to-player)
     (define-key subed-mode-map (kbd "C-c ,") 
#'subed-toggle-sync-player-to-point)
+    (define-key subed-mode-map (kbd "C-c C-t") #'subed-insert-html-tag)
+    (define-key subed-mode-map (kbd "C-c C-e") #'subed-insert-default-html-tag)
     subed-mode-map))
 
 ;;;###autoload