(require 'evil)
(require 'eiffel)

(define-minor-mode evil-eiffel-mode
  "Buffer local minor mode for evil-eiffel"
  :init-value nil
  :lighter "EvilEiffel"
  :keymap (make-sparse-keymap)
  :group 'evil-eiffel)

(add-hook 'eiffel-mode-hook 'evil-eiffel-mode)

(mapc #'(lambda (state) 
          (evil-define-key state evil-eiffel-mode-map
            (kbd "M-c") 'eif-compile
            (kbd "M-r") 'eif-run
            (kbd "M-d") 'eif-debug
            (kbd "M-o") 'eif-set-compile-options
            (kbd "M-s") 'eif-short
            (kbd "M-e") 'eif-next-error
            ))
      '(normal insert))

(provide 'evil-eiffel)