d52883fc56
Because the setup functions run after local vars are set, setting jump handlers needs to happen directly. Otherwise setting them only applies to the next typescript file that is opened, which may or may not even have the same backend. Also prevents lsp jump handlers from being installed unless the backend is lsp.
156 lines
5.4 KiB
EmacsLisp
156 lines
5.4 KiB
EmacsLisp
;;; funcs.el --- TypeScript Layer functions File for Spacemacs
|
||
;;
|
||
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
|
||
;; backend
|
||
|
||
(defun spacemacs//typescript-setup-backend ()
|
||
"Conditionally setup typescript backend."
|
||
(pcase typescript-backend
|
||
(`tide (spacemacs//typescript-setup-tide))
|
||
(`lsp (spacemacs//typescript-setup-lsp))))
|
||
|
||
(defun spacemacs//typescript-setup-company ()
|
||
"Conditionally setup company based on backend."
|
||
(pcase typescript-backend
|
||
(`tide (spacemacs//typescript-setup-tide-company))
|
||
(`lsp (spacemacs//typescript-setup-lsp-company))))
|
||
|
||
(defun spacemacs//typescript-setup-eldoc ()
|
||
"Conditionally setup eldoc based on backend."
|
||
(pcase typescript-backend
|
||
(`tide (spacemacs//typescript-setup-tide-eldoc))
|
||
(`lsp (spacemacs//typescript-setup-lsp-eldoc))))
|
||
|
||
|
||
;; tide
|
||
|
||
(defun spacemacs//typescript-setup-tide ()
|
||
"Setup tide backend."
|
||
(progn
|
||
(evilified-state-evilify tide-references-mode tide-references-mode-map
|
||
(kbd "C-k") 'tide-find-previous-reference
|
||
(kbd "C-j") 'tide-find-next-reference
|
||
(kbd "C-l") 'tide-goto-reference)
|
||
(tide-setup)))
|
||
|
||
(defun spacemacs//typescript-setup-tide-company ()
|
||
"Setup tide auto-completion."
|
||
(spacemacs|add-company-backends
|
||
:backends company-tide
|
||
:modes typescript-mode typescript-tsx-mode
|
||
:variables
|
||
company-minimum-prefix-length 2)
|
||
(company-mode))
|
||
|
||
(defun spacemacs//typescript-setup-tide-eldoc ()
|
||
"Setup eldoc for tide."
|
||
(eldoc-mode))
|
||
|
||
|
||
;; lsp
|
||
|
||
(defun spacemacs//typescript-setup-lsp ()
|
||
"Setup lsp backend."
|
||
(if (configuration-layer/layer-used-p 'lsp)
|
||
(progn
|
||
(lsp-javascript-typescript-enable))
|
||
(message (concat "`lsp' layer is not installed, "
|
||
"please add `lsp' layer to your dotfile."))))
|
||
|
||
(defun spacemacs//typescript-setup-lsp-company ()
|
||
"Setup lsp auto-completion."
|
||
(if (configuration-layer/layer-used-p 'lsp)
|
||
(progn
|
||
(spacemacs|add-company-backends
|
||
:backends company-lsp
|
||
:modes typescript-mode typescript-tsx-mode
|
||
:variables company-minimum-prefix-length 2
|
||
:append-hooks nil
|
||
:call-hooks t)
|
||
(company-mode)
|
||
(fix-lsp-company-prefix))
|
||
(message (concat "`lsp' layer is not installed, "
|
||
"please add `lsp' layer to your dotfile."))))
|
||
|
||
(defun spacemacs//typescript-setup-lsp-eldoc ()
|
||
"Setup eldoc for LSP."
|
||
(eldoc-mode))
|
||
|
||
|
||
;; Others
|
||
|
||
(defun spacemacs/typescript-tsfmt-format-buffer ()
|
||
"Format buffer with tsfmt."
|
||
(interactive)
|
||
(if (executable-find "tsfmt")
|
||
(let* ((extension (file-name-extension (or buffer-file-name "tmp.ts") t))
|
||
(tmpfile (make-temp-file "~fmt-tmp" nil extension))
|
||
(coding-system-for-read 'utf-8)
|
||
(coding-system-for-write 'utf-8)
|
||
(outputbuf (get-buffer-create "*~fmt-tmp.ts*")))
|
||
(unwind-protect
|
||
(progn
|
||
(with-current-buffer outputbuf (erase-buffer))
|
||
(write-region nil nil tmpfile)
|
||
(if (zerop (apply 'call-process "tsfmt" nil outputbuf nil
|
||
(list (format
|
||
"--baseDir='%s' --"
|
||
default-directory)
|
||
tmpfile)))
|
||
(let ((p (point)))
|
||
(save-excursion
|
||
(with-current-buffer (current-buffer)
|
||
(erase-buffer)
|
||
(insert-buffer-substring outputbuf)))
|
||
(goto-char p)
|
||
(message "formatted.")
|
||
(kill-buffer outputbuf))
|
||
(progn
|
||
(message "Formatting failed!")
|
||
(display-buffer outputbuf)))
|
||
(progn
|
||
(delete-file tmpfile)))))
|
||
(error "tsfmt not found. Run \"npm install -g typescript-formatter\"")))
|
||
|
||
(defun spacemacs/typescript-format ()
|
||
"Call formatting tool specified in `typescript-fmt-tool'."
|
||
(interactive)
|
||
(cond
|
||
((eq typescript-fmt-tool 'typescript-formatter)
|
||
(call-interactively 'spacemacs/typescript-tsfmt-format-buffer))
|
||
((eq typescript-fmt-tool 'tide)
|
||
(call-interactively 'tide-format))
|
||
((eq typescript-fmt-tool 'prettier)
|
||
(call-interactively 'prettier-js))
|
||
(t (error (concat "%s isn't valid typescript-fmt-tool value."
|
||
" It should be 'tide, 'typescript-formatter or 'prettier."
|
||
(symbol-name typescript-fmt-tool))))))
|
||
|
||
(defun spacemacs/typescript-fmt-before-save-hook ()
|
||
(add-hook 'before-save-hook 'spacemacs/typescript-format t t))
|
||
|
||
(defun spacemacs/typescript-open-region-in-playground (start end)
|
||
"Open selected region in http://www.typescriptlang.org/Playground
|
||
If nothing is selected - open the whole current buffer."
|
||
(interactive (if (use-region-p)
|
||
(list (region-beginning) (region-end))
|
||
(list (point-min) (point-max))))
|
||
(browse-url (concat "http://www.typescriptlang.org/Playground#src="
|
||
(url-hexify-string (buffer-substring-no-properties start end)))))
|
||
|
||
(defun spacemacs/typescript-yasnippet-setup ()
|
||
(yas-activate-extra-mode 'js-mode))
|
||
|
||
(defun spacemacs/typescript-jump-to-type-def ()
|
||
(interactive)
|
||
(tide-jump-to-definition t))
|