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