-;; Time-stamp: <2015-07-27 12:50:07 kmodi>
+;; Time-stamp: <2015-08-03 09:45:18 kmodi>
 
 ;; Customize the mode-line
 


    (defun modi/set-go-home-alert (time)
      "Set the 'go home' alert time interactively.
The `modi/timer--go-home-reset' and `modi/timer--go-home-alert' timers
are canceled and not restarted if TIME is \"nil\" or \"\"."
      (interactive "s'Go Home' alert time (e.g. 5:00pm): ")
      ;; http://emacs.stackexchange.com/a/3415/115
      (setcdr (assq modi/today--day-sym modi/time-go-home-alert) time)

        (if (or (string= time "")
                (string= time "nil"))
            (progn
              (modi/minibuffer-line-set-default-face)
              (setq modi/timer--go-home-alert nil)
              (message "%s: 'Go Home' alert removed." modi/today--day-sym))
          (let ((daily (* 60 60 24))
