(require 'evil)
(require 'cider)
(require 'highlight)
(require 'eval-sexp-fu)

(defun spacemacs//emacs-lisp-eval-region-and-print (beg end)
  (interactive)

  (let* ((raw-result (with-output-to-string
                       (eval-region beg end standard-output)))
         (result (when (>= (length raw-result) 1)
                   (substring raw-result 1 -1))))
    (when result
      (cider--display-interactive-eval-result result end))))

(defvar spacemacs--generic-eval-region-alist
  '((clojure-mode . cider-eval-region)
    (emacs-lisp-mode . spacemacs//emacs-lisp-eval-region-and-print)
    (python-mode . python-shell-send-region)))

(defun spacemacs//get-eval-region-for-current-mode ()
  (interactive)
  (catch 'break
    (dolist (test spacemacs--generic-eval-region-alist)
      (let ((mode (car test))
            (val (cdr test)))
        (when (and (symbolp mode)
                   (derived-mode-p mode)
                   (symbolp val))
          (throw 'break val))))))

(defun spacemacs//generic-eval-region (beg end)
  (interactive)
  (let ((f (spacemacs//get-eval-region-for-current-mode)))
    (when (functionp f)
      (eval-sexp-fu-flash (cons beg end))
      (funcall f beg end))))

(evil-define-operator spacemacs//evil-generic-eval-operator (beg end)
  (spacemacs//generic-eval-region beg end))

;(define-eval-sexp-fu-flash-command spacemacs//generic-eval-region
;  (eval-sexp-fu-flash
;   (save-excursion
;     (let ((graph (evil-inner-paragraph)))
;       (cons (first graph) (second graph))))))

(evil-leader/set-key "meo" 'spacemacs//evil-generic-eval-operator)

;(evil-local-set-key "eo" 'spacemacs//evil-generic-eval-operator)

(comment


 (setq debug-on-error t)

 (setq last-result "fooooo")

 (substring last-result 1 -1)

 (vconcat last-result)

 nil

 (+ 1 2
    (+ 1 2 3)
    3 4)

 (print major-mode)
 (print (spacemacs//get-eval-region-for-current-mode))

 (defadvice text-scale-increase (around all-buffers (arg) activate)
   (dolist (buffer (buffer-list))
     (with-current-buffer buffer
       ad-do-it)))
 )