 ;; Highlight yanked region
 (defun meain/evil-yank-advice (orig-fn beg end &rest args)
   "Advice to be added to `evil-yank' to highlight yanked region.  Pass ORIG-FN, BEG, END, TYPE, ARGS."
-  (pulse-momentary-highlight-region beg end 'company-template-field)
+  (pulse-momentary-highlight-region beg end 'mode-line)
   (apply orig-fn beg end args))
 (advice-add 'evil-yank :around 'meain/evil-yank-advice)
 

;; consult-interface for company for use in `sql-mode'
(use-package consult-company
  :straight t
  :defer t
  :after (consult company)
  :commands (consult-company))

    (cond
     ((equal "!" pattern)
      '(orderless-literal . ""))
     ((string-suffix-p "!" pattern)
      `(orderless-without-literal . ,(substring pattern 0 -1)))
     ((string-prefix-p "!" pattern)
      `(orderless-without-literal . ,(substring pattern 1)))))

