anchor.diff:    "List files of select packages."
     (assert-package-manager)
     (let* ((packages-or-outputs (if (typep (ospm:manager) 'ospm:guix-manager)
  -                                  (prompt-minibuffer
  -                                   :suggestion-function (os-package-output-suggestion-filter)
  -                                   :input-prompt "List files of OS package outputs(s)"
  -                                   :multi-selection-p t)
  -                                  (prompt-minibuffer
  -                                   :suggestion-function (os-package-suggestion-filter)
  -                                   :input-prompt "List files of OS package(s)"
  -                                   :multi-selection-p t)))
  +                                  (prompt
  +                                   :sources '(os-package-output-source)
  +                                   :prompt "List files of OS package outputs(s)")
  +                                  (prompt
  +                                   :sources '(os-package-source)
  +                                   :prompt "List files of OS package(s)")))
            (buffer (or (find-buffer 'os-package-manager-mode)
                        (nyxt/os-package-manager-mode:os-package-manager-mode
                         :activate t
  
positive.code: (define-command switch-os-generation ()
    "Switch generation of selected profile."
    (assert-package-manager)
    (let* ((profile (prompt-minibuffer
                     :suggestion-function (os-profile-suggestion-filter
                                           :include-manager-p t)
                     :input-prompt "Target profile"))
           (generation (prompt-minibuffer
                        :suggestion-function (os-generation-suggestion-filter profile)
                        :input-prompt "Switch to generation")))
      (operate-os-package "Switching to generation..." #'ospm:switch-generation
                          profile generation)))
  
  (define-command delete-os-generations ()
    "Delete generations of selected profile."
    (assert-package-manager)
    (let* ((profile (prompt-minibuffer
                     :suggestion-function (os-profile-suggestion-filter
                                           :include-manager-p t)
                     :input-prompt "Target profile"))
           (generations (prompt-minibuffer
                         :suggestion-function (os-generation-suggestion-filter profile)
                         :input-prompt "Delete generations"
                         :multi-selection-p t)))
      (operate-os-package "Deleting generations..." #'ospm:delete-generations
                          profile generations)))
  
  
negative.code:               " (current)"
                "")))
  
  (define-class os-package-source (prompter:source)
    ((prompter:name "Packages")
     (prompter:must-match-p t)
     (prompter:constructor (ospm:list-packages))))
  
  (define-class os-manifest-source (prompter:source)
    ((prompter:name "Manifests")
     (prompter:must-match-p t)
     (prompter:constructor (mapcar #'namestring (ospm:list-manifests)))))
  
  (define-class os-package-output-source (prompter:source)
    ((prompter:name "Package Outputs")
     (prompter:must-match-p t)
     (prompter:constructor (ospm:list-package-outputs))))
  
  (define-class os-installed-package-source (prompter:source)
    ((prompter:name "Installed Packages")
     (prompter:must-match-p t)
     (profile)
     (prompter:constructor
      (lambda (source)
        (ospm:list-packages (profile source)))))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-class os-profile-source (prompter:source)
    ((prompter:name "Profiles")
     (prompter:must-match-p t)
     (include-manager-p)
     (prompter:constructor
      (lambda (source) (ospm:list-profiles
                        :include-manager-p (include-manager-p source)))))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-class os-generation-source (prompter:source)
    ((prompter:name "Packages")
     (prompter:must-match-p t)
     (profile)
     (prompter:constructor
      (lambda (source) 
        (ospm:list-generations (profile source)))))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (defun %describe-os-package (packages)
    (let* ((buffer (or (find-buffer 'os-package-manager-mode)
  