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

  (bind-key "<tab>" #'helm-execute-persistent-action helm-map) ; rebind tab to do persistent action
  (bind-key "C-i" #'helm-execute-persistent-action helm-map) ; make TAB works in terminal
  (bind-key "C-z" #'helm-select-action helm-map) ; list actions using C-z
  :bind (("C-c i" . helm-imenu)
         ("M-x" . helm-M-x)
         ("M-y" . helm-show-kill-ring)
         ("C-x b" . helm-buffers-list)
         ;; Often intended C-x b. Mapping to same command.
         ("C-x C-b" . helm-buffers-list)
         ("C-h a" . helm-apropos))
  :ensure t)

(defun ar/projectile-helm-ag ()


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