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:   (declare (ignore web-view))
    (with-protect ("Failed to process dialog: ~a" :condition)
      (when (native-dialogs *browser*)
        (let ((dialog (gobject:pointer dialog)))
          (webkit:webkit-script-dialog-ref dialog)
          (run-thread "script dialog"
            (case (webkit:webkit-script-dialog-get-dialog-type dialog)
  
negative.code: (defun process-permission-request (web-view request)
    (g:g-object-ref (g:pointer request))
    (run-thread "permission requester"
      (let ((*interactive-p* t))
        (if-confirm ((format
                      nil "[~a] ~a"
                      (webkit:webkit-web-view-uri web-view)
                      (etypecase request
                        (webkit:webkit-geolocation-permission-request
                         "Grant this website geolocation access?")
                        (webkit:webkit-notification-permission-request
                         "Grant this website notifications access?")
                        (webkit:webkit-pointer-lock-permission-request
                         "Grant this website pointer access?")
                        (webkit:webkit-device-info-permission-request
                         "Grant this website device info access?")
                        (webkit:webkit-install-missing-media-plugins-permission-request
                         (format nil "Grant this website a media install permission for ~s?"
                                 (webkit:webkit-install-missing-media-plugins-permission-request-get-description
                                  request)))
                        (webkit:webkit-media-key-system-permission-request
                         (format nil "Grant this website an EME ~a key access?"
                                 (webkit:webkit-media-key-system-permission-get-name request)))
                        (webkit:webkit-user-media-permission-request
                         (format nil "Grant this website a~@[~*n audio~]~@[~* video~] access?"
                                 (webkit:webkit-user-media-permission-is-for-audio-device request)
                                 (webkit:webkit-user-media-permission-is-for-video-device request)))
                        (webkit:webkit-website-data-access-permission-request
                         (format nil "Grant ~a an access to ~a data?"
                                 (webkit:webkit-website-data-access-permission-request-get-requesting-domain
                                  request)
                                 (webkit:webkit-website-data-access-permission-request-get-current-domain
                                  request))))))
                    (webkit:webkit-permission-request-allow request)
                    (webkit:webkit-permission-request-deny request)))))
  
  (defun process-notification (web-view notification)
    (when (native-dialogs *browser*)
  