e2e532bb49
Also defined aliases for backward compatibility with `usedp` functions.
102 lines
2.9 KiB
EmacsLisp
102 lines
2.9 KiB
EmacsLisp
;;; funcs.el --- Javascript Layer functions File for Spacemacs
|
||
;;
|
||
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Muneeb Shaikh <muneeb@reversehack.in>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
|
||
;; js-doc
|
||
|
||
(defun spacemacs/js-doc-require ()
|
||
"Lazy load js-doc"
|
||
(require 'js-doc))
|
||
(add-hook 'js2-mode-hook 'spacemacs/js-doc-require)
|
||
|
||
(defun spacemacs/js-doc-set-key-bindings (mode)
|
||
"Setup the key bindings for `js2-doc' for the given MODE."
|
||
(spacemacs/declare-prefix-for-mode mode "mrd" "documentation")
|
||
(spacemacs/set-leader-keys-for-major-mode mode
|
||
"rdb" 'js-doc-insert-file-doc
|
||
"rdf" (if (configuration-layer/package-used-p 'yasnippet)
|
||
'js-doc-insert-function-doc-snippet
|
||
'js-doc-insert-function-doc)
|
||
"rdt" 'js-doc-insert-tag
|
||
"rdh" 'js-doc-describe-tag))
|
||
|
||
;; js-refactor
|
||
|
||
(defun spacemacs/js2-refactor-require ()
|
||
"Lazy load js2-refactor"
|
||
(require 'js2-refactor))
|
||
|
||
|
||
;; coffee
|
||
|
||
(defun javascript/coffee-indent ()
|
||
(if (coffee-line-wants-indent)
|
||
;; We need to insert an additional tab because
|
||
;; the last line was special.
|
||
(coffee-insert-spaces (+ (coffee-previous-indent) coffee-tab-width))
|
||
;; otherwise keep at the same indentation level
|
||
(coffee-insert-spaces (coffee-previous-indent))))
|
||
|
||
|
||
;; skewer
|
||
|
||
(defun spacemacs/skewer-start-repl ()
|
||
"Attach a browser to Emacs and start a skewer REPL."
|
||
(interactive)
|
||
(run-skewer)
|
||
(skewer-repl))
|
||
|
||
(defun spacemacs/skewer-load-buffer-and-focus ()
|
||
"Execute whole buffer in browser and switch to REPL in insert state."
|
||
(interactive)
|
||
(skewer-load-buffer)
|
||
(skewer-repl)
|
||
(evil-insert-state))
|
||
|
||
(defun spacemacs/skewer-eval-defun-and-focus ()
|
||
"Execute function at point in browser and switch to REPL in insert state."
|
||
(interactive)
|
||
(skewer-eval-defun)
|
||
(skewer-repl)
|
||
(evil-insert-state))
|
||
|
||
(defun spacemacs/skewer-eval-region (beg end)
|
||
"Execute the region as JavaScript code in the attached browser."
|
||
(interactive "r")
|
||
(skewer-eval (buffer-substring beg end) #'skewer-post-minibuffer))
|
||
|
||
(defun spacemacs/skewer-eval-region-and-focus (beg end)
|
||
"Execute the region in browser and swith to REPL in insert state."
|
||
(interactive "r")
|
||
(spacemacs/skewer-eval-region beg end)
|
||
(skewer-repl)
|
||
(evil-insert-state))
|
||
|
||
|
||
;; tern
|
||
|
||
(defun spacemacs//set-tern-key-bindings (mode)
|
||
"Set the key bindings for tern and the given MODE."
|
||
(add-to-list (intern (format "spacemacs-jump-handlers-%S" mode))
|
||
'(tern-find-definition :async t))
|
||
(spacemacs/set-leader-keys-for-major-mode mode
|
||
"rrV" 'tern-rename-variable
|
||
"hd" 'tern-get-docs
|
||
"gG" 'tern-find-definition-by-name
|
||
(kbd "C-g") 'tern-pop-find-definition
|
||
"ht" 'tern-get-type))
|
||
|
||
(defun spacemacs//tern-detect ()
|
||
"Detect tern binary and warn if not found."
|
||
(let ((found (executable-find "tern")))
|
||
(unless found
|
||
(spacemacs-buffer/warning "tern binary not found!"))
|
||
found))
|