Rename moved scala functions

Functions under the ensime layer should start with `ensime/'
This commit is contained in:
Tor Hedin Brønner 2016-11-14 18:06:48 +01:00 committed by syl20bnr
parent ab0ec8a777
commit 5199ddbfcf
2 changed files with 17 additions and 17 deletions

View file

@ -15,7 +15,7 @@
(autoload 'ensime-config-find "ensime-config") (autoload 'ensime-config-find "ensime-config")
(autoload 'projectile-project-p "projectile") (autoload 'projectile-project-p "projectile")
(defun scala/configure-ensime () (defun ensime/configure ()
"Ensure the file exists before starting `ensime-mode'." "Ensure the file exists before starting `ensime-mode'."
(cond (cond
((and (buffer-file-name) (file-exists-p (buffer-file-name))) ((and (buffer-file-name) (file-exists-p (buffer-file-name)))
@ -23,9 +23,9 @@
((buffer-file-name) ((buffer-file-name)
(add-hook 'after-save-hook (lambda () (ensime-mode +1)) nil t)))) (add-hook 'after-save-hook (lambda () (ensime-mode +1)) nil t))))
(defun scala/maybe-start-ensime () (defun ensime/maybe-start ()
(when (buffer-file-name) (when (buffer-file-name)
(let ((ensime-buffer (scala/ensime-buffer-for-file (buffer-file-name))) (let ((ensime-buffer (ensime/buffer-for-file (buffer-file-name)))
(file (ensime-config-find-file (buffer-file-name))) (file (ensime-config-find-file (buffer-file-name)))
(is-source-file (s-matches? (rx (or "/src/" "/test/")) (buffer-file-name)))) (is-source-file (s-matches? (rx (or "/src/" "/test/")) (buffer-file-name))))
@ -34,7 +34,7 @@
(save-window-excursion (save-window-excursion
(ensime))))))) (ensime)))))))
(defun scala/ensime-buffer-for-file (file) (defun ensime/buffer-for-file (file)
"Find the Ensime server buffer corresponding to FILE." "Find the Ensime server buffer corresponding to FILE."
(let ((default-directory (file-name-directory file))) (let ((default-directory (file-name-directory file)))
(-when-let (project-name (projectile-project-p)) (-when-let (project-name (projectile-project-p))
@ -43,7 +43,7 @@
(s-contains? (file-name-nondirectory project-name) bufname))) (s-contains? (file-name-nondirectory project-name) bufname)))
(buffer-list))))) (buffer-list)))))
(defun scala/enable-eldoc () (defun ensime/enable-eldoc ()
(setq-local eldoc-documentation-function (setq-local eldoc-documentation-function
(lambda () (lambda ()
(when (ensime-connected-p) (when (ensime-connected-p)
@ -83,7 +83,7 @@ point to the position of the join."
(when join-pos (when join-pos
(goto-char join-pos)))) (goto-char join-pos))))
(defun scala/completing-dot () (defun ensime/completing-dot ()
"Insert a period and show company completions." "Insert a period and show company completions."
(interactive "*") (interactive "*")
(when (s-matches? (rx (+ (not space))) (when (s-matches? (rx (+ (not space)))
@ -95,20 +95,20 @@ point to the position of the join."
;;; Flyspell ;;; Flyspell
(defun scala/flyspell-verify () (defun ensime/flyspell-verify ()
"Prevent common flyspell false positives in scala-mode." "Prevent common flyspell false positives in scala-mode."
(and (flyspell-generic-progmode-verify) (and (flyspell-generic-progmode-verify)
(not (s-matches? (rx bol (* space) "package") (current-line))))) (not (s-matches? (rx bol (* space) "package") (current-line)))))
(defun scala/configure-flyspell () (defun ensime/configure-flyspell ()
(setq-local flyspell-generic-check-word-predicate 'scala/flyspell-verify)) (setq-local flyspell-generic-check-word-predicate 'ensime/flyspell-verify))
(defun scala/yank-type-at-point () (defun ensime/yank-type-at-point ()
"Yank to kill ring and print short type name at point to the minibuffer." "Yank to kill ring and print short type name at point to the minibuffer."
(interactive) (interactive)
(ensime-type-at-point t nil)) (ensime-type-at-point t nil))
(defun scala/yank-type-at-point-full-name () (defun ensime/yank-type-at-point-full-name ()
"Yank to kill ring and print full type name at point to the minibuffer." "Yank to kill ring and print full type name at point to the minibuffer."
(interactive) (interactive)
(ensime-type-at-point t t)) (ensime-type-at-point t t))

View file

@ -30,11 +30,11 @@
(progn (progn
(spacemacs/register-repl 'ensime 'ensime-inf-switch "ensime") (spacemacs/register-repl 'ensime 'ensime-inf-switch "ensime")
(when scala-enable-eldoc (when scala-enable-eldoc
(add-hook 'ensime-mode-hook 'scala/enable-eldoc)) (add-hook 'ensime-mode-hook 'ensime/enable-eldoc))
(add-hook 'scala-mode-hook 'scala/configure-flyspell) (add-hook 'scala-mode-hook 'ensime/configure-flyspell)
(add-hook 'scala-mode-hook 'scala/configure-ensime) (add-hook 'scala-mode-hook 'ensime/configure)
(when scala-auto-start-ensime (when scala-auto-start-ensime
(add-hook 'scala-mode-hook 'scala/maybe-start-ensime)) (add-hook 'scala-mode-hook 'ensime/maybe-start))
(add-to-list 'spacemacs-jump-handlers-scala-mode 'ensime-edit-definition)) (add-to-list 'spacemacs-jump-handlers-scala-mode 'ensime-edit-definition))
:config :config
(progn (progn
@ -120,8 +120,8 @@
"sr" 'ensime-inf-eval-region "sr" 'ensime-inf-eval-region
"sR" 'ensime-inf-eval-region-switch "sR" 'ensime-inf-eval-region-switch
"yT" 'scala/yank-type-at-point-full-name "yT" 'ensime/yank-type-at-point-full-name
"yt" 'scala/yank-type-at-point "yt" 'ensime/yank-type-at-point
"z" 'ensime-expand-selection-command "z" 'ensime-expand-selection-command
) )