Fixes the problem of certain functions adding input before the cursor when using evil mode in emacs

evil-insert-fix.el

  (defun my:is-end-of-line ()
    "Compare point with end of line."
    (let* ((pos (current-column))
           (end-pos (save-excursion
                      (evil-end-of-line)
                      (current-column))))
      (eq pos end-pos)))

  (defun my:compare-with-end-of-word ()
    "Compare point with end of word."
    (let* ((pos (current-column))
           (end-pos (save-excursion
                      (evil-backward-word-begin)
                      (evil-forward-word-end)
                      (current-column))))
      (- pos end-pos)))

  (defun my:point-is-space ()
    "Check if point is whitespace."
    (char-equal ?\s (char-after)))

  (defun my:insert-after (func)
    "Run FUNC after the end of word, ignoring whitespace."
    (interactive)
    (let ((relative-loc (my:compare-with-end-of-word)))
      (cond ((my:is-end-of-line)
             (end-of-line)
             (call-interactively func))
            ((eq 0 relative-loc)
             (evil-forward-char)
             (call-interactively func))
            ((and (> 0 relative-loc) (not (my:point-is-space)))
             (evil-forward-word-end)
             (if (my:is-end-of-line)
                 (end-of-line)
               (evil-forward-char))
             (call-interactively func))
            (t
             (call-interactively func)))))

;; Example usage
  (defun my:reftex-citation ()
    "Custom reftex to ensure citations appear at the end of words."
    (interactive)
    (my:insert-after 'reftex-citation))