Displaying a daily Org-mode agenda reminder in Emacs 1

org-mode-agenda-hack.el

(defvar daily-agenda-timer (parse-relative-time "9:00 am"))
;; (decode-time daily-agenda-timer)

(defun show-daily-agenda ()
  (unless (time-less-p (current-time) daily-agenda-timer)
    (setq daily-agenda-timer (time-add daily-agenda-timer
				       (seconds-to-time 86400)))
    (org-agenda-list)))

(add-hook 'display-time-hook 'show-daily-agenda)
(display-time)