Untitled

(defun my-clojure-mode-hook ()
  "Hook for Clojure mode"
  (def-slime-selector-method ?j "most recently visited clojure-mode buffer."
    (slime-recently-visited-buffer 'clojure-mode))
  (define-key slime-mode-map (kbd "<return>") 'newline-and-indent) ;Устанавливает идентацию при переходе на новую строку
  (define-key slime-mode-map (kbd "C-j") 'newline)
  (define-key slime-mode-map (kbd "C-c d") 'slime-java-describe) ;Вызов slime-java-describe по C-c d
  (define-key slime-repl-mode-map (kbd "C-c d") 'slime-java-describe)
  (define-key slime-mode-map (kbd "C-c D") 'slime-javadoc);Вызов slime-javadoc по C-c D
  (define-key slime-repl-mode-map (kbd "C-c D") 'slime-javadoc)
  (turn-on-eldoc-mode)
  (set (make-local-variable 'slime-lisp-implementations)
       (list (assoc 'clojure slime-lisp-implementations)))
  )
(add-hook 'clojure-mode-hook 'my-clojure-mode-hook)