                                 (hide-other)
                                 (save-buffer)))))))
 
-(defun ar/helm-my-hotspots ()
-  "Show my hotspots."
-  (interactive)
-  (helm :sources '(;; ar/helm-source-hotspots
-                   ;; helm-source-buffers-list
-                   ;; helm-source-ido-virtual-buffers
-                   ar/helm-source-local-hotspots
-                   ar/helm-source-web-hotspots
-                   ar/helm-source-blog)))
-(bind-key "C-c h" #'ar/helm-my-hotspots)
-
 (use-package profiler)
 (defun ar/profiler-start-cpu ()
   "Start cpu profiler."

  (with-current-buffer (find-file-noselect (expand-file-name
                                            "~/stuff/active/non-public/daily.org"))
    (ar/org-helm-entry-child-candidates "current-week")))

(defun ar/helm-todos ()
  "Current TODOS."
  (interactive)
  (helm :sources `(((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/org-point-to-heading-1 ()
  "Move point to heading level 1."

    (org-html-export-to-html)
    (browse-url (format "file:%s" (expand-file-name
                                   "~/stuff/active/blog/index.html")))))

(use-package flyspell :commands (flyspell-mode-on))

(defun ar/org-mode-hook-function ()
  "Called when entering org mode."
