   ("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))))

  :config
  (bind-key "C-c x" #'hydra-git-commit/body git-commit-mode-map))

(defun ar/org-insert-youtube-video ()
  "Inserts a youtube video to current org file."
  (interactive)
  (insert (format
"#+BEGIN_HTML
  <iframe width='420'
          height='315'
          src='https://www.youtube.com/embed/%s'
          frameborder='0'
          allowfullscreen>
  </iframe>
#+END_HTML"
(ar/alpha-numeric-clipboard-or-prompt "youtube video id"))))

;; From http://oremacs.com/2015/03/07/hydra-org-templates
(defun ar/hot-expand (str)
  "Expand org template STR."
