Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
122 lines (104 sloc) 3.87 KB
;; Set up slime-js
;; To install, see
;; This is what I did:
;; npm install swank-js -g
;; M-x package-install slime-js
;; The slime-js version in marmalade requires swank 2010.04.04, or at least
;; one prior to the breaking change in 2011.
;; It also requires js2-mode, which is a good choice in either case. I highly
;; recommend this fork:
;; My settings found in this file also requires js2-refactor:
;; I have included this file in init.el like so:
;; (add-hook 'after-init-hook
;; #'(lambda ()
;; (when (locate-library "slime-js")
;; (require 'setup-slime-js))))
(require 'slime)
(require 'slime-js)
(require 'js2-refactor)
(setq slime-js-target-url "http://localhost:3000")
(setq slime-js-connect-url "http://localhost:8009")
(setq slime-js-starting-url "/")
(setq slime-js-swank-command "swank-js")
(setq slime-js-swank-args '())
(setq slime-js-browser-command "open -a \"Google Chrome\"")
(setq slime-js-browser-jacked-in-p nil)
(add-hook 'js2-mode-hook (lambda () (slime-js-minor-mode 1)))
(defun slime-js-run-swank ()
"Runs the swank side of the equation."
(apply #'make-comint "swank-js" slime-js-swank-command nil slime-js-swank-args))
(defun slime-js-jack-in-node ()
"Start a swank-js server and connect to it, opening a repl."
(sleep-for 1)
(setq slime-protocol-version 'ignore)
(slime-connect "localhost" 4005))
(defun slime-js-jack-in-browser ()
"Start a swank-js server, connect to it, open a repl, open a browser, connect to that."
(sleep-for 2)
(slime-js-set-target-url slime-js-target-url)
(shell-command (concat slime-js-browser-command " " slime-js-connect-url slime-js-starting-url))
(sleep-for 3)
(setq slime-remote-history nil)
(slime-js-sticky-select-remote (caadr (slime-eval '(js:list-remotes))))
(setq slime-js-browser-jacked-in-p t)
(global-set-key [f5] 'slime-js-reload))
(defadvice save-buffer (after save-css-buffer activate)
(when (and slime-js-browser-jacked-in-p (eq major-mode 'css-mode))
(defun js2-eval-friendly-node-p (n)
(or (and (js2-stmt-node-p n) (not (js2-block-node-p n)))
(and (js2-function-node-p n) (js2-function-node-name n))))
(defun slime-js--echo-result (result &rest _)
(message result))
(defun slime-js--replace-with-result (replacement beg end)
(goto-char beg)
(delete-char (- end beg))
(insert replacement)))
(defun slime-js-eval-region (beg end &optional func)
(lexical-let ((func (or func 'slime-js--echo-result))
(beg beg)
(end end))
(slime-flash-region beg end)
(buffer-substring-no-properties beg end)
#'(lambda (s) (funcall func (cadr s) beg end)))))
(defun slime-js-eval-statement (&optional func)
(let ((node (js2r--closest 'js2-eval-friendly-node-p)))
(slime-js-eval-region (js2-node-abs-pos node)
(js2-node-abs-end node)
(defun slime-js-eval-current ()
(if (use-region-p)
(slime-js-eval-region (point) (mark))
(defun slime-js-eval-and-replace-current ()
(if (use-region-p)
(slime-js-eval-region (point) (mark) 'slime-js--replace-with-result)
(slime-js-eval-statement 'slime-js--replace-with-result)))
(define-key slime-js-minor-mode-map (kbd "C-x C-e") 'slime-js-eval-current)
(define-key slime-js-minor-mode-map (kbd "C-c C-e") 'slime-js-eval-and-replace-current)
;; Remove slime-minor-mode from mode line if diminish.el is installed
(when (boundp 'diminish)
(diminish 'slime-js-minor-mode))
(provide 'setup-slime-js)
Something went wrong with that request. Please try again.