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


(add-hook 'java-mode-hook #'ar/java-mode-hook-function)

(defun ar/export-blog-to-html ()
  "Export blog to HTML."
  (interactive)

                                (hide-other)
                                (save-buffer)))))))

(use-package profiler)
(defun ar/profiler-start-cpu ()
  "Start cpu profiler."
