         ;; TODO: Avoid adding trailing caused by org-indent-line.
         (delete-trailing-whitespace)))))
 
-(setq org-html-format-drawer-function #'ar/org-html-export-format-drawer)
+(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)
+  (helm :sources '(ar/helm-source-my-todos)))
+
+(defun ar/helm-my-hotspots ()
+  "Show my hotspots."
+  (interactive)
+  (unless helm-source-buffers-list
+    (setq helm-source-buffers-list
+          (helm-make-source "Buffers" 'helm-source-buffers)))
+  (helm :sources '(helm-source-buffers-list
+                   helm-source-ido-virtual-buffers
+                   helm-source-buffer-not-found
+                   ar/helm-source-local-hotspots
+                   ar/helm-source-web-hotspots
+                   ar/helm-source-blog
+                   ar/helm-source-my-todos)
+        :buffer "*helm buffers*"
+        :keymap helm-buffer-map
+        :truncate-lines t))
+(bind-key "C-x b" #'ar/helm-my-hotspots)
 
 (defun ar/update-blog-timestamp-at-point ()
   "Update blog entry timestamp at point."

  (use-package helm-buffers
    :config
    (setq helm-buffers-favorite-modes (append helm-buffers-favorite-modes
                                               '(picture-mode artist-mode)))
    (setq helm-buffer-max-length 40))
  (use-package helm-files)
  (use-package helm-grep)

                   (point))))
(bind-key "M-DEL" #'ar/backward-delete-subword)
(bind-key "<C-backspace>" #'ar/backward-delete-subword)
(bind-key "C-x C-d" "\C-a\C- \C-e\M-w\C-j\C-y")

(bind-key "C-q" #'previous-buffer)
(bind-key "C-z" #'next-buffer)
