 ;; 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)
 

;; Company quickhelp
(use-package company-quickhelp ; Show help in tooltip
  :straight t
  :after company
  :config
  (company-quickhelp-mode)
  (setq pos-tip-foreground-color "#000000"
        pos-tip-background-color "#ffffff"))

;; Completions (core framework)
(use-package vertico

         (snippet (string-join (cdr (butlast (split-string snippet-with-markers "\n"))) "\n"))
         (snippet-runner (car (last (split-string (car (split-string snippet-with-markers "\n")) "[ `]+")))))
    (setq temp-source-file (make-temp-file "thing-to-run"))
    (pulse-momentary-highlight-region start end 'mode-line)
    (message "Code: %s" snippet)
    (message "Runner: %s" snippet-runner)
    (append-to-file snippet nil temp-source-file)
