       (set-face-attribute 'minibuffer-line nil :inherit font-lock-type-face))
     (defun modi/minibuffer-line-set-alert-face ()
       (set-face-attribute 'minibuffer-line nil :inherit font-lock-warning-face))
+
+    (defun modi/update-go-home-alert ()
+      "Reset the `minibuffer-line' face to default and update the 'Go Home'
+alert time."
+      (modi/minibuffer-line-set-default-face)
+      (setq modi/today--day-sym (intern (format-time-string "%a")))
+      (modi/set-go-home-alert (cdr (assq modi/today--day-sym
+                                         modi/time-go-home-alert))))
 
     (defun modi/reset-go-home-alert (time)
       "Reset the 'go home' alert time interactively.

    (defconst modi/today--day-sym (intern (format-time-string "%a"))
      "Symbol containing 3-letter abbreviation of today's day.")

    (defconst modi/time-go-home-reset "07:00am"
      "Time when to modify the time face to remove the alert face.")

    (defconst modi/time-go-home-alert '((Mon . "05:15pm")

;; Time-stamp: <2015-07-27 12:50:07 kmodi>

;; Customize the mode-line

