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, 0 insertions, 251 deletions
diff --git a/elpa/js2-refactor-20210306.2003/js2r-formatting.el b/elpa/js2-refactor-20210306.2003/js2r-formatting.el deleted file mode 100644 index a9137c3..0000000 --- a/elpa/js2-refactor-20210306.2003/js2r-formatting.el +++ /dev/null @@ -1,251 +0,0 @@ -;;; 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 |