anchor.diff:      (lambda (minibuffer)
         (fuzzy-match (input-buffer minibuffer) password-list))))
   
  +(defun password-debug-info ()
  +  (log:debug "Password interface ~a uses executable ~s."
  +             (when (password-interface *browser*)
  +               (class-name (class-of (password-interface *browser*))))
  +             (match (symbol-name (class-name (class-of (password-interface *browser*))))
  +               ;; With `symbol-name' we remove the package prefix.
  +               ("KEEPASSXC-INTERFACE" password:*keepassxc-cli-program*)
  +               ("SECURITY-INTERFACE" password:*security-cli-program*)
  +               ("PASSWORD-STORE-INTERFACE" password:*password-store-program*))))
  +
   (define-command save-new-password ()
     "Save password to password interface."
  +  (password-debug-info)
     (if (password-interface *browser*)
         (with-result* ((password-name (read-from-minibuffer
                                        (make-minibuffer
  
positive.code: 
  (define-command copy-password-prompt-details ()
    "Copy password prompting for all the details without completion."
    (if (password-interface *browser*)
        (with-result* ((password-name (read-from-minibuffer
                                       (make-minibuffer
  
negative.code:                         :completion-function
                          (password-completion-filter
                           (password-interface *browser*)))))
            (password:clip-password (password-interface *browser*) :password-name password-name)
            (echo "Password saved to clipboard for ~a seconds." password:*sleep-timer*)))
        (echo-warning "No password manager found.")))
  