gistfile1.el

(defun wrap-region-in-md-kbd-tags ()
  "Wraps the selected region in HTML keyboard (<kbd></kbd>) tags
to create keyboard glyphs."
  (interactive "r")
  (save-excursion
    (narrow-to-region (region-beginning) (region-end))
    (goto-char (point-min))
    (insert "<kbd>")
    (goto-char (point-max))
    (insert "</kbd>")
    (widen))
  (goto-char (+ (region-end) 6)))