   :blackout (lisp-interaction-mode . "Lisp-Interaction"))
 
 (defun radian-reload-init ()
+  "Reload the init-file."
   (interactive)
   (message "Reloading init-file...")
   (load user-init-file nil 'nomessage)

         (add-hook hook ',name)))))

(defmacro radian-operating-system-p (os)
  "Return non-nil if OS matches the system type.
Allowable values for OS (not quoted) are `macOS', `osx',
`windows', `linux', `unix'."
  (pcase os

     ,@body))

(defmacro radian--with-silent-message (regexps &rest body)
  "Execute BODY, silencing any messages that match REGEXPS.
REGEXPS is a list of strings; if `message' would display a
message string (not including the trailing newline) matching any
element of REGEXPS, nothing happens. The REGEXPS need not match
