anchor.diff:               (query-buffer
                 :query input
                 :buffer buffer
  -              :case-insensitive-p case-insensitive-p
  +              :case-sensitive-p case-sensitive-p
                 :callback (lambda (result)
                             (let* ((matches (matches-from-json
                                              result buffer multi-buffer)))
  
positive.code: 
    (defun get-substring-indices (query string)
      "Get the indices of all matching substrings."
      (let ((rgx (ps:new (|RegExp| query (if (ps:lisp case-insensitive-p) "i" "")))))
        (loop with index = 0
              until (= index -1)
              do (setf index (ps:chain string (search rgx)))
  
negative.code:                       :completion-function
                        #'(lambda (input)
                            (unless explicit-case-p
                              (setf case-sensitive-p (str:downcasep input)))
                            (match-completion-function input buffers case-sensitive-p))
                        :changed-callback
                        (let ((subsequent-call nil))
                          (lambda ()
  