anchor.diff:      (:forward (select-next prompt-buffer))
       (:backward (select-previous prompt-buffer))))
   
  -(define-command toggle-mark-backwards (&key
  -                                       (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt toggle-mark-backwards ()
     "Mark selection.
   Only available if pomrpt-buffer `multi-selection-p' is non-nil.  DIRECTION can be
   `:forward' or `:backward' and specifies which suggestion to select next."
     (toggle-mark :prompt-buffer prompt-buffer
                  :direction :backward))
   
  -(define-command mark-all (&optional (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt mark-all ()
     "Mark all visible suggestions in current source.
   Only available if `multi-selection-p' is non-nil."
     (prompter:mark-all prompt-buffer)
     (prompt-render-suggestions prompt-buffer))
   
  -(define-command unmark-all (&optional (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt unmark-all ()
     "Unmark all visible suggestions in current source.
   Only available if `multi-selection-p' is non-nil."
     (prompter:unmark-all prompt-buffer)
     (prompt-render-suggestions prompt-buffer))
   
  -(define-command toggle-mark-all (&optional
  -                                 (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt toggle-mark-all ()
     "Toggle the mark over all visible suggestions in current source.
   Only available if `multi-selection-p' is non-nil."
     (prompter:toggle-mark-all prompt-buffer)
     (prompt-render-suggestions prompt-buffer))
   
  -(define-command copy-selection (&optional (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt copy-selection ()
     "Copy default property of selection to clipboard."
     (let* ((marks (prompter:all-marks prompt-buffer))
            (props (if marks
  
positive.code:   ;; decides when redraw, it has more control.
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-previous (&optional (prompt-buffer (current-prompt-buffer)))
    "Select next entry in prompt buffer."
    (prompter:select-previous prompt-buffer)
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-first (&optional (prompt-buffer (current-prompt-buffer)))
    "Select first entry in prompt buffer."
    (prompter:select-first prompt-buffer)
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-last (&optional (prompt-buffer (current-prompt-buffer)))
    "Select first entry in prompt buffer."
    (prompter:select-last prompt-buffer)
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-next-source (&optional (prompt-buffer (current-prompt-buffer)))
    "Select next soruce in prompt buffer."
    (prompter:select-next-source prompt-buffer)
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-previous-source (&optional (prompt-buffer (current-prompt-buffer)))
    "Select previous source in prompt buffer."
    (prompter:select-previous-source prompt-buffer)
    (prompt-render-suggestions prompt-buffer))
  
  (define-command select-next-page (&key (prompt-buffer (current-prompt-buffer))
                                    (steps 1))
    "Select entry by STEPS next page in prompt buffer.
  If STEPS is negative, go to previous pages instead."
    (unless (= 0 steps)
  
negative.code:             (nyxt::set-prompt-buffer-input input)))
          (echo "Prompt buffer has no history."))))
  
  (define-command-prompt insert-selection ()
    "Insert current selection default property in the prompt buffer input."
    (alex:when-let ((selection (prompter:attributes-default
                                (prompter:selected-suggestion prompt-buffer))))
  