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

(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-todo (todo)
  "Add a new TODO."
  (interactive "sTODO: ")
  (ar/org-with-file-location (ar/org-get-daily-file-path) "backlog"
                             (show-subtree)
                             (org-meta-return)
                             (insert (format "TODO %s" todo))
