gistfile1.txt

(defun today-anchor ()
  "Find or create an anchor for today's date"
  ;; (org-time-stamp-format) for an active time stamp
  (setq date (format-time-string (org-time-stamp-format nil t) (current-time)))
  (goto-char (point-min))
  (if (re-search-forward (format org-complex-heading-regexp-format (regexp-quote date)) nil t)
    (goto-char (line-beginning-position))
    (goto-char (point-min))
    (next-line)
    (or (bolp) (insert "\n"))
    (insert "* " date "\n")
    (beginning-of-line 0)
    (org-end-of-subtree)))