                                            #'modi/update-go-home-alert)))))
 
     (defun modi/set-go-home-alert (time)
-      "Set the 'go home' alert time interactively.
+      "Set the `go home' alert time interactively.
 The `modi/timer--go-home-alert' timer is canceled and not restarted if
 TIME is \"nil\" or \"\"."
       (interactive "s'Go Home' alert time (e.g. 5:00pm): ")

            (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))
                new-go-home-time new-go-home-time-str)
            (setq modi/timer--go-home-alert (run-at-time

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