(use-package which-key
    :delight
    :config (which-key-mode)
    :custom (which-key-compute-remaps t)
    (which-key-show-docstrings nil)
    (which-key-show-prefix 'bottom)
    (which-key-side-window-max-width 1)
    (which-key-side-window-max-height 0.45)
    (which-key-show-remaining-keys t)
    (which-key-sort-order 'which-key-prefix-then-key-order)
    (which-key-hide-alt-key-translations nil)
    (which-key-enable-extended-define-key t))


Expanded:

(progn
  (use-package-ensure-elpa 'which-key
                           '(t)
                           'nil)
  (defvar use-package--warning53
    #'(lambda
        (keyword err)
        (let
            ((msg
              (format "%s/%s: %s" 'which-key keyword
                      (error-message-string err))))
          (display-warning 'use-package msg :error))))
  (condition-case-unless-debug err
      (progn
        (customize-set-variable 'which-key-compute-remaps t "Customized with use-package which-key")
        (customize-set-variable 'which-key-show-docstrings nil "Customized with use-package which-key")
        (customize-set-variable 'which-key-show-prefix 'bottom "Customized with use-package which-key")
        (customize-set-variable 'which-key-side-window-max-width 1 "Customized with use-package which-key")
        (customize-set-variable 'which-key-side-window-max-height 0.45 "Customized with use-package which-key")
        (customize-set-variable 'which-key-show-remaining-keys t "Customized with use-package which-key")
        (customize-set-variable 'which-key-sort-order 'which-key-prefix-then-key-order "Customized with use-package which-key")
        (customize-set-variable 'which-key-hide-alt-key-translations nil "Customized with use-package which-key")
        (customize-set-variable 'which-key-enable-extended-define-key t "Customized with use-package which-key")
        (if
            (not
             (require 'which-key nil t))
            (display-warning 'use-package
                             (format "Cannot load %s" 'which-key)
                             :error)
          (condition-case-unless-debug err
              (progn
                (which-key-mode)
                (if
                    (fboundp 'delight)
                    (delight
                     '((which-key-mode nil which-key))))
                t)
            (error
             (funcall use-package--warning53 :config err)))))
    (error
     (funcall use-package--warning53 :catch err))))