   :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."

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

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

(defun ar/string-match-p (regex string)
  "Return t if REGEX matches STRING. nil otherwise."
  (if (string-match regex string) t nil))

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

(defun ar/string-alpha-numeric-p (string)
  "Return t if STRING is alphanumeric.  nil otherwise."
  (ar/string-match-p "\\`[[:alnum:]]+\\'" string))

(defun ar/numeric-clipboard-or-prompt (prompt)
  "Return an integer from clipboard or PROMPT."
  (let* ((clipboard (current-kill 0))
         (number (if (ar/string-numeric-p clipboard)
                     clipboard
                   (read-string (format "%s: "
                                        prompt)))))
    number))

(defun ar/alpha-numeric-clipboard-or-prompt (prompt)
  "Return an alphanumeric string from clipboard or PROMPT."
  (let* ((clipboard (current-kill 0))
         (alpha-num-string (if (ar/string-alpha-numeric-p clipboard)
                     clipboard
                   (read-string (format "%s: "
                                        prompt)))))
    alpha-num-string))

(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-numeric-p clipboard)
                        clipboard
                      (read-string (format "%s: "
                                           prompt))))
