anchor.diff:                                             (theme:background-color (symbol-value theme-symbol)))
                               :onclick (ps:ps (nyxt/ps:lisp-eval
                                                `(nyxt::auto-configure
  -                                               :class 'browser
  +                                               :class-name 'browser
                                                  :slot 'theme
                                                  :slot-value ',theme-symbol)))
                               text))
  
positive.code:                                                          (slot-value (symbol-value theme-symbol) text-color))
                                            (slot-value (symbol-value theme-symbol) color))))))))
        (:h2 "Theme style")
        (:raw (generate-colors 'theme::+light-theme+ "Use default (Light theme)"))
        (:raw (generate-colors 'theme::+dark-theme+ "Use Dark theme")))
      (:h2 "Default new buffer URL")
      (:button :class "button"
               :onclick (ps:ps (nyxt/ps:lisp-eval
                                `(nyxt::configure-slot 'default-new-buffer-url 'browser :type 'STRING)))
               "Set default new buffer URL")
      (:h2 "Default zoom ratio")
      (:button :class "button"
               :onclick (ps:ps (nyxt/ps:lisp-eval
                                `(nyxt::configure-slot 'current-zoom-ratio 'buffer)))
               "Set default zoom ratio")
      (:h2 "Disable compositing")
      (:p "On some systems, compositing can cause issues with rendering. If you
       are experiencing blank web-views, you can try to disable compositing. After
       disabling compositing, you will need to restart Nyxt.")
      (:button :class "button"
               :onclick (ps:ps (nyxt/ps:lisp-eval
                                `(nyxt::append-configuration
                                  '(setf (uiop:getenv "WEBKIT_DISABLE_COMPOSITING_MODE") "1"))))
               "Disable compositing")
      (:h2 "Edit configuration")
      (:p "Edit user configuration and other files in external text editor.")
      (:button :class "button"
               :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt::edit-user-file-with-external-editor)))
               "Edit user files")))
  
  (define-internal-page-command-global describe-bindings ()
      (buffer "*Help-bindings*")
  
negative.code:                  :onclick (ps:ps (nyxt/ps:lisp-eval
                                    `(progn
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/emacs-mode:emacs-mode :activate nil :buffer input-buffer))
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/vi-mode:vi-normal-mode :activate nil :buffer input-buffer)))))
                   "Use default (CUA)"))
      (:p (:button :class "button"
                   :onclick (ps:ps (nyxt/ps:lisp-eval
                                    `(progn
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/vi-mode:vi-normal-mode :activate nil :buffer input-buffer))
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/emacs-mode:emacs-mode :activate t :buffer input-buffer)))))
                   "Use Emacs"))
      (:p (:button :class "button"
                   :onclick (ps:ps (nyxt/ps:lisp-eval
                                    `(progn
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/emacs-mode:emacs-mode :activate nil :buffer input-buffer))
                                       (nyxt::auto-configure
                                        :class-name 'input-buffer
                                        :form '(nyxt/vi-mode:vi-normal-mode :activate t :buffer input-buffer)))))
                   "Use vi"))
      (flet ((generate-colors (theme-symbol text)
               (spinneret:with-html-string
  