anchor.diff:    (password-debug-info)
     (if (password-interface buffer)
         (with-password (password-interface buffer)
  -        (let ((password-name (prompt-minibuffer
  -                              :suggestion-function
  -                              (password-suggestion-filter
  -                               (password-interface buffer)))))
  +        (let ((password-name (first (prompt
  +                                     :sources (list (make-instance 'password-source
  +                                                                   :buffer buffer
  +                                                                   :password-instance (password-interface buffer)))))))
             (password:clip-password (password-interface buffer) :password-name password-name)
             (echo "Password saved to clipboard for ~a seconds." (password:sleep-timer (password-interface buffer)))))
         (echo-warning "No password manager found.")))
  
positive.code:   "Copy password prompting for all the details without suggestion."
    (password-debug-info)
    (if (password-interface buffer)
        (let* ((password-name (prompt
                               :prompt "Name of password"
                               :sources (make-instance 'prompter:raw-source)))
               (service (prompt
                         :prompt "Service"
                         :sources (make-instance 'prompter:raw-source))))
          (handler-case
              (password:clip-password (password-interface buffer)
                                      :password-name password-name
  
negative.code:     ((and (password-interface buffer)
            (has-method-p (password-interface buffer)
                          #'password:save-password))
       (let* ((password-name (first (prompt
                                     :prompt "Name for new password"
                                     :input (or (quri:uri-domain (url (current-buffer))) "")
                                     :sources (make-instance 'prompter:raw-source))))
              (new-password (first (prompt
                                    :invisible-input-p t
                                    :prompt "New password (leave empty to generate)"
                                    :sources (make-instance 'prompter:raw-source)))))
         (password:save-password (password-interface buffer)
                                 :password-name password-name
                                 :password new-password)))
  