 (defun ar/org-add-todo (todo)
   "Add a new TODO."
   (interactive "sTODO: ")
-  (ar/org-with-file-location "~/stuff/active/non-public/daily/daily.org" "backlog"
+  (ar/org-with-file-location (ar/org-get-daily-file-path) "backlog"
                              (show-subtree)
                              (org-meta-return)
                              (insert (format "TODO %s" todo))


(defun ar/org-add-current-week-headline ()
  "Add current week to daily.org."
  (ar/org-with-file-location
      "~/stuff/active/non-public/daily/daily.org" "snippets"
      (unless (ar/org-now-in-week-headline-p)
        (org-meta-return)
        (insert (format "Week of %s"


(defun ar/org-paste-subtree-to-current-week (&optional subtree)
  "Paste SUBTREE to current week."
  (ar/file-with-current-file (ar/org-get-daily-file-path)
    (save-excursion
      (ar/org-goto-current-week)
      (org-end-of-line)
