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

        ;; TODO: Avoid adding trailing caused by org-indent-line.
        (delete-trailing-whitespace)))))

(defvar ar/helm-source-my-todos `((name . "TODOS")
                                  (candidates . ,(ar/todos-helm-candidates))
                                  (action . (lambda (candidate)
                                              (cond ((plist-get candidate :marker)
                                                     (org-goto-marker-or-bmk (plist-get candidate :marker)))
                                                    ((plist-get candidate :url)
                                                     (org-open-link-from-string (plist-get candidate
                                                                                           :url))))))))
(defun ar/helm-todos ()
  "Current TODOS."
  (interactive)

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