anchor.diff:                instance)))
           password:*interfaces*))
   
  +(defvar password-source-actions
  +  (list (make-command clip-password (password-name)
  +          (let ((buffer (buffer (current-source)))
  +                (password-name (first password-name)))
  +            (password:clip-password (password-interface buffer) :password-name password-name)
  +            (echo "Password saved to clipboard for ~a seconds." (password:sleep-timer (password-interface buffer)))))
  +        (make-command clip-username (password-name)
  +          (let ((buffer (buffer (current-source)))
  +                (password-name (first password-name)))
  +            (if (password:clip-username (password-interface buffer) :password-name password-name)
  +                (echo "Username saved to clipboard.")
  +                (echo "No username found."))))))
  +
   (define-class password-source (prompter:source)
     ((prompter:name "Passwords")
      (buffer :accessor buffer :initarg :buffer)
  
positive.code:   (password-debug-info)
    (if (password-interface buffer)
        (with-password (password-interface buffer)
          (let ((password-name (first (prompt
                                       :prompt "Username"
                                       :input (quri:uri-domain (url buffer))
                                       :sources (list (make-instance 'password-source
                                                                     :buffer buffer
                                                                     :password-instance (password-interface buffer)))))))
            (if (password:clip-username (password-interface buffer) :password-name password-name)
                (echo "Username saved to clipboard.")
                (echo "No username found."))))
        (echo-warning "No password manager found.")))
  
negative.code:    (prompter:constructor
      (lambda (source)
        (password:list-passwords (password-instance source))))
     (prompter:actions password-source-actions)))
  
  (defun password-debug-info ()
    (alex:when-let ((interface (password-interface (current-buffer))))
  