 (require 'ar-time)
 (require 'ar-buffer)
 (require 'org)
+
+(defvar ar/org-daily-file-path "set/path/to/daily.org"
+  "Path to daily.org file.")
+
+(defun ar/org-get-daily-file-path ()
+  (ar/file-assert-file-exists ar/org-daily-file-path))
 
 (defun ar/org-search-file-buffer-forward (file-path regex)
   "Search FILE-PATH buffer using regex REGEX.  Move point to first instance."

(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"
                             (show-subtree)
                             (org-meta-return)
                             (insert (format "TODO %s" todo))


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