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

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

;; 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)
