Compact standalone `quiet!` macro

gistfile1.md

Here is a compact reimplementation of Doom's quiet! macro. It depends on package llama, but I challenge anyone to rewrite it with lambdas and then tell me that it was worth it.

;; -*- lexical-binding: t; -*-
(defmacro quiet! (&rest forms)
  "Eval FORMS like `progn', but muffle all messages."
  `(if init-file-debug
       (progn ,@forms)
     (let ((inhibit-message t)
           (save-silently t)
           (standard-output #'ignore))
       (cl-letf* (((symbol-function #'message) #'ignore)
                  ((symbol-function #'write-region)
                   (let ((real-write-region (symbol-function #'write-region)))
                     (##apply real-write-region %1 %2 %3 &4 (or &5 'quiet) &*)))
                  ((symbol-function #'load)
                   (let ((real-load (symbol-function #'load)))
                     (##funcall real-load %1 &2 t &4 &5))))
         ,@forms))))