*scratch*.el

;; Google translate interactive
(define-derived-mode google-translate-interactive-mode
  text-mode "Google Translate"
  (defun translate-word-and-new-line ()
    "Shows translation of current work in help buffer and inserts
new line after it"
    (interactive)
    (let ((buffer (current-buffer)) )
      (move-beginning-of-line nil)
      (set-mark-command nil)
      (move-end-of-line nil)
      (google-translate-at-point)
      (switch-to-buffer buffer)
      (evil-insert-newline-below)
      ))

  (use-local-map (make-sparse-keymap))
  (local-set-key (kbd "RET") 'translate-word-and-new-line)
  (define-key evil-normal-state-map (kbd "RET") 'google-translate-at-point))

(defun my/google-translate-repl ()
  (interactive)
  (let ((buffer (get-buffer-create "Google Translate REPL")))
    (switch-to-buffer buffer)
    (google-translate-interactive-mode)
    (evil-insert-state)
    (goto-char (buffer-end 1))
    ))


(evil-leader/set-key "x g i" 'my/google-translate-repl)