Emacs: Add function to surround region with HTML tag.

init.d/text/web.el

@@ -16,10 +16,20 @@
 (use-package web-mode
   :custom
   (web-mode-markup-indent-offset 2)     ; Default indentation level.
+  :config (defun my/html-surround-with-tag (beg end)
+            "Surround region with HTML tag."
+            (interactive "*r")
+            (if (region-active-p)
+                (let ((tag (completing-read "Tag: " '("em" "strong"))))
+                  (insert (concat "<" tag ">"
+                                  (delete-and-extract-region beg end)
+                                  "</" tag ">")))
+              (message "No active region")))
   :mode (("\\.[ps]?html?$" . web-mode)
          ("\\.tmpl$" . web-mode)        ; Gitea templates.
          ("\\.php$" . web-mode))
-  :hook (web-mode  . (lambda () (set-fill-column 120))))
+  :hook (web-mode  . (lambda () (set-fill-column 120)))
+  :bind ("C-c C-M-h" . my/html-surround-with-tag))
 
 ;; Read EPUB ebooks.
 (use-package nov