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

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

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

