         ;; Load history.
         (el-patch-wrap 1
           (radian--with-silent-load
-           (load-file org-clock-persist-file)))
+            (load-file org-clock-persist-file)))
         (setq org-clock-loaded t)
         (pcase-dolist (`(,(and file (pred file-exists-p)) . ,position)
 		       org-clock-stored-history)

;; and view the output in real time, with errors and warnings
;; highlighted and hyperlinked.
(use-feature compile
  :config

  ;; Automatically scroll the Compilation buffer as output appears,


(defmacro radian--with-silent-load (&rest body)
  "Execute BODY, silencing any calls to `load' within."
  (declare (indent 0))
  `(cl-letf* ((load-orig (symbol-function #'load))
              ((symbol-function #'load)
               (lambda (file &optional noerror _nomessage &rest args)
                 (apply load-orig file noerror 'nomessage args))))
     ,@body))

(defmacro radian--with-silent-write (&rest body)
  "Execute BODY, silencing any calls to `write-region' within."
  (declare (indent 0))
  `(cl-letf* ((write-region-orig (symbol-function #'write-region))
              ((symbol-function #'write-region)
               (lambda (start end filename &optional append visit lockname
                              mustbenew)
                 (funcall write-region-orig start end filename append 0
                          lockname mustbenew)
                 (set-buffer-modified-p nil)
                 (set-visited-file-modtime)))
              ((symbol-function #'message) #'ignore))
     ,@body))

(defun radian--random-string ()
