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

(ignore-errors (use-package org-beautify-theme :ensure t))

(use-package org-bullets :ensure t)

;; Tweaking org HTML export.
(setq ar/preamble-format-string "
<table id='contact-header'>
  <tr>
    <td id='contact-left'>
   </td>
    <td id='contact-right'>
      <a href='https://twitter.com/xenodium'>twitter</a>
      <a href='http://github.com/xenodium'>github</a>
      <a href='http://uk.linkedin.com/in/xenodium'>linkedin</a>
      <a href='mailto:me@xenodium.com'>email</a>
    </td>
  </tr>
</table>")
(setq org-html-preamble t)
(setq org-html-preamble-format `(("en" ,ar/preamble-format-string)))
(setq org-html-postamble nil)

;; From http://emacsredux.com/blog/2015/01/18/clear-comint-buffers/
(defun ar/comint-clear-buffer ()

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