             (progn
               (modi/reset-go-home-alert "nil")
               (setq modi/timer--go-home-alert nil)
-              (message "'Go Home' alert removed."))
+              (message "%s: 'Go Home' alert removed." modi/today--day-sym))
           (let ((daily (* 60 60 24))
                 new-go-home-time new-go-home-time-str)
             (setq modi/timer--go-home-alert (run-at-time

    (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")

    (setq sml/replacer-regexp-list
          `(
            ("^~/org/"                          ":Org:")
            ("^~/\\.emacs\\.d/"                   ":ED:")
            ("^~/.*box/uvm/uvm_examples/"       ":UVM_EX:")
            ("^~/.*box/uvm/adsim_uvm_examples/" ":AD_UVM_EX:")
            (":\\(.*_EX\\):\\([a-z0-9_]\\{3\\}\\).*?/"
