diff options
Diffstat (limited to 'elpa/js2-refactor-20210306.2003/js2r-formatting.el')
| -rw-r--r-- | elpa/js2-refactor-20210306.2003/js2r-formatting.el | 251 |
1 files changed, 251 insertions, 0 deletions
diff --git a/elpa/js2-refactor-20210306.2003/js2r-formatting.el b/elpa/js2-refactor-20210306.2003/js2r-formatting.el new file mode 100644 index 0000000..a9137c3 --- /dev/null +++ b/elpa/js2-refactor-20210306.2003/js2r-formatting.el @@ -0,0 +1,251 @@ +;;; js2r-formatting.el --- Private helper functions for formatting -*- lexical-binding: t; -*- + +;; Copyright (C) 2012-2014 Magnar Sveen +;; Copyright (C) 2015-2016 Magnar Sveen and Nicolas Petton + +;; Author: Magnar Sveen <magnars@gmail.com>, +;; Nicolas Petton <nicolas@petton.fr> +;; Keywords: conveniences + +;; 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 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; 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: + + +(defun js2r--ensure-newline () + (if (and (not (looking-at "\s*\n")) + (not (looking-back "\n\s*"))) + (newline-and-indent))) + +(defun js2r--ensure-just-one-space () + (interactive) + (while (or (looking-at "\s*\n") + (looking-back "\n\s*")) + (when (looking-at "\n") + (delete-char 1)) + (when (looking-back "\n\s") + (backward-char) + (delete-char -1)) + (just-one-space)) + (just-one-space)) + +(defmacro js2r--create-bracketed-whitespace-traverser + (name ws-fix-func looking-at-start-func + goto-closest-start-func subexpr-str) + "Build a function to expand or contract a given type of + bracketed expression, i.e., function body, object literal, or + array (any of which may be nested). + Parameters: + name: name of the function to be built + ws-fix-func: function to adjust whitespace at point + looking-at-start-func: returns t if point is at + the start of the bracketed + thing we want to act on + goto-closest-start-func: moves point if necessary + until looking-at-start-func + is true + subexpr-str: literal delimiter of parts of the + thing to be expanded or contracted" + `(defun ,name () + (interactive) + (save-excursion + (if (not ,looking-at-start-func) + ,goto-closest-start-func) + (let ((end (make-marker))) + (set-marker end (save-excursion + (forward-list) + (point))) + (forward-char) + ,ws-fix-func + (while (< (point) end) + (while (js2r--point-inside-string-p) + (forward-char)) + (when (looking-at ,subexpr-str) + (forward-char) + (unless (js2-comment-node-p (js2-node-at-point)) + ,ws-fix-func)) + (if (looking-at "\\s(") + (forward-list) + (forward-char))) + (backward-char) + ,ws-fix-func)))) + +(defun js2r--looking-at-object-start () + (and (looking-at "{") + (not (looking-back ")[\s\n]*")))) + +(defun js2r--goto-closest-object-start () + (while (not (js2r--looking-at-object-start)) + (if (eq (car (syntax-ppss)) 0) + (error "Cursor is not on an object") + (goto-char (nth 1 (syntax-ppss)))))) + +(js2r--create-bracketed-whitespace-traverser js2r-expand-object + (js2r--ensure-newline) + (js2r--looking-at-object-start) + (js2r--goto-closest-object-start) + ",") + +(js2r--create-bracketed-whitespace-traverser js2r-contract-object + (js2r--ensure-just-one-space) + (js2r--looking-at-object-start) + (js2r--goto-closest-object-start) + ",") + +(defun js2r--looking-at-array-start () + (looking-at "\\[")) + +(defun js2r--goto-closest-array-start () + (while (not (js2r--looking-at-array-start)) + (if (eq (car (syntax-ppss)) 0) + (error "Cursor is not on an array") + (goto-char (nth 1 (syntax-ppss)))))) + +(js2r--create-bracketed-whitespace-traverser js2r-expand-array + (js2r--ensure-newline) + (js2r--looking-at-array-start) + (js2r--goto-closest-array-start) + ",") + +(js2r--create-bracketed-whitespace-traverser js2r-contract-array + (js2r--ensure-just-one-space) + (js2r--looking-at-array-start) + (js2r--goto-closest-array-start) + ",") + +;; (defun js2r--looking-at-function-start () +;; (or +;; (and (looking-at "{") +;; (looking-back +;; ;; This horrible-looking regexp is actually pretty simple. It +;; ;; matches "function <optional_name> (<optional_parameters,...>)" +;; ;; allowing for whitespace. TODO: support Unicode in function and +;; ;; parameter names. +;; (concat "function[\s\n]*" +;; "\\\([a-zA-Z_$][a-zA-Z_$0-9]*[\s\n]*\\\)?" +;; "\(\\\([a-zA-Z_$][a-zA-Z_$0-9]*" +;; "[\s\n]*,[\s\n]*\\\)*[\s\n]*" +;; "\\\([a-zA-Z_$][a-zA-Z_$0-9]*[\s\n]*\\\)*" +;; "[\s\n]*\)[\s\n]*"))) +;; ;; arrow functions +;; (and (looking-at "{") +;; (looking-back "=>[\s\n]*") +;; (not (js2r--point-inside-string-p))))) + +(defun js2r--looking-at-function-start () + "Return non-nil if the point is at the start of a function body." + (let* ((node (js2-node-at-point)) + (parent (js2-node-parent node))) + (and (looking-at "{") + (js2-block-node-p node) + (js2-function-node-p parent)))) + +(defun js2r--goto-closest-function-start () + (while (not (js2r--looking-at-function-start)) + (if (eq (car (syntax-ppss)) 0) + (error "Cursor is not on a function body") + (goto-char (nth 1 (syntax-ppss)))))) + +(js2r--create-bracketed-whitespace-traverser js2r-expand-function + (js2r--ensure-newline) + (js2r--looking-at-function-start) + (js2r--goto-closest-function-start) + ";") + +;; TODO: It'd be great if js2r-contract-function could recognize +;; newlines that are implied statement terminators and insert +;; semicolons correctly, but that would probably mean not using the +;; same macro as the other "contract" function definitions. +(js2r--create-bracketed-whitespace-traverser js2r-contract-function + (js2r--ensure-just-one-space) + (js2r--looking-at-function-start) + (js2r--goto-closest-function-start) + ";") + +(defun js2r--looking-at-call-start () + (looking-at "(")) + +(defun js2r--goto-closest-call-start () + (while (not (js2r--looking-at-call-start)) + (if (eq (car (syntax-ppss)) 0) + (error "Cursor is not on a call") + (goto-char (nth 1 (syntax-ppss)))))) + +(js2r--create-bracketed-whitespace-traverser js2r-expand-call-args + (js2r--ensure-newline) + (js2r--looking-at-call-start) + (js2r--goto-closest-call-start) + ",") + +(js2r--create-bracketed-whitespace-traverser js2r-contract-call-args + (js2r--ensure-just-one-space) + (js2r--looking-at-call-start) + (js2r--goto-closest-call-start) + ",") + +(defun js2r--expand-contract-node-at-point (&optional is-contract) + "Expand or contract bracketed list according to node type in point. +Currently working on array, object, function and call args node types. +With argument, contract closest expression, otherwise expand." + (let ((pos (point)) + (array-start (point-max)) + (object-start (point-max)) + (function-start (point-max)) + (call-start (point-max))) + (save-excursion + (ignore-errors + (js2r--goto-closest-array-start) + (setq array-start (- pos (point))))) + (save-excursion + (ignore-errors + (js2r--goto-closest-object-start) + (setq object-start (- pos (point))))) + (save-excursion + (ignore-errors + (js2r--goto-closest-function-start) + (setq function-start (- pos (point))))) + (save-excursion + (ignore-errors + (js2r--goto-closest-call-start) + (setq call-start (- pos (point))))) + (setq pos (-min (list array-start object-start function-start call-start))) + (when (= pos array-start) + (if is-contract + (js2r-contract-array) + (js2r-expand-array))) + (when (= pos object-start) + (if is-contract + (js2r-contract-object) + (js2r-expand-object))) + (when (= pos function-start) + (if is-contract + (js2r-contract-function) + (js2r-expand-function))) + (when (= pos call-start) + (if is-contract + (js2r-contract-call-args) + (js2r-expand-call-args))))) + +(defun js2r-expand-node-at-point () + "Expand bracketed list according to node type at point." + (interactive) + (js2r--expand-contract-node-at-point)) + +(defun js2r-contract-node-at-point () + "Contract bracketed list according to node type at point." + (interactive) + (js2r--expand-contract-node-at-point t)) + +(provide 'js2r-formatting) +;;; js2-formatting.el ends here |