anchor.diff:  Setf-able.  The value is either a PROXY-URL or a pair of (PROXY-URL IGNORE-HOSTS).
   PROXY-URL is a `quri:uri' and IGNORE-HOSTS a list of strings."))
   
  -(define-ffi-generic ffi-buffer-download (buffer url))
  +(define-ffi-generic ffi-buffer-download (buffer url)
  +  (:documentation "Download URL using the BUFFER web view."))
   
   (define-ffi-generic ffi-buffer-zoom-level (buffer)
     (:method ((buffer t))
  
positive.code:         (let ((slice-size 10000))
            (reduce #'str:concat
                    (loop for i from 0 to (truncate (get-html-length)) by slice-size
                          collect (get-html i (+ i slice-size)))))))))
  (define-ffi-generic ffi-generate-input-event (window event))
  (define-ffi-generic ffi-generated-input-event-p (window event))
  (define-ffi-generic ffi-within-renderer-thread (browser thunk)
    (:method ((browser t) thunk)
      (declare (ignore browser))
      (funcall thunk)))
  (define-ffi-generic ffi-kill-browser (browser))
  (define-ffi-generic ffi-initialize (browser urls startup-timestamp)
    (:method ((browser t) urls startup-timestamp)
      (finalize browser urls startup-timestamp)))
  (define-ffi-generic ffi-inspector-show (buffer))
  (define-ffi-generic ffi-print-status (window text))
  (define-ffi-generic ffi-print-message (window message)
    (:documentation "Print MESSAGE which is an HTML string."))
  (define-ffi-generic ffi-display-url (text))
  
  (define-ffi-generic ffi-buffer-cookie-policy (buffer)
    (:documentation "Return the cookie 'accept' policy, one of of`:always',
  
negative.code:       ;; (trivial-clipboard:text (trivial-clipboard:text))
        (let ((input (%copy)))
          (copy-to-clipboard input)
          (echo "Text copied: ~s" input))))
    (:documentation "Copy selected text in BUFFER to the system clipboard."))
  
  (define-ffi-generic ffi-buffer-paste (buffer)
    (:method ((buffer t))
      (with-current-buffer buffer
        (%paste)))
    (:documentation "Paste the last clipboard entry into BUFFER."))
  
  (define-ffi-generic ffi-buffer-cut (buffer)
    (:method ((buffer t))
      (with-current-buffer buffer
        (let ((input (%cut)))
          (when input
            (copy-to-clipboard input)
            (echo "Text cut: ~s" input)))))
    (:documentation "Cut selected text in BUFFER to the system clipboard."))
  
  (define-ffi-generic ffi-buffer-select-all (buffer)
    (:method ((buffer t))
      (with-current-buffer buffer
        (%select-all)))
    (:documentation "Select all text in BUFFER web view."))
  
  (define-ffi-generic ffi-buffer-undo (buffer)
    (:method ((buffer t))
      (echo-warning "Undoing edits is not yet implemented for this renderer."))
    (:documentation "Undo the last text edit performed in BUFFER's web view."))
  
  (define-ffi-generic ffi-buffer-redo (buffer)
    (:method ((buffer t))
      (echo-warning "Redoing edits is not yet implemented for this renderer."))
    (:documentation "Redo the last undone text edit performed in BUFFER's web view."))
  