[nongnu] elpa/subed 31556c6 372/389: Add functions for bold and italic and change keybindings

[ELPA Syncer]

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

    Add functions for bold and italic and change keybindings
---
 subed/subed-common.el | 15 +++++++++++----
 subed/subed-config.el |  5 -----
 subed/subed.el        |  7 +++++--
 3 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index bc74217..91a9cdd 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1056,14 +1056,21 @@ attribute(s)."
     (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'."
+(defun subed-insert-html-tag-italic (begin end)
+  "Insert a pair of <i> tags at point or around the region."
   (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))
+  (subed-insert-html-tag begin end "i"))
+
+(defun subed-insert-html-tag-bold (begin end)
+  "Insert a pair of <b> tags at point or around the region."
+  (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 "b"))
 
 ;;; Characters per second computation
 
diff --git a/subed/subed-config.el b/subed/subed-config.el
index 3416ee6..f2f62d8 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -199,11 +199,6 @@ 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 f68b54b..93fc2d2 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -71,8 +71,11 @@
     (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)
+    (define-key subed-mode-map (kbd "C-c C-t") (let ((html-tag-keymap 
(make-sparse-keymap)))
+                                                (define-key html-tag-keymap 
(kbd "C-t") #'subed-insert-html-tag)
+                                                (define-key html-tag-keymap 
(kbd "C-i") #'subed-insert-html-tag-italic)
+                                                (define-key html-tag-keymap 
(kbd "C-b") #'subed-insert-html-tag-bold)
+                                                html-tag-keymap))
     subed-mode-map))
 
 ;;;###autoload