   ("I" (ar/hot-expand "<I"))
   ("H" (ar/hot-expand "<H"))
   ("A" (ar/hot-expand "<A"))
+  ("y" (ar/org-insert-youtube-video))
   ("<" self-insert-command "ins")
   ("o" nil "quit"))
 

  "Create an org CUSTOM_ID from a TITLE."
  (replace-regexp-in-string " " "-" (downcase title)))

(defun ar/string-digits-p (string)
  "Return t if STRING is an unsigned integer.  nil otherwise."
  (if (string-match "\\`[[:digit:]]+\\'" string)
      t
    nil))

(defun ar/org-insert-prefixed-link (prefix prompt)
  "Insert a link with PREFIX and PROMPT if not found in clipboard."
  (interactive)
  (let* ((clipboard (current-kill 0))
         (cl-number (if (ar/string-digits-p clipboard)
                        clipboard
                      (read-string (format "%s: "
                                           prompt))))

_a_scii   _v_erse    _I_NCLUDE:
_s_rc     ^ ^        _H_TML:
_h_tml    ^ ^        _A_SCII:
_y_outube
"
  ("s" (ar/hot-expand "<s"))
  ("e" (ar/hot-expand "<e"))
