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

(require 'ar-time)
(require 'ar-buffer)
(require 'org)

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