A JavaScript development environment for Emacs https://indium.readthedocs.io
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

130 lines
4.7 KiB

;;; jade-interaction.el --- Interaction functions for jade.el -*- lexical-binding: t; -*-
;; Copyright (C) 2016 Nicolas Petton
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: javascript, tools
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
(require 'js2-mode)
(require 'map)
(require 'seq)
(require 'jade-backend)
(require 'jade-inspector)
(require 'jade-render)
(defun jade-eval (string &optional callback)
"Evaluate STRING on the current backend.
When CALLBACK is non-nil, evaluate CALLBACK with the result.
When called interactively, prompt the user for the string to be
(interactive "sEvaluate JavaScript: ")
(jade-backend-evaluate (jade-backend) string callback))
(defun jade-eval-buffer ()
"Evaluate the accessible portion of current buffer."
(jade-eval (buffer-string)))
(defun jade-eval-last-node (arg)
"Evaluate the node before point; print in the echo area.
This is similar to `eval-last-sexp', but for JavaScript buffers.
Interactively, with a prefix argument ARG, print output into
current buffer."
(interactive "P")
(jade-eval (js2-node-string (jade-interaction-node-before-point))
(lambda (value _error)
(let ((description (jade-description-string value)))
(if arg
(insert description))
(message description))))))
(defun jade-inspect-last-node ()
"Evaluate and inspect the node before point."
(jade-eval (js2-node-string (jade-interaction-node-before-point))
(lambda (result _error)
(jade-inspector-inspect result))))
(defun jade-interaction-node-before-point ()
"Return the node before point to be evaluated."
(forward-comment -1)
(while (looking-back "[:,]" nil)
(backward-char 1))
(backward-char 1)
(let* ((node (js2-node-at-point))
(parent (js2-node-parent node)))
;; Heuristics for finding the node to evaluate: if the parent of the node
;; before point is a prop-get node (i.e. foo.bar) and if it starts before
;; the current node, meaning that the point is on the node following the
;; parent, then evaluate the content of the parent node:
;; (underscore represents the point)
;; foo.ba_r // => evaluate foo.bar
;; foo_.bar // => evaluate foo
;; foo.bar.baz_() // => evaluate foo.bar.baz
;; foo.bar.baz()_ // => evaluate foo.bar.baz()
(while (and (js2-prop-get-node-p parent)
(< (js2-node-abs-pos parent)
(js2-node-abs-pos node)))
(setq node parent))
(defun jade-interaction--ensure-connection ()
"Set a connection if no connection is set for the current buffer.
If the current buffer has no associated `jade-connection', prompt
the user for one of the open connections if many of them are
open, and set it in the current buffer."
(unless jade-connection
(setq-local jade-connection
(if (= 1 (seq-length jade-connections))
(seq-elt jade-connections 0)
(defun jade-interaction--read-connection ()
"Read a connection from the minibuffer, with completion."
(let ((url (completing-read "Choose a connection: "
(seq-map (lambda (conn)
(map-elt conn 'url))
(seq-find (lambda (conn)
(string= (map-elt conn 'url)
(defvar jade-interaction-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-x C-e") #'jade-eval-last-node)
(define-key map (kbd "C-c M-i") #'jade-inspect-last-node)
(define-minor-mode jade-interaction-mode
"Mode for JavaScript evalution.
:lighter " js-interaction"
:keymap jade-interaction-mode-map)
(provide 'jade-interaction)
;;; jade-interaction.el ends here