anchor.diff:                                                  :actions '()
                                                   :multi-selection-p t)))))
       (prompt
  -     :prompt "Search for (3+ characters)"
  +     :prompt "Search text"
        :sources (mapcar (lambda (buffer)
                           (make-instance 'search-buffer-source
                                          :name (format nil "Search ~a" (if (url-empty-p (url buffer))
  
positive.code:                           (remove-focus))))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-command search-buffer (&key case-sensitive-p)
    "Start a search on the current buffer."
    (prompt
     :prompt "Search for (3+ characters)"
     :sources (list
               (make-instance 'search-buffer-source :case-sensitive-p case-sensitive-p))))
  
  (define-command search-buffers (&key case-sensitive-p)
    "Start a search on the current buffer."
  
negative.code: (define-class search-buffer-source (prompter:source)
    ((case-sensitive-p nil)
     (buffer (current-buffer))
     (minimum-search-length 3)
     (prompter:name "Search buffer")
     (prompter:must-match-p nil)
     (prompter:follow-p t)
  