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

                   (point))))
(bind-key "M-DEL" #'ar/backward-delete-subword)
(bind-key "<C-backspace>" #'ar/backward-delete-subword)

;; Duplicate line.
(global-set-key "\C-x\C-d" "\C-a\C- \C-e\M-w\C-j\C-y")

(bind-key "C-q" #'previous-buffer)
(bind-key "C-z" #'next-buffer)

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

(use-package org-bullets :ensure t)

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