anchor.diff:    (command :string))
   (export 'webkit-web-view-execute-editing-command)
   
  +(defcfun "webkit_web_view_execute_editing_command_with_argument" :void
  +  (web-view (g-object webkit-web-view))
  +  (command :string)
  +  (argument :string))
  +(export 'webkit-web-view-execute-editing-command-with-arguments)
  +
   (cffi:defcallback can-execute-command-checked
       :void ((source-object :pointer) (result :pointer) (user-data :pointer))
     (let ((callback (find (cffi:pointer-address user-data) callbacks :key (function callback-id))))
  
positive.code: 
  (defparameter +webkit-editing-command-redo+ "Redo") ; XXX: WEBKIT_EDITING_COMMAND_REDO
  (export '+webkit-editing-command-redo+)
  
  (define-webkit-class "WebKitWebView"
    (:superclass gtk-widget
  
negative.code: (defparameter +webkit-editing-command-paste+ "Paste") ; XXX: WEBKIT_EDITING_COMMAND_PASTE
  (export '+webkit-editing-command-paste+)
  
  ;; XXX: WEBKIT_EDITING_COMMAND_PASTE_AS_PLAIN_TEXT
  #+webkit2-paste-plaintext
  (defparameter +webkit-editing-command-paste-as-plain-text+ "PasteAsPlainText")
  #+webkit2-paste-plaintext
  (export '+webkit-editing-command-paste-as-plain-text+)
  
  (defparameter +webkit-editing-command-select-all+ "SelectAll") ; XXX: WEBKIT_EDITING_COMMAND_SELECT_ALL
  (export '+webkit-editing-command-select-all+)
  
  