 
 (add-hook 'java-mode-hook #'ar/java-mode-hook-function)
 
+(use-package ox-html
+  :commands (org-html-export-to-html)
+  :config
+  (setq org-html-preamble t)
+  (setq org-html-preamble-format '(("en" "
+<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-postamble nil)
+  (setq org-html-format-drawer-function #'ar/org-html-export-format-drawer))
+
 (defun ar/export-blog-to-html ()
   "Export blog to HTML."
   (interactive)

                                (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/org-point-to-heading-1 ()
  "Move point to heading level 1."
