 
 (defun radian--mode-line-recompute-and-reschedule ()
   "Compute mode line data and re-set timers.
-The delay is `radian--mode-line-update-delay'. The timers are
+The delay is `radian-mode-line-update-delay'. The timers are
 `radian--mode-line-idle-timer' and
 `radian--mode-line-repeat-timer'."
 


;; Don't clear the cache when switching major modes (or using M-x
;; normal-mode).
(put 'radian--mode-line-project-and-branch 'permanent-local t)

(defun radian--mode-line-recompute-project-and-branch ()
  "Recalculate and set `radian--mode-line-project-and-branch'.
Force a redisplay of the mode line if necessary. This is
buffer-local."
  (condition-case-unless-debug err
      (let ((old radian--mode-line-project-and-branch)
            (new
             (let* (;; Don't insist on having Projectile loaded.
                    (project-name (when (featurep 'projectile)

  (let ((width (- (window-width) (length left))))
    (format (format "%%s%%%ds" width) left right)))

(defcustom radian-mode-line-left
  '(;; Show [*] if the buffer is modified.
    (:eval (radian-mode-line-buffer-modified-status))
    " "
    ;; Show the name of the current buffer.
    mode-line-buffer-identification
