daylight.el

(defun daylight-get-theme (hour)
  "Return the daylight theme for HOUR."
  (cond ((and (>= hour daylight-morning-hour) (< hour daylight-afternoon-hour))
         daylight-morning-theme)
        ((and (>= hour daylight-afternoon-hour) (< hour daylight-evening-hour))
         daylight-afternoon-theme)
	((and (or (>= hour daylight-evening-hour) ( < hour daylight-morning-hour))
	      (or (<= hour daylight-late-hour) (> hour daylight-morning-hour)))
         daylight-evening-theme)
        (t
         daylight-late-theme)))