anchor.diff:  ;;         (str:replace-all "_" "" (string-downcase result))
   ;;         result)))
   
  -;; (declaim (ftype (function (list &optional gdk:gdk-event) list) translate-modifiers))
  -;; (defun translate-modifiers (modifier-state &optional event)
  -;;   "Return list of modifiers fit for `keymap:make-key'.
  -;; See `gobject-gtk-browser's `modifier-translator' slot."
  -;;   (declare (ignore event))
  -;;   (let ((plist '(:control-mask "control"
  -;;                  :mod1-mask "meta"
  -;;                  :shift-mask "shift"
  -;;                  :super-mask "super"
  -;;                  :hyper-mask "hyper")))
  -;;     (delete nil (mapcar (lambda (mod) (getf plist mod)) modifier-state))))
  +(defun translate-modifiers (modifier-state &optional event)
  +  "Return list of modifiers fit for `keymap:make-key'.
  +See `gobject-gtk-browser's `modifier-translator' slot."
  +  (declare (ignore event))
  +  (let ((plist '(:control-mask "control"
  +                 :mod1-mask "meta"
  +                 :shift-mask "shift"
  +                 :super-mask "super"
  +                 :hyper-mask "hyper")))
  +    (delete nil (mapcar (lambda (mod) (getf plist mod)) modifier-state))))
   
   ;; (defun key-event-modifiers (key-event)
   ;;   (gdk:gdk-event-key-state key-event))
  
positive.code: 
  (define-class gobject-gtk-browser ()
    ((modifier-translator
      'translate-modifiers
      :documentation "Function that returns a list of modifiers
  understood by `keymap:make-key'.")
     (gir-gtk (gir:ffi "Gtk"))
  
negative.code: ;;     (url (print-message (str:concat "→ " (quri:url-decode url :lenient t)))
  ;;          (setf (url-at-point buffer) (quri:uri url)))))
  
  (define-ffi-method ffi-window-make ((browser gobject-gtk-browser))
    "Make a window."
    (make-instance 'user-window))
  
  ;; (define-ffi-method ffi-window-to-foreground ((window gobject-gtk-window))
  ;;   "Show window in foreground."
  