(defun dane-birthday-p ()
  "check if it's the day"
  (string-equal (substring (current-time-string) 4 10) "Aug  5"))

(defun birthday-hook ()
  "celebration hook"
  (when (and (dane-birthday-p)
         (not (boundp 'birthday-already-celebrated)))
    (setq birthday-already-celebrated 't)
    (animate-birthday-present "Daniel")))

(add-hook 'auto-save-hook 'birthday-hook)