anchor.diff:    "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))))
  +      (let* ((password-name (first (prompt
  +                                    :prompt "Name of password"
  +                                    :sources (make-instance 'prompter:raw-source))))
  +             (service (first (prompt
  +                              :prompt "Service"
  +                              :sources (make-instance 'prompter:raw-source)))))
           (handler-case
               (password:clip-password (password-interface buffer)
                                       :password-name password-name
  
positive.code:   (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)))))
            (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.")))
  
negative.code:   (find-if (alex:compose #'password:executable #'make-instance #'user-class-name)
             password:*interfaces*))
  
  (define-class password-source (prompter:source)
    ((prompter:name "Passwords")
     (buffer :accessor buffer :initarg :buffer)
     (password-instance :accessor password-instance :initarg :password-instance)
     (prompter:must-match-p t)
     (prompter:constructor
      (lambda (source)
        (password:list-passwords (password-instance source))))))
  
  (defun password-debug-info ()
    (alex:when-let ((interface (password-interface (current-buffer))))
  