anchor.diff:     :value command
      :attributes (nyxt::command-attributes command (parent-prompt-buffer source))))
   
  -(define-command run-prompt-buffer-command (&optional (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt run-prompt-buffer-command ()
     "Prompt for a command to call in PROMPT-BUFFER."
     (let ((command (first (prompt
                            :prompt "Command to run in current prompt buffer"
  
positive.code:     ;; decides when redraw, it has more control.
      (prompt-render-suggestions prompt-buffer)))
  
  (define-command select-previous-page (&key (prompt-buffer (current-prompt-buffer))
                                        (steps 1))
    "Select entry by STEPS previous page in prompt buffer.
  If STEPS is negative, go to next pages instead."
    (select-next-page :prompt-buffer prompt-buffer :steps (- steps)))
  
  (define-command return-selection (&optional (prompt-buffer (current-prompt-buffer)))
    "Have the PROMT-BUFFER return the selection, then quit."
    (prompter:return-selection prompt-buffer))
  
  
negative.code:    (prompter:constructor (prompt-buffer-actions))
     (prompter:suggestion-maker 'make-action-suggestion)))
  
  (define-command-prompt return-selection-over-action ()
    "Prompt for an action to run over PROMPT-BUFFER selection."
    (let ((action (first (prompt
                          :prompt "Action to run on selection"
  