branch: elpa/subed
commit 31556c63a758f59f21b50f5240aec9af01dae832
Author: Marcin Borkowski <[email protected]>
Commit: Marcin Borkowski <[email protected]>
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
