anchor.diff:                   (rgba (progn (webkit:webkit-color-chooser-request-get-rgba
                                  color-chooser-request rgba)
                                 rgba))
  +                 (*interactive-p* t)
                    (color-name (color-name
                                 (prompt1 :prompt "Color"
                                   :input (format nil "rgba(~d, ~d, ~d, ~d)"
  
positive.code:     (when (native-dialogs *browser*)
        (gobject:g-object-ref (gobject:pointer file-chooser-request))
        (run-thread "file chooser"
          (let ((files (mapcar
                        #'uiop:native-namestring
                        (handler-case
                            (prompt :prompt (format
                                             nil "File~@[s~*~] to input"
                                             (webkit:webkit-file-chooser-request-select-multiple
                                              file-chooser-request))
                                    :input (or
                                            (and
                                             (webkit:webkit-file-chooser-request-selected-files
                                              file-chooser-request)
                                             (first
                                              (webkit:webkit-file-chooser-request-selected-files
                                               file-chooser-request)))
                                            (uiop:native-namestring (uiop:getcwd)))
                                    :extra-modes '(nyxt/file-manager-mode:file-manager-mode)
                                    :sources (list (make-instance 'nyxt/file-manager-mode:file-source)))
                          (nyxt-prompt-buffer-canceled ()
                            nil)))))
            (if files
                (webkit:webkit-file-chooser-request-select-files
                 file-chooser-request
  
negative.code:   (declare (ignore web-view))
    (with-protect ("Failed to process dialog: ~a" :condition)
      (when (native-dialogs *browser*)
        (let ((dialog (gobject:pointer dialog))
               (*interactive-p* t))
          (webkit:webkit-script-dialog-ref dialog)
          (run-thread "script dialog"
            (case (webkit:webkit-script-dialog-get-dialog-type dialog)
  