11831 lines
420 KiB
EmacsLisp
11831 lines
420 KiB
EmacsLisp
;;; web-mode.el --- major mode for editing web templates
|
||
;;; -*- coding: utf-8 -*-
|
||
|
||
;; Copyright 2011-2016 François-Xavier Bois
|
||
|
||
;; Version: 13.1.8
|
||
;; Author: François-Xavier Bois <fxbois AT Google Mail Service>
|
||
;; Maintainer: François-Xavier Bois
|
||
;; Created: July 2011
|
||
;; Keywords: languages
|
||
;; Homepage: http://web-mode.org
|
||
;; Repository: http://github.com/fxbois/web-mode
|
||
;; License: GNU General Public License >= 2
|
||
;; Distribution: This file is not part of Emacs
|
||
|
||
;;==============================================================================
|
||
;; WEB-MODE is sponsored by Kernix: ultimate Digital Factory & Data Lab in Paris
|
||
;;==============================================================================
|
||
|
||
;; Code goes here
|
||
|
||
;;---- CONSTS ------------------------------------------------------------------
|
||
|
||
(defconst web-mode-version "13.1.8"
|
||
"Web Mode version.")
|
||
|
||
;;---- GROUPS ------------------------------------------------------------------
|
||
|
||
(defgroup web-mode nil
|
||
"Major mode for editing web templates"
|
||
:group 'languages
|
||
:prefix "web-"
|
||
:link '(url-link :tag "Site" "http://web-mode.org")
|
||
:link '(url-link :tag "Repository" "https://github.com/fxbois/web-mode"))
|
||
|
||
(defgroup web-mode-faces nil
|
||
"Faces for syntax highlighting."
|
||
:group 'web-mode
|
||
:group 'faces)
|
||
|
||
;;---- CUSTOMS -----------------------------------------------------------------
|
||
|
||
(defcustom web-mode-script-padding 1
|
||
"Script element left padding."
|
||
:type 'integer
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-style-padding 1
|
||
"Style element left padding."
|
||
:type 'integer
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-block-padding 0
|
||
"Multi-line block (php, ruby, java, python, asp, etc.) left padding."
|
||
:type 'integer
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-attr-indent-offset nil
|
||
"Html attribute indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-attr-value-indent-offset nil
|
||
"Html attribute value indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-markup-indent-offset
|
||
(if (and (boundp 'standard-indent) standard-indent) standard-indent 2)
|
||
"Html indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-css-indent-offset
|
||
(if (and (boundp 'standard-indent) standard-indent) standard-indent 2)
|
||
"CSS indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-code-indent-offset
|
||
(if (and (boundp 'standard-indent) standard-indent) standard-indent 2)
|
||
"Code (javascript, php, etc.) indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-sql-indent-offset 4
|
||
"Sql (inside strings) indentation level."
|
||
:type 'integer
|
||
:safe #'integerp
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-css-colorization (display-graphic-p)
|
||
"In a CSS part, set background according to the color: #xxx, rgb(x,x,x)."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-indentation (display-graphic-p)
|
||
"Auto-indentation."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-closing (display-graphic-p)
|
||
"Auto-closing."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-pairing (display-graphic-p)
|
||
"Auto-pairing."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-opening (display-graphic-p)
|
||
"Html element auto-opening."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-quoting (display-graphic-p)
|
||
"Add double quotes after the character = in a tag."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-auto-expanding nil
|
||
"e.g. s/ expands to <span>|</span>."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-control-block-indentation t
|
||
"Control blocks increase indentation."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-current-element-highlight nil
|
||
"Disable element highlight."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-current-column-highlight nil
|
||
"Show column for current element."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-whitespace-fontification nil
|
||
"Enable whitespaces."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-html-entities-fontification nil
|
||
"Enable html entities fontification."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-block-face nil
|
||
"Enable block face (useful for setting a background for example).
|
||
See web-mode-block-face."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-part-face nil
|
||
"Enable part face (useful for setting background of <style> or <script>
|
||
elements for example). See web-mode-part-face."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-inlays nil
|
||
"Enable inlays (e.g. LaTeX) highlighting."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-sexp-functions t
|
||
"Enable specific sexp functions."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-comment-interpolation t
|
||
"Enable highlight of keywords like FIXME, TODO, etc. in comments."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-string-interpolation t
|
||
"Enable string interpolation fontification (php and erb)."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-sql-detection nil
|
||
"Enable fontification and indentation of sql queries in strings."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-heredoc-fontification t
|
||
"Enable heredoc fontification. The identifier should contain JS, JAVASCRIPT, CSS or HTML."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-element-content-fontification nil
|
||
"Enable element content fontification. The content of an element can have a face associated."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-element-tag-fontification nil
|
||
"Enable tag name fontification."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-enable-engine-detection nil
|
||
"Detect such directive -*- engine: ENGINE -*- at the top of the file."
|
||
:type 'boolean
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-comment-style 1
|
||
"Comment style : 1 = default, 2 = force server comments outside a block."
|
||
:group 'web-mode
|
||
:type '(choice (const :tag "default" 1)
|
||
(const :tag "force engine comments" 2)))
|
||
|
||
(defcustom web-mode-indent-style 1
|
||
"Indentation style."
|
||
:group 'web-mode
|
||
:type '(choice (const :tag "default (all lines are indented)" 2)
|
||
(const :tag "text at the beginning of line is not indented" 1)))
|
||
|
||
(defcustom web-mode-auto-close-style 2
|
||
"Auto-close style."
|
||
:group 'web-mode
|
||
:type '(choice (const :tag "Auto-close on </" 1)
|
||
(const :tag "Auto-close on > and </" 2)))
|
||
|
||
(defcustom web-mode-extra-expanders '()
|
||
"A list of additional expanders."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-auto-pairs '()
|
||
"A list of additional snippets."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-snippets '()
|
||
"A list of additional snippets."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-builtins '()
|
||
"A list of additional builtins."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-constants '()
|
||
"A list of additional constants."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-keywords '()
|
||
"A list of additional keywords."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-extra-types '()
|
||
"A list of additional types."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-tests-directory (concat default-directory "tests/")
|
||
"Directory containing all the unit tests."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
(defcustom web-mode-jsx-depth-faces nil
|
||
;; '(web-mode-jsx-depth-1-face
|
||
;; web-mode-jsx-depth-2-face
|
||
;; web-mode-jsx-depth-3-face
|
||
;; web-mode-jsx-depth-4-face)
|
||
"Each jsx depth has is own face."
|
||
:type 'list
|
||
:group 'web-mode)
|
||
|
||
;;---- FACES -------------------------------------------------------------------
|
||
|
||
(defface web-mode-error-face
|
||
'((t :background "red"))
|
||
"Face for warning."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-warning-face
|
||
'((t :inherit font-lock-warning-face))
|
||
"Face for warning."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-preprocessor-face
|
||
'((t :inherit font-lock-preprocessor-face))
|
||
"Face for preprocessor."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-delimiter-face
|
||
'((t :inherit font-lock-preprocessor-face))
|
||
"Face for block delimiters."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-control-face
|
||
'((t :inherit font-lock-preprocessor-face))
|
||
"Face for preprocessor."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-builtin-face
|
||
'((t :inherit font-lock-builtin-face))
|
||
"Face for builtins."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-symbol-face
|
||
'((t :foreground "gold"))
|
||
"Face for symbols."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-doctype-face
|
||
'((t :foreground "Grey"))
|
||
"Face for html doctype."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-tag-face
|
||
'((((class color) (min-colors 88) (background dark)) :foreground "Snow4")
|
||
(((class color) (min-colors 88) (background light)) :foreground "Snow4")
|
||
(((class color) (min-colors 16) (background dark)) :foreground "Snow4")
|
||
(((class color) (min-colors 16) (background light)) :foreground "Grey15")
|
||
(((class color) (min-colors 8)) :foreground "Snow4")
|
||
(((type tty) (class mono)) :inverse-video t)
|
||
(t :foreground "Snow4"))
|
||
"Face for html tags."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-tag-custom-face
|
||
'((t :inherit web-mode-html-tag-face))
|
||
"Face for html custom tags (e.g. <polymer-element>)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-tag-bracket-face
|
||
'((((class color) (min-colors 88) (background dark)) :foreground "Snow3")
|
||
(((class color) (min-colors 88) (background light)) :foreground "Grey14")
|
||
(((class color) (min-colors 16) (background dark)) :foreground "Snow3")
|
||
(((class color) (min-colors 16) (background light)) :foreground "Grey14")
|
||
(((class color) (min-colors 8)) :foreground "Snow3")
|
||
(((type tty) (class mono)) :inverse-video t)
|
||
(t :foreground "Snow3"))
|
||
"Face for html tags angle brackets (<, > and />)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-attr-name-face
|
||
'((((class color) (min-colors 88) (background dark)) :foreground "Snow3")
|
||
(((class color) (min-colors 88) (background light)) :foreground "Snow4")
|
||
(((class color) (min-colors 16) (background dark)) :foreground "Snow3")
|
||
(((class color) (min-colors 16) (background light)) :foreground "Grey13")
|
||
(((class color) (min-colors 8)) :foreground "Snow3")
|
||
(((type tty) (class mono)) :inverse-video t)
|
||
(t :foreground "Snow4"))
|
||
"Face for html attribute names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-attr-custom-face
|
||
'((t :inherit web-mode-html-attr-name-face))
|
||
"Face for custom attribute names (e.g. data-*)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-attr-engine-face
|
||
'((t :inherit web-mode-block-delimiter-face))
|
||
"Face for custom engine attribute names (e.g. ng-*)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-attr-equal-face
|
||
'((t :inherit web-mode-html-attr-name-face))
|
||
"Face for the = character between name and value."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-attr-value-face
|
||
'((t :inherit font-lock-string-face))
|
||
"Face for html attribute values."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-attr-name-face
|
||
'((t :foreground "#8fbc8f"))
|
||
"Face for block attribute names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-attr-value-face
|
||
'((t :foreground "#5f9ea0"))
|
||
"Face for block attribute values."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-variable-name-face
|
||
'((t :inherit font-lock-variable-name-face))
|
||
"Face for variable names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-selector-face
|
||
'((t :inherit font-lock-keyword-face))
|
||
"Face for CSS rules."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-pseudo-class-face
|
||
'((t :inherit font-lock-builtin-face))
|
||
"Face for CSS pseudo-classes."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-at-rule-face
|
||
'((t :inherit font-lock-constant-face))
|
||
"Face for CSS at-rules."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-property-name-face
|
||
'((t :inherit font-lock-variable-name-face))
|
||
"Face for CSS props."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-color-face
|
||
'((t :inherit font-lock-builtin-face))
|
||
"Face for CSS colors (#xxx)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-priority-face
|
||
'((t :inherit font-lock-builtin-face))
|
||
"Face for CSS priority (!important)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-function-face
|
||
'((t :inherit font-lock-builtin-face))
|
||
"Face for CSS functions."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-variable-face
|
||
'((t :inherit web-mode-variable-name-face :slant italic))
|
||
"Face for CSS vars."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-function-name-face
|
||
'((t :inherit font-lock-function-name-face))
|
||
"Face for function names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-filter-face
|
||
'((t :inherit font-lock-function-name-face))
|
||
"Face for function names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-function-call-face
|
||
'((t :inherit font-lock-function-name-face))
|
||
"Face for function calls."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-string-face
|
||
'((t :inherit font-lock-string-face))
|
||
"Face for strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-string-face
|
||
'((t :inherit web-mode-string-face))
|
||
"Face for block strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-part-string-face
|
||
'((t :inherit web-mode-string-face))
|
||
"Face for part strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-javascript-string-face
|
||
'((t :inherit web-mode-string-face))
|
||
"Face for javascript strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-string-face
|
||
'((t :inherit web-mode-string-face))
|
||
"Face for css strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-json-key-face
|
||
'((t :foreground "plum"))
|
||
"Face for json key strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-json-context-face
|
||
'((t :foreground "orchid3"))
|
||
"Face for json context strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-json-string-face
|
||
'((t :inherit web-mode-string-face))
|
||
"Face for json strings."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-comment-face
|
||
'((t :inherit font-lock-comment-face))
|
||
"Face for comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-comment-face
|
||
'((t :inherit web-mode-comment-face))
|
||
"Face for server comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-part-comment-face
|
||
'((t :inherit web-mode-comment-face))
|
||
"Face for part comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-json-comment-face
|
||
'((t :inherit web-mode-comment-face))
|
||
"Face for json comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-javascript-comment-face
|
||
'((t :inherit web-mode-comment-face))
|
||
"Face for javascript comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-css-comment-face
|
||
'((t :inherit web-mode-comment-face))
|
||
"Face for css comments."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-constant-face
|
||
'((t :inherit font-lock-constant-face))
|
||
"Face for language constants."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-type-face
|
||
'((t :inherit font-lock-type-face))
|
||
"Face for language types."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-keyword-face
|
||
'((t :inherit font-lock-keyword-face))
|
||
"Face for language keywords."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-param-name-face
|
||
'((t :foreground "Snow3"))
|
||
"Face for server attribute names."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-whitespace-face
|
||
'((t :background "DarkOrchid4"))
|
||
"Face for whitespaces."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-inlay-face
|
||
'((((class color) (min-colors 88) (background dark)) :background "Black")
|
||
(((class color) (min-colors 88) (background light)) :background "LightYellow1")
|
||
(((class color) (min-colors 16) (background dark)) :background "Brey18")
|
||
(((class color) (min-colors 16) (background light)) :background "LightYellow1")
|
||
(((class color) (min-colors 8)) :background "Black")
|
||
(((type tty) (class mono)) :inverse-video t)
|
||
(t :background "Grey"))
|
||
"Face for inlays. Must be used in conjunction with web-mode-enable-inlays."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-block-face
|
||
'((((class color) (min-colors 88) (background dark)) :background "Black")
|
||
(((class color) (min-colors 88) (background light)) :background "LightYellow1")
|
||
(((class color) (min-colors 16) (background dark)) :background "Grey18")
|
||
(((class color) (min-colors 16) (background light)) :background "LightYellow1")
|
||
(((class color) (min-colors 8)) :background "Black")
|
||
(((type tty) (class mono)) :inverse-video t)
|
||
(t :background "Grey"))
|
||
"Face for blocks (useful for setting a background for example).
|
||
Must be used in conjunction with web-mode-enable-block-face."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-part-face
|
||
'((t :inherit web-mode-block-face))
|
||
"Face for parts."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-script-face
|
||
'((t :inherit web-mode-part-face))
|
||
"Face for javascript inside a script element."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-style-face
|
||
'((t :inherit web-mode-part-face))
|
||
"Face for css inside a style element."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-folded-face
|
||
'((t :underline t))
|
||
"Overlay face for folded."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-bold-face
|
||
'((t :weight bold))
|
||
"bold face."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-italic-face
|
||
'((t :slant italic))
|
||
"bold face."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-underline-face
|
||
'((t :underline t))
|
||
"bold face."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-current-element-highlight-face
|
||
'((t :background "#000000"))
|
||
"Overlay face for element highlight."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-current-column-highlight-face
|
||
'((t :background "#3e3c36"))
|
||
"Overlay face for current column."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-comment-keyword-face
|
||
'((t :weight bold :box t))
|
||
"Comment keywords."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-sql-keyword-face
|
||
'((t :weight bold :slant italic))
|
||
"Sql keywords."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-html-entity-face
|
||
'((t :slant italic))
|
||
"Face html entities (e.g. –, é)."
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-jsx-depth-1-face
|
||
'((t :background "#333333"))
|
||
"jsx depth 1"
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-jsx-depth-2-face
|
||
'((t :background "#222222"))
|
||
"jsx"
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-jsx-depth-3-face
|
||
'((t :background "#111111"))
|
||
"jsx"
|
||
:group 'web-mode-faces)
|
||
|
||
(defface web-mode-jsx-depth-4-face
|
||
'((t :background "#000000"))
|
||
"jsx"
|
||
:group 'web-mode-faces)
|
||
|
||
;;---- VARS --------------------------------------------------------------------
|
||
|
||
(defvar font-lock-beg)
|
||
(defvar font-lock-end)
|
||
|
||
(defvar web-mode-auto-pairs nil)
|
||
(defvar web-mode-block-regexp nil)
|
||
(defvar web-mode-change-beg nil)
|
||
(defvar web-mode-change-end nil)
|
||
(defvar web-mode-chunk-length 64)
|
||
(defvar web-mode-column-overlays nil)
|
||
(defvar web-mode-comments-invisible nil)
|
||
(defvar web-mode-content-type "")
|
||
(defvar web-mode-engine nil)
|
||
(defvar web-mode-engine-attr-regexp nil)
|
||
(defvar web-mode-engine-font-lock-keywords nil)
|
||
(defvar web-mode-engine-token-regexp nil)
|
||
(defvar web-mode-expand-initial-pos nil)
|
||
(defvar web-mode-expand-initial-scroll nil)
|
||
(defvar web-mode-expand-previous-state "")
|
||
(defvar web-mode-font-lock-keywords '(web-mode-font-lock-highlight))
|
||
(defvar web-mode-inhibit-fontification nil)
|
||
(defvar web-mode-inlay-regexp nil)
|
||
(defvar web-mode-is-scratch nil)
|
||
(defvar web-mode-jshint-errors 0)
|
||
(defvar web-mode-minor-engine nil)
|
||
(defvar web-mode-obarray nil)
|
||
(defvar web-mode-overlay-tag-start nil)
|
||
(defvar web-mode-overlay-tag-end nil)
|
||
(defvar web-mode-snippets nil)
|
||
(defvar web-mode-time (current-time))
|
||
|
||
(defvar web-mode-indentless-elements
|
||
'("code" "pre" "textarea"))
|
||
|
||
(defvar web-mode-indentless-attributes
|
||
'("onclick" "onmouseover" "onmouseout" "onsubmit"))
|
||
|
||
(defvar web-mode-void-elements
|
||
'("area" "base" "br" "col" "command" "embed" "hr" "img" "input" "keygen"
|
||
"link" "meta" "param" "source" "track" "wbr"))
|
||
|
||
(defvar web-mode-part-content-types '("css" "javascript" "json" "jsx"))
|
||
|
||
(defvar web-mode-javascript-languages '("javascript" "jsx" "ejs"))
|
||
|
||
;; NOTE: without 'syntax-table forward-word fails (#377)
|
||
(defvar web-mode-scan-properties
|
||
(list 'tag-beg 'tag-end 'tag-name 'tag-type
|
||
'tag-attr 'tag-attr-beg 'tag-attr-end
|
||
'part-side 'part-token
|
||
'jsx-beg 'jsx-end 'jsx-depth
|
||
'block-side 'block-token 'block-controls 'block-beg 'block-end
|
||
'syntax-table)
|
||
"Text properties used for code regions/tokens and html nodes.")
|
||
|
||
(defvar web-mode-start-tag-regexp "<\\([[:alpha:]][[:alnum:]:-]*\\)"
|
||
"Regular expression for HTML/XML start tag.")
|
||
|
||
(defvar web-mode-whitespaces-regexp
|
||
"^[ \t]\\{2,\\}$\\| \t\\|\t \\|[ \t]+$\\|^[ \n\t]+\\'\\|^[ \t]?[\n]\\{2,\\}"
|
||
"Regular expression for whitespaces.")
|
||
|
||
(defvar web-mode-imenu-regexp-list
|
||
'(("<\\(h[1-9]\\)\\([^>]*\\)>\\([^<]*\\)" 1 3 ">")
|
||
("^[ \t]*<\\([@a-z]+\\)[^>]*>? *$" 1 "id=\"\\([a-zA-Z0-9_]+\\)\"" "#" ">"))
|
||
"Regexps to match imenu items (see http://web-mode.org/doc/imenu.txt)")
|
||
|
||
(defvar web-mode-indentation-params
|
||
'(("lineup-args" . t)
|
||
("lineup-calls" . t)
|
||
("lineup-concats" . t)
|
||
("lineup-quotes" . t)
|
||
("lineup-ternary" . t)
|
||
("case-extra-offset" . t)
|
||
))
|
||
|
||
(defvar web-mode-engines
|
||
'(("angular" . ("angularjs" "angular.js"))
|
||
("asp" . ())
|
||
("aspx" . ())
|
||
("blade" . ("laravel"))
|
||
("cl-emb" . ())
|
||
("clip" . ())
|
||
("closure" . ("soy"))
|
||
("ctemplate" . ("mustache" "handlebars" "hapax" "ngtemplate" "ember"
|
||
"kite" "meteor" "blaze" "ractive"))
|
||
("django" . ("dtl" "twig" "swig" "jinja" "erlydtl" "liquid"
|
||
"clabango" "selmer" "nunjucks"))
|
||
("dust" . ("dustjs"))
|
||
("ejs" . ())
|
||
("elixir" . ("phoenix"))
|
||
("erb" . ("eruby" "erubis"))
|
||
("freemarker" . ())
|
||
("go" . ("gtl"))
|
||
("jsp" . ("grails"))
|
||
("mako" . ())
|
||
("marko" . ())
|
||
("mason" . ("poet"))
|
||
("lsp" . ("lisp"))
|
||
("mojolicious" . ())
|
||
("php" . ())
|
||
("python" . ())
|
||
("razor" . ("play" "play2"))
|
||
("riot" . ())
|
||
("template-toolkit" . ())
|
||
("smarty" . ())
|
||
("thymeleaf" . ())
|
||
("underscore" . ("underscore.js"))
|
||
("velocity" . ("vtl" "cheetah" "ssp"))
|
||
("web2py" . ()))
|
||
"Engine name aliases")
|
||
|
||
(defvar web-mode-content-types
|
||
'(("css" . "\\.\\(s?css\\|css\\.erb\\)\\'")
|
||
("javascript" . "\\.\\([jt]s\\|[jt]s\\.erb\\)\\'")
|
||
("json" . "\\.\\(api\\|json\\|jsonld\\)\\'")
|
||
("jsx" . "\\.[jt]sx\\'")
|
||
("xml" . "\\.xml\\'")
|
||
("html" . "."))
|
||
"content types")
|
||
|
||
(defvar web-mode-engine-attr-regexps
|
||
'(("angular" . "ng-")
|
||
("thymeleaf" . "th:"))
|
||
"Engine custom attributes")
|
||
|
||
(defvar web-mode-last-enabled-feature nil)
|
||
|
||
(defvar web-mode-features
|
||
'(("css-colorization" . web-mode-enable-css-colorization)
|
||
("element-highlight" . web-mode-enable-current-element-highlight)
|
||
("column-highlight" . web-mode-enable-current-column-highlight)
|
||
("whitespace-fontification" . web-mode-enable-whitespace-fontification)
|
||
("element-tag-fontification" . web-mode-enable-element-tag-fontification)
|
||
("block-face" . web-mode-enable-block-face)
|
||
("part-face" . web-mode-enable-part-face)))
|
||
|
||
(defvar web-mode-comment-formats
|
||
'(("java" . "/*")
|
||
("javascript" . "/*")
|
||
("php" . "/*")
|
||
))
|
||
|
||
(defvar web-mode-engine-file-regexps
|
||
'(("asp" . "\\.asp\\'")
|
||
("aspx" . "\\.as[cp]x\\'")
|
||
("blade" . "\\.blade\\.php\\'")
|
||
("cl-emb" . "\\.clemb\\'")
|
||
("clip" . "\\.ctml\\'")
|
||
("closure" . "\\.soy\\'")
|
||
("ctemplate" . "\\.\\(chtml\\|mustache\\)\\'")
|
||
("django" . "\\.\\(djhtml\\|tmpl\\|dtl\\|liquid\\|j2\\)\\'")
|
||
("dust" . "\\.dust\\'")
|
||
("elixir" . "\\.eex\\'")
|
||
("ejs" . "\\.ejs\\'")
|
||
("erb" . "\\.\\(erb\\|rhtml\\|erb\\.html\\)\\'")
|
||
("freemarker" . "\\.ftl\\'")
|
||
("go" . "\\.go\\(html\\|tmpl\\)\\'")
|
||
("handlebars" . "\\.\\(hb\\.html\\|hbs\\)\\'")
|
||
("jinja" . "\\.jinja\\'")
|
||
("jsp" . "\\.[gj]sp\\'")
|
||
("lsp" . "\\.lsp\\'")
|
||
("mako" . "\\.mako?\\'")
|
||
("marko" . "\\.marko\\'")
|
||
("mason" . "\\.mas\\'")
|
||
("mojolicious" . "\\.epl?\\'")
|
||
("php" . "\\.\\(p[hs]p\\|ctp\\|inc\\)\\'")
|
||
("python" . "\\.pml\\'")
|
||
("razor" . "\\.\\(cs\\|vb\\)html\\'")
|
||
("riot" . "\\.tag\\'")
|
||
("smarty" . "\\.tpl\\'")
|
||
("template-toolkit" . "\\.tt.?\\'")
|
||
("thymeleaf" . "\\.thtml\\'")
|
||
("velocity" . "\\.v\\(sl\\|tl\\|m\\)\\'")
|
||
|
||
("django" . "[st]wig")
|
||
("razor" . "scala")
|
||
|
||
)
|
||
"Engine file extensions.")
|
||
|
||
(defvar web-mode-smart-quotes
|
||
'("«" . "»")
|
||
"Preferred smart quotes")
|
||
|
||
(defvar web-mode-xml-chars
|
||
'((?\& . "&")
|
||
(?\< . "<")
|
||
(?\> . ">"))
|
||
"XML chars")
|
||
|
||
(defvar web-mode-html-entities
|
||
'(("AElig" . 198) ("Aacute" . 193) ("Acirc" . 194) ("Agrave" . 192)
|
||
("Alpha" . 913) ("Aring" . 197) ("Atilde" . 195) ("Auml" . 196)
|
||
("Beta" . 914)
|
||
("Ccedil" . 199) ("Chi" . 935)
|
||
("Dagger" . 8225) ("Delta" . 916)
|
||
("ETH" . 208) ("Eacute" . 201) ("Ecirc" . 202) ("Egrave" . 200)
|
||
("Epsilon" . 917) ("Eta" . 919) ("Euml" . 203)
|
||
("Gamma" . 915)
|
||
("Iacute" . 205) ("Icirc" . 206) ("Igrave" . 204) ("Iota" . 921)
|
||
("Iuml" . 207)
|
||
("Kappa" . 922)
|
||
("Lambda" . 923)
|
||
("Mu" . 924)
|
||
("Ntilde" . 209) ("Nu" . 925)
|
||
("OElig" . 338) ("Oacute" . 211) ("Ocirc" . 212) ("Ograve" . 210)
|
||
("Omega" . 937) ("Omicron" . 927) ("Oslash" . 216) ("Otilde" . 213)
|
||
("Ouml" . 214)
|
||
("Phi" . 934) ("Pi" . 928) ("Prime" . 8243) ("Psi" . 936)
|
||
("Rho" . 929)
|
||
("Scaron" . 352) ("Sigma" . 931)
|
||
("THORN" . 222) ("Tau" . 932) ("Theta" . 920)
|
||
("UArr" . 8657) ("Uacute" . 218) ("Uacute" . 250) ("Ucirc" . 219)
|
||
("Ugrave" . 217) ("Upsih" . 978)
|
||
("Upsilon" . 933) ("Uuml" . 220) ("Uuml" . 252)
|
||
("Xi" . 926)
|
||
("Yacute" . 221) ("Yuml" . 376)
|
||
("Zeta" . 918)
|
||
("aacute" . 225) ("acirc" . 226) ("acute" . 180) ("aelig" . 230)
|
||
("agrave" . 224) ("alefsym" . 8501) ("alpha" . 945) ("amp" . 38)
|
||
("ang" . 8736) ("apos" . 39) ("aring" . 229) ("asymp" . 8776)
|
||
("atilde" . 227) ("auml" . 228)
|
||
("bdquo" . 8222) ("beta" . 946) ("brvbar" . 166) ("bull" . 8226)
|
||
("cap" . 8745) ("ccedil" . 231) ("cedil" . 184) ("cent" . 162)
|
||
("chi" . 967) ("circ" . 710) ("clubs" . 9827) ("cong" . 8773)
|
||
("copy" . 169) ("crarr" . 8629) ("cup" . 8746) ("curren" . 164)
|
||
("dArr" . 8659) ("dagger" . 8224) ("darr" . 8595) ("deg" . 176)
|
||
("delta" . 948) ("diams" . 9830) ("divide" . 247)
|
||
("eacute" . 233) ("ecirc" . 234) ("egrave" . 232) ("empty" . 8709)
|
||
("emsp" . 8195) ("ensp" . 8194) ("epsilon" . 949) ("equiv" . 8801)
|
||
("eta" . 951) ("eth" . 240) ("euml" . 235) ("euro" . 8364) ("exist" . 8707)
|
||
("fnof" . 402) ("forall" . 8704) ("frac12" . 189) ("frac14" . 188)
|
||
("frac34" . 190) ("frasl" . 8260)
|
||
("gamma" . 947) ("ge" . 8805) ("gt" . 62)
|
||
("hArr" . 8660) ("harr" . 8596) ("hearts" . 9829) ("hellip" . 8230)
|
||
("iacute" . 237) ("icirc" . 238) ("iexcl" . 161) ("igrave" . 236)
|
||
("image" . 8465) ("infin" . 8734) ("int" . 8747) ("iota" . 953)
|
||
("iquest" . 191) ("isin" . 8712) ("iuml" . 239)
|
||
("kappa" . 954)
|
||
("lArr" . 8656) ("lambda" . 955) ("lang" . 9001) ("laquo" . 171)
|
||
("larr" . 8592) ("lceil" . 8968) ("ldquo" . 8220) ("le" . 8804)
|
||
("lfloor" . 8970) ("lowast" . 8727) ("loz" . 9674) ("lrm" . 8206)
|
||
("lsaquo" . 8249) ("lsquo" . 8249) ("lt" . 60)
|
||
("macr" . 175) ("mdash" . 8212) ("micro" . 181) ("middot" . 183)
|
||
("minus" . 8722) ("mu" . 956)
|
||
("nabla" . 8711) ("nbsp" . 160) ("ndash" . 8211) ("ne" . 8800)
|
||
("ni" . 8715) ("not" . 172) ("notin" . 8713) ("nsub" . 8836)
|
||
("ntilde" . 241) ("nu" . 957) ("oacute" . 243) ("ocirc" . 244)
|
||
("oelig" . 339) ("ograve" . 242) ("oline" . 8254) ("omega" . 969)
|
||
("omicron" . 959) ("oplus" . 8853) ("or" . 8744) ("ordf" . 170)
|
||
("ordm" . 186) ("oslash" . 248) ("otilde" . 245) ("otimes" . 8855)
|
||
("ouml" . 246)
|
||
("para" . 182) ("part" . 8706) ("permil" . 8240) ("perp" . 8869)
|
||
("phi" . 966) ("pi" . 960) ("piv" . 982) ("plusmn" . 177) ("pound" . 163)
|
||
("prime" . 8242) ("prod" . 8719) ("prop" . 8733) ("psi" . 968)
|
||
("quot" . 34)
|
||
("rArr" . 8658) ("radic" . 8730) ("rang" . 9002) ("raquo" . 187)
|
||
("rarr" . 8594) ("rceil" . 8969) ("rdquo" . 8221) ("real" . 8476)
|
||
("reg" . 174) ("rfloor" . 8971) ("rho" . 961) ("rlm" . 8207)
|
||
("rsaquo" . 8250) ("rsquo" . 8250) ("sbquo" . 8218)
|
||
("scaron" . 353) ("sdot" . 8901) ("sect" . 167) ("shy" . 173)
|
||
("sigma" . 963) ("sigmaf" . 962) ("sim" . 8764) ("spades" . 9824)
|
||
("sub" . 8834) ("sube" . 8838) ("sum" . 8721) ("sup" . 8835)
|
||
("sup1" . 185) ("sup2" . 178) ("sup3" . 179) ("supe" . 8839)
|
||
("szlig" . 223)
|
||
("tau" . 964) ("there4" . 8756) ("theta" . 952) ("thetasym" . 977)
|
||
("thinsp" . 8201) ("thorn" . 254) ("tilde" . 732) ("times" . 215)
|
||
("trade" . 8482)
|
||
("uarr" . 8593) ("ucirc" . 251) ("ugrave" . 249) ("uml" . 168)
|
||
("upsilon" . 965)
|
||
("weierp" . 8472)
|
||
("xi" . 958)
|
||
("yacute" . 253) ("yen" . 165) ("yuml" . 255)
|
||
("zeta" . 950) ("zwj" . 8205) ("zwnj" . 8204)))
|
||
|
||
;; http://webdesign.about.com/od/localization/l/blhtmlcodes-ascii.htm
|
||
(defvar web-mode-display-table
|
||
(let ((table (make-display-table)))
|
||
(aset table 9 (vector ?\xBB ?\t))
|
||
(aset table 10 (vector ?\xB6 ?\n))
|
||
(aset table 32 (vector ?\xB7))
|
||
table)
|
||
"Display table used when switching to the whitespace visualization.")
|
||
|
||
(defvar web-mode-expanders
|
||
'(("a/" . "<a href=\"|\"></a>")
|
||
("b/" . "<table><tbody><tr><td>|</td><td></td></tr></tbody></table>")
|
||
("c/" . "<div class=\"|\"></div>")
|
||
("d/" . "<div>|</div>")
|
||
("e/" . "<em>|</em>")
|
||
("f/" . "<form>|</form>")
|
||
("g/" . "<strong>|</strong>")
|
||
("h/" . "<h1>|</h1>")
|
||
("i/" . "<img src=\"|\" />")
|
||
("j/" . "<script>|</script>")
|
||
("l/" . "<li>|</li>")
|
||
("m/" . "<main>|</main>")
|
||
("n/" . "<input type=\"|\" />")
|
||
("p/" . "<p>|</p>")
|
||
("q/" . "<quote>|</quote>")
|
||
("s/" . "<span>|</span>")
|
||
("t/" . "<td>|</td>")
|
||
("u/" . "<ul><li>|</li><li></li></ul>")
|
||
("x/" . "<textarea>|</textarea>")
|
||
("2/" . "<h2>|</h2>")
|
||
("3/" . "<h3>|</h3>")
|
||
("?/" . "<?php | ?>")))
|
||
|
||
(defvar web-mode-engines-auto-pairs
|
||
'(("angular" . (("{{ " . " }}")))
|
||
("asp" . (("<% " . " %>")))
|
||
("aspx" . (("<% " . " %>")
|
||
("<%=" . "%>")
|
||
("<%#" . "%>")
|
||
("<%$" . "%>")
|
||
("<%@" . "%>")
|
||
("<%:" . "%>")
|
||
("<%-" . "- | --%>")))
|
||
("blade" . (("{{{" . " | }}}")
|
||
("{{ " . " }}")
|
||
("{!!" . " | !!}")
|
||
("@{{" . " | }}")
|
||
("{{-" . "- | --}}")))
|
||
("cl-emb" . (("<% " . " %>")
|
||
("<%=" . " | %>")
|
||
("<%#" . " | %>")))
|
||
("ctemplate" . (("{{ " . "| }}")
|
||
("{{{" . " | }}}")
|
||
("{~{" . " | }}")
|
||
("{{~" . "{ | }}}")
|
||
("{{!" . "-- | --}}")
|
||
("{{/" . "}}")
|
||
("{{#" . "}}")))
|
||
("django" . (("{{ " . " }}")
|
||
("{% " . " %}")
|
||
("{%-" . " | %}")
|
||
("{# " . " #}")))
|
||
("elixir" . (("<% " . " %>")
|
||
("<%=" . " | %>")
|
||
("<%%" . " | %>")
|
||
("<%#" . " | %>")))
|
||
("ejs" . (("<% " . " %>")
|
||
("<%=" . "%>")
|
||
("<%#" . "%>")
|
||
("<%-" . "%>")))
|
||
("erb" . (("<% " . " %>")
|
||
("<%=" . "%>")
|
||
("<%#" . "%>")
|
||
("<%-" . "%>")))
|
||
("freemarker" . (("<% " . " %>")
|
||
("${ " . " }")
|
||
("[% " . " %]")
|
||
("[# " . " #]")
|
||
("[#-" . "- | --]")))
|
||
("jsp" . (("<% " . " %>")
|
||
("<%-" . "- | --%>")
|
||
("<%=" . "%>")
|
||
("<%!" . "%>")
|
||
("<%@" . "%>")
|
||
("${ " . " }")))
|
||
("lsp" . (("<% " . " %>")
|
||
("<%%" . " | %>")
|
||
("<%#" . " | %>")))
|
||
("mako" . (("<% " . " %>")
|
||
("<%!" . " | %>")
|
||
("${ " . " }")))
|
||
("marko" . (("${ " . " }")))
|
||
("mason" . (("<% " . " %>")
|
||
("<& " . " &>")))
|
||
("mojolicious" . (("<% " . " %>")
|
||
("<%=" . " | %>")
|
||
("<%%" . " | %>")
|
||
("<%#" . " | %>")))
|
||
("php" . (("<?p" . "hp | ?>")
|
||
("<? " . " ?>")
|
||
("<?=" . "?>")))
|
||
("template-toolkit" . (("[% " . " %]")
|
||
("[%-" . " | %]")
|
||
("[%#" . " | %]")))
|
||
("riot" . (("={ " . " }")))
|
||
("underscore" . (("<% " . " %>")))
|
||
("web2py" . (("{{ " . " }}")
|
||
("{{=" . "}}")))
|
||
(nil . (("<!-" . "- | -->")))
|
||
))
|
||
|
||
(defvar web-mode-engines-snippets
|
||
'(("ejs" . (("for" . "<% for (|) { %>\n\n<% } %>")
|
||
("if" . "<% if (|) { %>\n\n<% } %>")))
|
||
("erb" . (("each" . "<% |.each do %>\n\n<% end %>")
|
||
("if" . "<% if | %>\n\n<% end %>")
|
||
("when" . "<% when | %>\n\n<% end %>")
|
||
("unless" . "<% unless | %>\n\n<% end %>")))
|
||
("php" . (("if" . "<?php if (|): ?>\n\n<?php endif; ?>")
|
||
("while" . "<?php while (|): ?>\n\n<?php endwhile; ?>")
|
||
("for" . "<?php for (| ; ; ): ?>\n\n<?php endfor; ?>")
|
||
("foreach" . "<?php foreach (| as ): ?>\n\n<?php endforeach; ?>")
|
||
("each" . "<?php foreach (| as ): ?>\n\n<?php endforeach; ?>")
|
||
("switch" . "<?php switch (|): ?>\n<?php case 1: ?>\n\n<?php break ;?>\n<?php case 2: ?>\n\n<?php break ;?>\n<?php endswitch;?>")))
|
||
("django" . (("block" . "{% block | %}\n\n{% endblock %}")
|
||
("comment" . "{% comment | %}\n\n{% endcomment %}")
|
||
("cycle" . "{% cycle | as %}\n\n{% endcycle %}")
|
||
("filter" . "{% filter | %}\n\n{% endfilter %}")
|
||
("for" . "{% for | in %}\n\n{% endfor %}")
|
||
("if" . "{% if | %}\n\n{% endif %}")
|
||
("ifequal" . "{% ifequal | %}\n\n{% endifequal %}")
|
||
("ifnotequal" . "{% ifnotequal | %}\n\n{% endifnotequal %}")
|
||
("safe" . "{% safe | %}\n\n{% endsafe %}")))
|
||
("template-toolkit" . (("if" . "[% IF | %]\n\n[% END %]")))
|
||
(nil . (("html5" . "<!doctype html>\n<html>\n<head>\n<title></title>\n<meta charset=\"utf-8\" />\n</head>\n<body>\n|\n</body>\n</html>")
|
||
("table" . "<table><tbody>\n<tr>\n<td>|</td>\n<td></td>\n</tr>\n</tbody></table>")
|
||
("ul" . "<ul>\n<li>|</li>\n<li></li>\n</ul>")))
|
||
))
|
||
|
||
(defvar web-mode-engine-token-regexps
|
||
(list
|
||
'("asp" . "//\\|/\\*\\|\"\\|'")
|
||
'("ejs" . "//\\|/\\*\\|\"\\|'")
|
||
'("erb" . "\"\\|'\\|#\\|<<[-]?['\"]?\\([[:alnum:]_]+\\)['\"]?")
|
||
'("lsp" . "\"\\|#|\\|;")
|
||
'("mako" . "\"\\|'\\|#")
|
||
'("mason" . "\"\\|'\\|#")
|
||
'("mojolicious" . "\"\\|'")
|
||
'("php" . "//\\|/\\*\\|#\\|\"\\|'\\|<<<['\"]?\\([[:alnum:]]+\\)['\"]?")
|
||
'("python" . "\"\\|'\\|#")
|
||
'("web2py" . "\"\\|'"))
|
||
"Engine regexps used to identify tokens (strings / comments) in blocks.")
|
||
|
||
(defvar web-mode-engine-open-delimiter-regexps
|
||
(list
|
||
'("angular" . "{{")
|
||
'("asp" . "<%\\|</?[[:alpha:]]+:[[:alpha:]]+\\|</?[[:alpha:]]+Template")
|
||
'("aspx" . "<%.")
|
||
'("blade" . "{{.\\|{!!\\|@{{\\|@[[:alpha:]]")
|
||
'("cl-emb" . "<%")
|
||
'("closure" . "{.\\|/\\*\\| //")
|
||
'("clip" . "</?c:[[:alpha:]-]+")
|
||
'("ctemplate" . "[$]?{[{~].")
|
||
'("django" . "{[#{%]")
|
||
'("dust" . "{.")
|
||
'("elixir" . "<%.")
|
||
'("ejs" . "<%")
|
||
'("erb" . "<%\\|^%.")
|
||
'("freemarker" . "<%\\|${\\|</?[[:alpha:]]+:[[:alpha:]]\\|</?[@#]\\|\\[/?[@#].")
|
||
'("go" . "{{.")
|
||
'("jsp" . "<%\\|${\\|</?[[:alpha:]]+[:.][[:alpha:]]+")
|
||
'("lsp" . "<%")
|
||
'("mako" . "</?%\\|${\\|^[ \t]*%.\\|^[ \t]*##")
|
||
'("marko" . "${")
|
||
'("mason" . "</?[&%]\\|^%.")
|
||
'("mojolicious" . "<%\\|^[ \t]*%.")
|
||
'("php" . "<\\?")
|
||
'("python" . "<\\?")
|
||
'("razor" . "@.\\|^[ \t]*}")
|
||
'("riot" . "{.")
|
||
'("smarty" . "{[[:alpha:]#$/*\"]")
|
||
'("template-toolkit" . "\\[%.\\|%%#")
|
||
'("underscore" . "<%")
|
||
'("velocity" . "#[[:alpha:]#*]\\|$[[:alpha:]!{]")
|
||
'("web2py" . "{{"))
|
||
"Engine regexps used to identify blocks.")
|
||
|
||
(defvar web-mode-normalization-rules
|
||
'(("tag-case" . "lower-case")
|
||
("attr-case" . "lower-case")
|
||
("special-chars" . "unicode") ; "unicode" "entities"
|
||
("css-indentation" . t)
|
||
("smart-apostrophes" . t)
|
||
("smart-quotes" . t)
|
||
("whitespaces" . t)
|
||
("indentation" . t))
|
||
"Normalization rules")
|
||
|
||
(defvar web-mode-element-tag-faces
|
||
(list
|
||
'("h1" . web-mode-underline-face)
|
||
'("h2" . web-mode-underline-face)
|
||
'("h3" . web-mode-underline-face)
|
||
'("h4" . web-mode-underline-face)
|
||
'("title" . web-mode-underline-face)
|
||
'("em" . web-mode-italic-face)
|
||
'("strong" . web-mode-bold-face)
|
||
))
|
||
|
||
(defvar web-mode-element-content-faces
|
||
(list
|
||
'("h1" . web-mode-underline-face)
|
||
'("h2" . web-mode-underline-face)
|
||
'("h3" . web-mode-underline-face)
|
||
'("h4" . web-mode-underline-face)
|
||
'("title" . web-mode-underline-face)
|
||
'("em" . web-mode-italic-face)
|
||
'("strong" . web-mode-bold-face)
|
||
))
|
||
|
||
(defvar web-mode-comment-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "comment" web-mode-extra-keywords))
|
||
'("FIXME" "TODO" "BUG" "KLUDGE" "WORKAROUND" "OPTIMIZE" "HACK" "REFACTOR" "REVIEW"))))
|
||
|
||
(defvar web-mode-sql-queries
|
||
(regexp-opt
|
||
'("SELECT" "INSERT" "UPDATE" "DELETE" "select" "insert" "update" "delete")))
|
||
|
||
(defvar web-mode-sql-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "sql" web-mode-extra-keywords))
|
||
'("SELECT" "INSERT" "UPDATE" "DELETE"
|
||
"FROM" "WHERE" "GROUP BY" "LIMIT" "HAVING" "JOIN" "LEFT" "INNER"
|
||
"FULL" "OUTER" "VALUES" "ORDER BY" "SEPARATOR" "ASC" "DESC"
|
||
"AND" "OR" "ON"))))
|
||
|
||
(defvar web-mode-python-constants
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "python" web-mode-extra-constants))
|
||
'("True" "False" "None" "__debug__" "NotImplemented" "Ellipsis"))))
|
||
|
||
(defvar web-mode-erlang-constants
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "erlang" web-mode-extra-constants))
|
||
'("true" "false"))))
|
||
|
||
(defvar web-mode-erlang-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "erlang" web-mode-extra-keywords))
|
||
'("else" "if" "do" "end"))))
|
||
|
||
(defvar web-mode-cl-emb-constants
|
||
(regexp-opt
|
||
'("nil" "t" "raw" "escape")))
|
||
|
||
(defvar web-mode-cl-emb-keywords
|
||
(regexp-opt
|
||
'("if" "else" "endif" "unless" "endunless" "var" "repeat"
|
||
"endrepeat" "loop" "endloop" "include" "call" "with"
|
||
"endwith" "set" "genloop" "endgenloop" "insert")))
|
||
|
||
(defvar web-mode-lsp-constants
|
||
(regexp-opt
|
||
'("nil" "t")))
|
||
|
||
(defvar web-mode-lsp-keywords
|
||
(regexp-opt
|
||
'("dolist" "let" "while" "cond" "when" "progn" "if"
|
||
"dotimes" "unless" "lambda"
|
||
"loop" "for" "and" "or" "in" "do" "defun")))
|
||
|
||
(defvar web-mode-php-constants
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "php" web-mode-extra-constants))
|
||
'("TRUE" "FALSE" "NULL" "true" "false" "null"
|
||
"STR_PAD_LEFT" "STR_PAD_RIGHT"
|
||
"ENT_COMPAT" "ENT_QUOTES" "ENT_NOQUOTES" "ENT_IGNORE"
|
||
"ENT_SUBSTITUTE" "ENT_DISALLOWED" "ENT_HTML401" "ENT_XML1"
|
||
"ENT_XHTML" "ENT_HTML5" "JSON_PRETTY_PRINT"
|
||
"LIBXML_NOBLANKS"))))
|
||
|
||
(defvar web-mode-php-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "php" web-mode-extra-keywords))
|
||
'("and" "array" "as" "break"
|
||
"callable" "case" "catch" "catch all" "class" "const" "continue"
|
||
"default" "die" "do" "echo" "else" "elseif" "empty"
|
||
"endfor" "endforeach" "endif" "endswitch" "endwhile" "exit" "extends"
|
||
"finally" "for" "foreach" "function" "global" "goto"
|
||
"if" "include" "include_once" "instanceof" "interface" "isset"
|
||
"list" "next" "new" "or" "private" "protected" "public"
|
||
"require" "require_once" "return" "static" "switch" "try" "throw"
|
||
"unset" "use" "var" "when" "while" "xor" "yield"))))
|
||
|
||
(defvar web-mode-php-types
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("array" "bool" "boolean" "char" "const" "double" "float"
|
||
"int" "integer" "long" "mixed" "object" "real" "string"))))
|
||
|
||
(defvar web-mode-css-at-rules
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("charset" "import" "media" "page" "font-face"
|
||
"namespace" "supports" "document"
|
||
"keyframes" "-moz-keyframes" "-webkit-keyframes"
|
||
"mixin"))))
|
||
|
||
(defvar web-mode-css-pseudo-classes
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("active" "after" "before" "checked" "disabled" "empty" "enabled"
|
||
"first" "first-child" "first-letter" "first-line" "first-of-type" "focus"
|
||
"hover" "lang" "last-child" "last-of-type" "left" "link"
|
||
"not" "nth-child" "nth-last-child" "nth-last-of-type" "nth-of-type"
|
||
"only-child" "only-of-type"
|
||
"right" "root" "selection" "target" "visited"))))
|
||
|
||
(defvar web-mode-python-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "python" web-mode-extra-keywords))
|
||
'("and" "as" "assert" "break" "class" "continue" "def" "del"
|
||
"elif" "else" "except" "finally" "for" "from" "global"
|
||
"if" "import" "in" "is" "lambda" "nonlocal" "not" "or" "pass"
|
||
"raise" "return" "try" "while" "with" "yield"))))
|
||
|
||
(defvar web-mode-jsp-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "jsp" web-mode-extra-keywords))
|
||
'("case" "catch" "do" "else" "end" "false" "for" "function"
|
||
"if" "in" "include"
|
||
"new" "package" "page" "private" "protected" "public"
|
||
"return" "tag" "taglib" "throw" "throws" "true" "try" "void" "while"))))
|
||
|
||
(defvar web-mode-erb-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "erb" web-mode-extra-keywords))
|
||
'("alias" "and" "begin" "break" "case" "class" "def" "defined?" "do"
|
||
"elsif" "else" "end" "ensure" "fail" "for" "if" "in"
|
||
"module" "next" "not" "or" "redo" "rescue" "retry" "return"
|
||
"then" "super" "unless" "undef" "until" "when" "while" "yield"
|
||
"__ENCODING__" "__FILE__" "__LINE__"))))
|
||
|
||
(defvar web-mode-mason-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "mason" web-mode-extra-keywords))
|
||
'("and" "base" "close" "die" "each" "else" "elsif" "eval" "exists"
|
||
"foreach" "grep" "if" "length" "local" "my" "next" "open" "or"
|
||
"package" "pop" "ref" "return" "stat" "sub" "tie"
|
||
"undef" "unless" "use" "while"))))
|
||
|
||
(defvar web-mode-erb-builtins
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "erb" web-mode-extra-builtins))
|
||
|
||
'("__callee__" "__dir__" "__method__"
|
||
"abort" "at_exit" "autoload" "autoload?"
|
||
"binding" "block_given?" "caller" "catch"
|
||
"eval" "exec" "exit" "exit!" "fail" "fork" "format"
|
||
"lambda" "load" "loop" "open"
|
||
"p" "print" "printf" "proc" "putc" "puts"
|
||
"raise" "rand" "readline" "readlines" "require" "require_relative"
|
||
"sleep" "spawn" "sprintf" "srand" "syscall" "system"
|
||
"throw" "trap" "warn"
|
||
"alias_method" "attr" "attr_accessor" "attr_reader" "attr_writer"
|
||
"define_method" "extend" "include" "module_function"
|
||
"prepend" "private" "protected" "public"
|
||
"refine" "using"
|
||
|
||
"error_message_on" "error_messages_for" "form" "input"
|
||
"auto_discovery_link_tag" "image_tag" "javascript_include_tag"
|
||
"stylesheet_link_tag" "image_path" "path_to_image"" "
|
||
"javascript_path" "path_to_javascript" "register_javascript_expansion"
|
||
"register_javascript_include_default" "register_stylesheet_expansion"
|
||
"stylesheet_path" "path_to_stylesheet" "atom_feed" "entry" "updated"
|
||
"benchmark" "cache" "capture" "content_for" "distance_of_time_in_words"
|
||
"distance_of_time_in_words_to_now" "time_ago_in_words" "date_select"
|
||
"datetime_select" "time_select" "select_date" "select_datetime"
|
||
"select_day" "select_hour" "select_minute" "select_month" "select_second"
|
||
"select_time" "select_year" "debug"
|
||
"check_box" "fields_for" "file_field" "form_for" "hidden_field"
|
||
"label" "password_field" "radio_button" "text_area" "text_field"
|
||
"check_box_tag" "field_set_tag" "file_field_tag" "form_tag"
|
||
"hidden_field_tag" "image_submit_tag" "label_tag" "password_field_tag"
|
||
"radio_button_tag" "select_tag" "submit_tag" "text_area_tag"
|
||
"text_field_tag"
|
||
"collection_select" "country_options_for_select" "country_select"
|
||
"option_groups_from_collection_for_select" "options_for_select"
|
||
"options_from_collection_for_select" "select"
|
||
"time_zone_options_for_select"
|
||
"time_zone_select" "button_to_function" "define_javascript_functions"
|
||
"escape_javascript" "javascript_tag" "link_to_function"" "
|
||
"number_to_currency" "number_to_human_size" "number_to_percentage"
|
||
"number_to_phone" "number_with_delimiter" "number_with_precision"
|
||
"evaluate_remote_response" "form_remote_for" "form_remote_tag"
|
||
"link_to_remote" "observe_field" "observe_field"
|
||
"periodically_call_remote"
|
||
"remote_form_for" "remote_function" "submit_to_remote" "update_page"
|
||
"update_page_tag" "dom_class" "dom_id" "partial_path" "sanitize"
|
||
"sanitize_css" "strip_links" "strip_tags"
|
||
"cdata_section" "content_tag" "escape_once" "tag"
|
||
"auto_link" "concat" "cycle" "excerpt" "highlight" "markdown" "pluralize"
|
||
"reset_cycle" "simple_format" "textilize" "textilize_without_paragraph"
|
||
"truncate" "word_wrap" "button_to" "current_page?" "link_to" "link_to_if"
|
||
"link_to_unless" "link_to_unless_current" "mail_to" "url_for"
|
||
"action_name" "atom_feed" "audio_path" "audio_tag"
|
||
"content_tag_for" "controller" "controller_name" "action_name"
|
||
"controller_path" "convert_to_model" "cookies" "csrf_meta_tag"
|
||
"csrf_meta_tags" "headers"
|
||
"current_cycle" "div_for" "email_field" "email_field_tag"
|
||
"favicon_link_tag" "flash" "l" "button_tag"
|
||
"grouped_collection_select" "grouped_options_for_select"
|
||
"image_alt" "j" "javascript_cdata_section"
|
||
"localize" "logger" "number_field"
|
||
"number_field_tag" "number_to_human" "params" "path_to_audio"
|
||
"path_to_video" "phone_field" "phone_field_tag" "provide"
|
||
"range_field" "range_field_tag" "raw" "render" "request"
|
||
"request_forgery_protection_token" "response" "safe_concat"
|
||
"safe_join" "search_field" "search_field_tag"
|
||
"session" "t" "telephone_field" "telephone_field_tag"
|
||
"time_tag" "translate" "url_field" "url_field_tag"
|
||
"url_options" "video_path" "video_tag" "simple_form_for"
|
||
|
||
))))
|
||
|
||
(defvar web-mode-asp-constants
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "asp" web-mode-extra-constants))
|
||
'("adAsyncExecute" "adAsyncFetch" "adAsyncFetchNonBlocking" "adCmdFile"
|
||
"adCmdStoredProc" "adCmdTable" "adCmdTableDirect" "adCmdText" "adCmdUnknown"
|
||
"adCmdUnspecified" "adExecuteNoRecords" "adExecuteRecord" "adExecuteStream"
|
||
"adLockBatchOptimistic" "adLockOptimistic" "adLockPessimistic"
|
||
"adLockReadOnly" "adLockUnspecified" "adOpenDynamic" "adOpenForwardOnly"
|
||
"adOpenKeyset" "adOpenStatic" "adOpenUnspecified" "adOptionUnspecified"
|
||
"Empty" "Nothing" "Null" "True" "False"
|
||
"vbBack" "vbCr" "vbCrLf" "vbFormFeed" "vbLf" "vbNewLine" "vbNullChar"
|
||
"vbNullString" "vbObjectError" "vbScript" "vbTab" "vbVerticalTab"))))
|
||
|
||
(defvar web-mode-asp-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "asp" web-mode-extra-keywords))
|
||
'("Abs" "And" "Array" "Asc" "Atn"
|
||
"CBool" "CByte" "CCur" "CDate" "CDbl" "CInt" "CLng" "CSng" "CStr"
|
||
"Call" "Case" "Chr" "Class" "Const" "Cos" "CreateObject"
|
||
"Date" "DateAdd" "DateDiff" "DatePart" "DateSerial" "DateValue"
|
||
"Day" "Dim" "Do"
|
||
"Each" "Else" "ElseIf" "End" "Erase" "Err" "Eval" "Exit" "Exp"
|
||
"Explicit"
|
||
"Filter" "Fix" "For" "FormatCurrency" "FormatDateTime"
|
||
"FormatNumber" "FormatPercent" "Function"
|
||
"GetLocale" "GetObject" "GetRef" "Hex" "Hour"
|
||
"If" "In" "InStr" "InStrRev" "InputBox" "Int" "IsArray" "IsDate"
|
||
"IsEmpty" "IsNull" "IsNumeric" "IsObject" "Join"
|
||
"LBound" "LCase" "LTrim" "Language" "Left" "Len" "Let"
|
||
"LoadPicture" "Log" "Loop"
|
||
"Mid" "Minute" "Month" "MonthName" "MsgBox"
|
||
"New" "Next" "Not" "Now"
|
||
"Oct" "On" "Option" "Or" "Preserve" "Private" "Public"
|
||
"RGB" "RTrim" "Redim" "Rem" "Replace" "Right" "Rnd" "Round"
|
||
"ScriptEngine" "ScriptEngineBuildVersion"
|
||
"ScriptEngineMajorVersion" "ScriptEngineMinorVersion"
|
||
"Second" "Select" "Set" "SetLocale" "Sgn" "Sin" "Space" "Split"
|
||
"Sqr" "StrComp" "StrReverse" "String" "Sub"
|
||
"Tan" "Then" "Time" "TimeSerial" "TimeValue" "Timer" "To" "Trim"
|
||
"TypeName"
|
||
"UBound" "UCase" "Until" "VarType"
|
||
"Weekday" "WeekdayName" "Wend" "With" "While" "Year"))))
|
||
|
||
(defvar web-mode-asp-types
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "asp" web-mode-extra-types))
|
||
'("Application" "ASPError" "Request" "Response" "Server" "Session"))))
|
||
|
||
(defvar web-mode-aspx-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "aspx" web-mode-extra-keywords))
|
||
'("case" "catch" "do" "else" "end" "for" "foreach" "function"
|
||
"if" "in" "include" "new" "package" "page" "return"
|
||
"tag" "throw" "throws" "try" "while"))))
|
||
|
||
(defvar web-mode-smarty-keywords
|
||
(regexp-opt '("as")))
|
||
|
||
(defvar web-mode-velocity-keywords
|
||
(eval-when-compile
|
||
(regexp-opt '("in" "true" "false"))))
|
||
|
||
(defvar web-mode-freemarker-keywords
|
||
(eval-when-compile
|
||
(regexp-opt '("as" "list"))))
|
||
|
||
(defvar web-mode-go-keywords
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("define" "else" "end" "if" "pipeline" "range" "template" "with"))))
|
||
|
||
(defvar web-mode-go-functions
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("and" "call" "html" "index" "js" "len" "not" "or"
|
||
"print" "printf" "println" "urlquery"))))
|
||
|
||
(defvar web-mode-closure-keywords
|
||
(eval-when-compile
|
||
(regexp-opt '("in" "and" "not" "or"))))
|
||
|
||
(defvar web-mode-django-control-blocks
|
||
'(
|
||
|
||
"assets" "autoescape"
|
||
"block" "blocktrans"
|
||
"cache" "call" "capture" "comment"
|
||
"draw"
|
||
"embed"
|
||
"filter" "for" "foreach" "form"
|
||
"if" "ifchanged" "ifequal" "ifnotequal"
|
||
"macro"
|
||
"random" "raw"
|
||
"safe" "sandbox" "spaceless"
|
||
"tablerow"
|
||
"unless"
|
||
"verbatim"
|
||
"with"
|
||
|
||
"endassets" "endautoescape"
|
||
"endblock" "endblocktrans"
|
||
"endcache" "endcall" "endcapture" "endcomment"
|
||
"draw"
|
||
"endembed"
|
||
"endfilter" "endfor" "endforeach" "endform"
|
||
"endif" "endifchanged" "endifequal" "endifnotequal"
|
||
"endmacro"
|
||
"endrandom" "endraw"
|
||
"endsafe" "endsandbox" "endspaceless"
|
||
"endtablerow"
|
||
"endunless"
|
||
"endverbatim"
|
||
"endwith"
|
||
|
||
;; "set" "endset" ;#504
|
||
|
||
"csrf_token" "cycle" "debug"
|
||
"elif" "else" "elseif" "elsif" "empty" "extends"
|
||
"firstof" "include" "load" "lorem" "now" "regroup" "ssi"
|
||
"trans" "templatetag" "url" "widthratio"
|
||
|
||
))
|
||
|
||
(defvar web-mode-django-control-blocks-regexp
|
||
(regexp-opt web-mode-django-control-blocks t))
|
||
|
||
(defvar web-mode-django-keywords
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("and" "as" "assign"
|
||
"break"
|
||
"cache" "call" "case" "context" "continue"
|
||
"do"
|
||
"flush" "from"
|
||
"ignore" "import" "in" "is"
|
||
"layout" "load"
|
||
"missing"
|
||
"none" "not"
|
||
"or"
|
||
"pluralize"
|
||
"random"
|
||
"set" ;#504
|
||
"unless" "use"
|
||
"var"
|
||
))))
|
||
|
||
(defvar web-mode-django-types
|
||
(eval-when-compile
|
||
(regexp-opt '("null" "false" "true"))))
|
||
|
||
(defvar web-mode-directives
|
||
(eval-when-compile
|
||
(regexp-opt
|
||
'("include" "page" "taglib"
|
||
"Assembly" "Control" "Implements" "Import"
|
||
"Master" "OutputCache" "Page" "Reference" "Register"))))
|
||
|
||
(defvar web-mode-template-toolkit-keywords
|
||
(regexp-opt
|
||
'("block" "call" "case" "catch" "clear" "default" "do"
|
||
"else" "elsif" "end" "filter" "final" "for"
|
||
"foreach" "get" "if" "in" "include" "insert" "is" "last"
|
||
"macro" "meta" "or" "perl" "process" "rawperl" "return"
|
||
"set" "stop" "switch" "tags" "throw" "try"
|
||
"unless" "use" "while" "wrapper")))
|
||
|
||
(defvar web-mode-perl-keywords
|
||
(regexp-opt
|
||
'("__DATA__" "__END__" "__FILE__" "__LINE__" "__PACKAGE__"
|
||
"and" "cmp" "continue" "CORE" "do" "else" "elsif" "eq" "exp"
|
||
"for" "foreach" "ge" "gt" "if" "le" "lock" "lt" "m" "ne" "no"
|
||
"or" "package" "q" "qq" "qr" "qw" "qx" "s" "sub"
|
||
"tr" "unless" "until" "while" "xor" "y"
|
||
"my" "use" "print" "say")))
|
||
|
||
(defvar web-mode-javascript-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "javascript" web-mode-extra-keywords))
|
||
'("break" "case" "catch" "class" "const" "continue"
|
||
"debugger" "default" "delete" "do" "else" "enum" "eval"
|
||
"export" "extends" "finally" "for" "from" "function" "get" "if"
|
||
"implements" "import" "in" "instanceof" "interface" "let"
|
||
"new" "package" "private" "protected" "public"
|
||
"return" "set" "static" "super" "switch"
|
||
"throw" "try" "typeof" "var" "void" "while" "with" "yield"))))
|
||
|
||
(defvar web-mode-javascript-constants
|
||
(regexp-opt
|
||
'("false" "null" "undefined" "Infinity" "NaN" "true" "arguments" "this")))
|
||
|
||
(defvar web-mode-razor-keywords
|
||
(regexp-opt
|
||
(append
|
||
(cdr (assoc "razor" web-mode-extra-keywords))
|
||
'("false" "true" "foreach" "if" "else" "in" "var" "for" "display"
|
||
"match" "case"
|
||
"Html"))))
|
||
|
||
(defvar web-mode-selector-font-lock-keywords
|
||
(list
|
||
'("$[[:alnum:]-]+" 0 'web-mode-css-variable-face)
|
||
(cons (concat "@\\(" web-mode-css-at-rules "\\)\\_>")
|
||
'(0 'web-mode-css-at-rule-face))
|
||
'("\\_<\\(all\|braille\\|embossed\\|handheld\\|print\\|projection\\|screen\\|speech\\|tty\\|tv\\|and\\|or\\)\\_>"
|
||
1 'web-mode-keyword-face)
|
||
'("[^,]+" 0 'web-mode-css-selector-face)
|
||
(cons (concat ":\\(" web-mode-css-pseudo-classes "\\)\\(([^)]*)\\)?")
|
||
'(0 'web-mode-css-pseudo-class-face t t))
|
||
))
|
||
|
||
(defvar web-mode-declaration-font-lock-keywords
|
||
(list
|
||
'("--[[:alnum:]-]+" 0 'web-mode-css-variable-face)
|
||
'("$[[:alnum:]-]+" 0 'web-mode-css-variable-face)
|
||
(cons (concat "@\\(" web-mode-css-at-rules "\\)\\_>") '(1 'web-mode-css-at-rule-face))
|
||
'("\\([[:alpha:]-]+\\)[ ]?:" 0 'web-mode-css-property-name-face)
|
||
'("\\([[:alpha:]-]+\\)[ ]?(" 1 'web-mode-css-function-face)
|
||
'("#[[:alnum:]]\\{1,6\\}" 0 'web-mode-css-color-face t t)
|
||
'("![ ]?important" 0 'web-mode-css-priority-face t t)
|
||
'("\\([^,]+\\)[ ]+{" 1 'web-mode-css-selector-face)
|
||
'("'[^']*'\\|\"[^\"]*\"" 0 'web-mode-string-face t t)
|
||
))
|
||
|
||
(defvar web-mode-html-font-lock-keywords
|
||
(list
|
||
'("</?[[:alnum:]]+[ >]\\|>" 0 'web-mode-html-tag-face t)
|
||
'(" \\([[:alnum:]-]+=\\)\\(\"[^\"]+\"\\)"
|
||
(1 'web-mode-html-attr-name-face)
|
||
(2 'web-mode-html-attr-value-face))
|
||
))
|
||
|
||
(defvar web-mode-javascript-font-lock-keywords
|
||
(list
|
||
'("@\\([[:alnum:]_]+\\)\\_>" 0 'web-mode-keyword-face)
|
||
(cons (concat "\\_<\\(" web-mode-javascript-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-javascript-constants "\\)\\_>") '(0 'web-mode-constant-face))
|
||
'("\\_<\\(new\\|instanceof\\|class\\|extends\\) \\([[:alnum:]_.]+\\)\\_>" 2 'web-mode-type-face)
|
||
'("\\_<\\([[:alnum:]_]+\\):[ ]*function[ ]*(" 1 'web-mode-function-name-face)
|
||
'("\\_<\\(function\\|get\\|set\\)[ ]+\\([[:alnum:]_]+\\)"
|
||
(1 'web-mode-keyword-face)
|
||
(2 'web-mode-function-name-face))
|
||
'("([ ]*\\([[:alnum:]_]+\\)[ ]*=>" 1 'web-mode-function-name-face)
|
||
'("[ ]*\\([[:alnum:]_]+\\)[ ]*=[ ]*([^)]*)[ ]*=>[ ]*{" 1 'web-mode-function-name-face)
|
||
'("\\_<\\(var\\|let\\|const\\)[ ]+\\([[:alnum:]_]+\\)" 2 'web-mode-variable-name-face)
|
||
'("\\([[:alnum:]_]+\\)[ ]*=> [{(]" 1 'web-mode-variable-name-face)
|
||
'("\\(function\\|[,=]\\|^\\)[ ]*("
|
||
("\\([[:alnum:]_]+\\)\\([ ]*=[^,)]*\\)?[,)]" nil nil (1 'web-mode-variable-name-face)))
|
||
'("\\([[:alnum:]_]+\\):" 1 'web-mode-variable-name-face)
|
||
'("\\_<\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
))
|
||
|
||
(defvar web-mode-html-tag-font-lock-keywords
|
||
(list
|
||
'("\\(</?\\)\\([[:alnum:]]+\\)"
|
||
(1 'web-mode-html-tag-bracket-face)
|
||
(2 'web-mode-html-tag-face))
|
||
'("\"[^\"]*\"" 0 'web-mode-html-attr-value-face)
|
||
'("\\([[:alnum:]]+\\)" 1 'web-mode-html-attr-name-face)
|
||
'("/?>" 0 'web-mode-html-tag-bracket-face)
|
||
))
|
||
|
||
(defvar web-mode-dust-font-lock-keywords
|
||
(list
|
||
'("{[#:/?@><+^]\\([[:alpha:]_.]+\\)" 1 'web-mode-block-control-face)
|
||
'(":\\([[:alpha:]]+\\)" 1 'web-mode-keyword-face)
|
||
'("\\_<\\([[:alnum:]_]+=\\)\\(\"[^\"]*\"\\|[[:alnum:]_]*\\)"
|
||
(1 'web-mode-block-attr-name-face)
|
||
(2 'web-mode-block-attr-value-face))
|
||
'("\\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-template-toolkit-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-template-toolkit-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
'("\\\([[:alpha:]][[:alnum:]_]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("\\\([[:alpha:]][[:alnum:]_]+\\)" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-smarty-font-lock-keywords
|
||
(list
|
||
(cons (concat "[ ]\\(" web-mode-smarty-keywords "\\)[ ]") '(1 'web-mode-keyword-face))
|
||
'("{/?\\([[:alpha:]_]+\\)" 1 'web-mode-block-control-face)
|
||
'("\\([}{]\\)" 0 'web-mode-block-delimiter-face)
|
||
'("\\_<\\([$]\\)\\([[:alnum:]_]+\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
'("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'(" \\(\\sw+[ ]?=\\)" 1 'web-mode-param-name-face)
|
||
'(" \\(\\sw+\\)[ }]" 1 'web-mode-param-name-face)
|
||
'("|\\([[:alnum:]_]+\\)" 1 'web-mode-function-call-face)
|
||
'("\\(->\\)\\(\\sw+\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
'("[.]\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[.]\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face)
|
||
'("#\\([[:alnum:]_]+\\)#" 1 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-velocity-font-lock-keywords
|
||
(list
|
||
'("#{?\\([[:alpha:]_]+\\)\\_>" (1 'web-mode-block-control-face))
|
||
(cons (concat "\\_<\\(" web-mode-velocity-keywords "\\)\\_>") '(1 'web-mode-keyword-face t t))
|
||
'("#macro([ ]*\\([[:alpha:]]+\\)[ ]+" 1 'web-mode-function-name-face)
|
||
'("[.]\\([[:alnum:]_-]+\\)" 1 'web-mode-variable-name-face)
|
||
'("\\_<\\($[!]?[{]?\\)\\([[:alnum:]_-]+\\)[}]?" (1 nil) (2 'web-mode-variable-name-face))
|
||
))
|
||
|
||
(defvar web-mode-mako-tag-font-lock-keywords
|
||
(list
|
||
'("</?%\\([[:alpha:]:]+\\)" 1 'web-mode-block-control-face)
|
||
'("\\_<\\([[:alpha:]]+=\\)\\(\"[^\"]*\"\\)"
|
||
(1 'web-mode-block-attr-name-face t t)
|
||
(2 'web-mode-block-attr-value-face t t))
|
||
))
|
||
|
||
(defvar web-mode-mako-block-font-lock-keywords
|
||
(list
|
||
'("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
(cons (concat "\\_<\\(" web-mode-python-constants "\\)\\_>") '(1 'web-mode-constant-face))
|
||
(cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(endfor\\|endif\\|endwhile\\)\\_>") '(1 'web-mode-keyword-face))
|
||
))
|
||
|
||
(defvar web-mode-web2py-font-lock-keywords
|
||
(list
|
||
'("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
(cons (concat "\\_<\\(" web-mode-python-constants "\\)\\_>") '(1 'web-mode-constant-face))
|
||
(cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(block\\|extend\\|super\\|end\\|include\\)\\_>") '(1 'web-mode-keyword-face))
|
||
))
|
||
|
||
(defvar web-mode-django-expr-font-lock-keywords
|
||
(list
|
||
'("|[ ]?\\([[:alpha:]_]+\\)\\_>" 1 'web-mode-filter-face)
|
||
(cons (concat "\\_<\\(" web-mode-django-types "\\)\\_>") '(1 'web-mode-type-face))
|
||
'("\\_<\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alnum:]_]+" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-django-code-font-lock-keywords
|
||
(list
|
||
(cons (concat "{%[ ]*\\(" web-mode-django-control-blocks-regexp "\\)[ %]") '(1 'web-mode-block-control-face))
|
||
'("{%[ ]*\\(end[[:alpha:]]+\\)\\_>" 1 'web-mode-block-control-face) ;#504
|
||
(cons (concat "\\_<\\(" web-mode-django-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-django-types "\\)\\_>") '(1 'web-mode-type-face))
|
||
'("|[ ]?\\([[:alpha:]_]+\\)\\_>" 1 'web-mode-function-call-face)
|
||
'("\\_<\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alnum:]_.]+" 0 'web-mode-variable-name-face)
|
||
'("[[:alnum:]_]+\\([.][[:alnum:]_]+\\)+" 0 'web-mode-variable-name-face t t)
|
||
))
|
||
|
||
(defvar web-mode-ctemplate-font-lock-keywords
|
||
(list
|
||
'("{[~]?{[#/>]?[ ]*\\([[:alnum:]_-]+\\)" 1 'web-mode-block-control-face)
|
||
'("[ \t]+\\([[:alnum:]_]+\\)=\\([[:alnum:]_.]+\\|\"[^\"]+\"\\|\([^)]+\)\\)"
|
||
(1 'web-mode-block-attr-name-face)
|
||
(2 'web-mode-block-attr-value-face))
|
||
'("\"[^\"]+\"" 0 'web-mode-block-string-face)
|
||
))
|
||
|
||
(defvar web-mode-razor-font-lock-keywords
|
||
(list
|
||
'("@\\([[:alnum:]_.]+\\)[ ]*[({]" 1 'web-mode-block-control-face)
|
||
(cons (concat "\\_<\\(" web-mode-razor-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
'("@\\([[:alnum:]_.]+\\)" 1 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-riot-font-lock-keywords
|
||
(list
|
||
'("\\(parent\\|opts\\|tags\\|this\\)\\.\\([[:alnum:]_.]+\\)"
|
||
(1 'web-mode-constant-face)
|
||
(2 'web-mode-variable-name-face))
|
||
'("\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-closure-font-lock-keywords
|
||
(list
|
||
'("{/?\\([[:alpha:]]+\\)" 1 'web-mode-block-control-face)
|
||
'("{param[ ]+\\([[:alnum:]]+\\)" 1 'web-mode-symbol-face)
|
||
'("\\_<\\(true\\|false\\|null\\)\\_>" 1 'web-mode-type-face)
|
||
(cons (concat "\\_<\\(" web-mode-closure-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
'("{\\(alias\\|call\\|delcall\\|delpackage\\|deltemplate\\|namespace\\|template\\)[ ]+\\([[:alnum:].]+\\)" 2 'web-mode-constant-face)
|
||
'("\\(allowemptydefault\\|data\\|desc\\|meaning\\|autoescape\\|private\\|variant\\)=" 0 'web-mode-block-attr-name-face)
|
||
'("|\\([[:alpha:]]+\\)" 1 'web-mode-function-call-face)
|
||
'("\\_<\\([[:alnum:]]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("$\\([[:alnum:]._]+\\)" 1 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-go-font-lock-keywords
|
||
(list
|
||
'("{{[ ]*\\([[:alpha:]]+\\)" 1 'web-mode-block-control-face)
|
||
(cons (concat "\\_<\\(" web-mode-go-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-go-functions "\\)\\_>") '(1 'web-mode-function-call-face))
|
||
'("[$.]\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face t t)
|
||
))
|
||
|
||
(defvar web-mode-expression-font-lock-keywords
|
||
(list
|
||
'("[[:alpha:]_]" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-angular-font-lock-keywords
|
||
(list
|
||
'("[[:alpha:]_]" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-underscore-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-javascript-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("\\_<\\(_\.[[:alpha:]]+\\)(" 1 'web-mode-function-call-face)
|
||
'("\\_<new \\([[:alnum:]_.]+\\)\\_>" 1 'web-mode-type-face)
|
||
'("\\_<\\([[:alnum:]_]+\\):[ ]*function[ ]*(" 1 'web-mode-function-name-face)
|
||
'("\\_<\\(var\\)\\_>[ ]+\\([[:alnum:]_]+\\)"
|
||
(1 'web-mode-keyword-face)
|
||
(2 'web-mode-variable-name-face))
|
||
))
|
||
|
||
(defvar web-mode-engine-tag-font-lock-keywords
|
||
(list
|
||
'("</?\\([[:alpha:]]+\\(?:Template\\|[:.][[:alpha:]-]+\\)\\)" 1 'web-mode-block-control-face)
|
||
'("\\_<\\([[:alpha:]-]+=\\)\\(\"[^\"]*\"\\)"
|
||
(1 'web-mode-block-attr-name-face t t)
|
||
(2 'web-mode-block-attr-value-face t t))
|
||
'("\\_<\\([[:alpha:]-]+=\\)\\('[^']*\'\\)"
|
||
(1 'web-mode-block-attr-name-face t t)
|
||
(2 'web-mode-block-attr-value-face t t))
|
||
))
|
||
|
||
(defvar web-mode-jsp-font-lock-keywords
|
||
(list
|
||
'("\\(throws\\|new\\|extends\\)[ ]+\\([[:alnum:].]+\\)" 2 'web-mode-type-face)
|
||
(cons (concat "\\_<\\(" web-mode-jsp-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("@\\(\\sw*\\)" 1 'web-mode-variable-name-face)
|
||
'("\\_<\\([[:alnum:].]+\\)[ ]+[{[:alpha:]]+" 1 'web-mode-type-face)
|
||
))
|
||
|
||
(defvar web-mode-asp-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-asp-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-asp-types "\\)\\_>") '(0 'web-mode-type-face))
|
||
(cons (concat "\\_<\\(" web-mode-asp-constants "\\)\\_>") '(0 'web-mode-constant-face))
|
||
'("\\(Class\\|new\\) \\([[:alnum:]_]+\\)" 2 'web-mode-type-face)
|
||
'("Const \\([[:alnum:]_]+\\)" 1 'web-mode-constant-face)
|
||
'("\\_<dim\\_>"
|
||
(0 'web-mode-keyword-face)
|
||
("[[:alnum:]_]+" nil nil (0 'web-mode-variable-name-face)))
|
||
'("\\_<\\(public\\|private\\|sub\\|function\\)\\_> \\([[:alnum:]_]+\\)[ ]*(" 2 'web-mode-function-name-face)
|
||
'("\\_<\\(public\\|private\\|dim\\)\\_> \\([[:alnum:]_]+\\)" 2 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-aspx-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-aspx-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("\\_<\\([[:alnum:].]+\\)[ ]+[[:alpha:]]+" 1 'web-mode-type-face)
|
||
))
|
||
|
||
(defvar web-mode-uel-font-lock-keywords
|
||
(list
|
||
'("[$#{]{\\|}" 0 'web-mode-preprocessor-face)
|
||
'("\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("|[ ]*\\(trim\\|x\\|u\\)" 1 'web-mode-function-call-face)
|
||
'("[[:alpha:]_]" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-php-var-interpolation-font-lock-keywords
|
||
(list
|
||
'("[[:alpha:]_]" 0 'web-mode-variable-name-face)
|
||
'("\".+\"\\|'.*'" 0 'web-mode-string-face)
|
||
))
|
||
|
||
(defvar web-mode-marko-font-lock-keywords
|
||
(list
|
||
'("[[:alnum:]_]+" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-freemarker-square-font-lock-keywords
|
||
(list
|
||
'("\\[/?[#@]\\([[:alpha:]_.]*\\)" 1 'web-mode-block-control-face)
|
||
'("#\\(macro\\|function\\) \\([[:alpha:]]+\\)" 2 'web-mode-function-name-face)
|
||
(cons (concat "\\_<\\(" web-mode-freemarker-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
'("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alpha:]]\\([[:alnum:]_]+\\)?" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-freemarker-font-lock-keywords
|
||
(list
|
||
'("</?[#@]\\([[:alpha:]_.]*\\)" 1 'web-mode-block-control-face)
|
||
'("#\\(macro\\|function\\) \\([[:alpha:]]+\\)" 2 'web-mode-function-name-face)
|
||
(cons (concat "\\_<\\(" web-mode-freemarker-keywords "\\)\\_>") '(1 'web-mode-keyword-face))
|
||
'("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alpha:]]\\([[:alnum:]_]+\\)?" 0 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-directive-font-lock-keywords
|
||
(list
|
||
'("<%@[ ]*\\([[:alpha:]]+\\)[ ]+" 1 'web-mode-block-control-face)
|
||
'("\\_<\\([[:alpha:]]+=\\)\\(\"[^\"]*\"\\)"
|
||
(1 'web-mode-block-attr-name-face t t)
|
||
(2 'web-mode-block-attr-value-face t t))
|
||
))
|
||
|
||
(defvar web-mode-erb-font-lock-keywords
|
||
(list
|
||
'("[^:]\\(:[[:alnum:]_]+\\)" 1 'web-mode-symbol-face)
|
||
'("\\([[:alnum:]_]+:\\)[ ]+" 1 'web-mode-symbol-face)
|
||
(cons (concat "\\_<\\(" web-mode-erb-builtins "\\)\\_>") '(0 'web-mode-builtin-face))
|
||
(cons (concat "\\_<\\(" web-mode-erb-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("\\_<\\(self\\|true\\|false\\|nil\\)\\_>" 0 'web-mode-variable-name-face)
|
||
'("[@$]@?\\([[:alnum:]_]+\\)" 0 'web-mode-variable-name-face)
|
||
'("class[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-type-face)
|
||
'("def[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face)
|
||
'("\\(?:\\_<\\|::\\)\\([A-Z]+[[:alnum:]_]+\\)" 1 (unless (eq (char-after) ?\() 'web-mode-type-face))
|
||
'("/[^/]+/" 0 'web-mode-string-face)
|
||
))
|
||
|
||
(defvar web-mode-ejs-font-lock-keywords
|
||
web-mode-javascript-font-lock-keywords)
|
||
|
||
(defvar web-mode-python-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
))
|
||
|
||
(defvar web-mode-erlang-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-erlang-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-erlang-constants "\\)\\_>") '(0 'web-mode-constant-face))
|
||
'("@\\([[:alnum:]_]+\\)" 0 'web-mode-variable-name-face)
|
||
'("[ ]\\(:[[:alnum:]-_]+\\)" 1 'web-mode-symbol-face)
|
||
))
|
||
|
||
(defvar web-mode-mason-code-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-mason-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("sub[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face)
|
||
'("\\_<\\([[:alnum:]_]+\\)[ ]?::" 1 'web-mode-type-face)
|
||
'("\\([@]\\)\\([[:alnum:]#_]*\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
'("\\_<\\([$%]\\)\\([[:alnum:]@#_]*\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
'("{\\([[:alnum:]_]+\\)}" 1 'web-mode-variable-name-face)
|
||
'("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alnum:]_][ ]?::[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face)
|
||
'("->[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face)
|
||
'("\\(?:method\\|def\\) \\([[:alnum:]._]+\\)" 1 'web-mode-function-name-face)
|
||
'("|[ ]*\\([[:alnum:],]+\\)[ ]*%>" 1 'web-mode-filter-face)
|
||
))
|
||
|
||
(defvar web-mode-mason-block-font-lock-keywords
|
||
(list
|
||
'("<[/]?%\\([[:alpha:]]+\\)" 1 'web-mode-block-control-face)
|
||
'("[[:alpha:]]" 0 'web-mode-block-attr-value-face)
|
||
))
|
||
|
||
(defvar web-mode-mojolicious-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-perl-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
'("\\_<\\(begin\\|end\\)\\_>" 1 'web-mode-constant-face)
|
||
'("\\_<\\([$]\\)\\([[:alnum:]_]*\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
))
|
||
|
||
(defvar web-mode-lsp-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-lsp-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-lsp-constants "\\)\\_>") '(1 'web-mode-constant-face))
|
||
'("[ ]\\(:[[:alnum:]-_]+\\)" 1 'web-mode-symbol-face)
|
||
'("(defun \\([[:alnum:]-:]+\\)" 1 'web-mode-function-name-face)
|
||
'("(defvar \\([[:alnum:]-:]+\\)" 1 'web-mode-variable-name-face)
|
||
))
|
||
|
||
(defvar web-mode-cl-emb-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-cl-emb-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "\\_<\\(" web-mode-cl-emb-constants "\\)\\_>") '(0 'web-mode-constant-face))
|
||
'("\\(@\\)" 1 'web-mode-function-call-face)
|
||
(list (concat "\\(@" web-mode-cl-emb-keywords "\\)[ ]+\\([[:alnum:]_]+\\)")
|
||
'(1 'web-mode-keyword-face)
|
||
'(2 'web-mode-variable-name-face))
|
||
))
|
||
|
||
(defvar web-mode-php-font-lock-keywords
|
||
(list
|
||
(cons (concat "\\_<\\(" web-mode-php-keywords "\\)\\_>") '(0 'web-mode-keyword-face))
|
||
(cons (concat "(\\_<\\(" web-mode-php-types "\\)\\_>") '(1 'web-mode-type-face))
|
||
(cons (concat "\\_<\\(" web-mode-php-constants "\\)\\_>") '(0 'web-mode-constant-face))
|
||
'("function[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face)
|
||
'("\\_<\\([[:alnum:]_]+\\)[ ]?(" 1 'web-mode-function-call-face)
|
||
'("[[:alnum:]_][ ]?::[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-constant-face)
|
||
'("->[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face)
|
||
'("\\_<\\([[:alnum:]_]+\\)[ ]?::" 1 'web-mode-type-face)
|
||
'("\\_<\\(instanceof\\|class\\|extends\\|new\\)[ ]+\\([[:alnum:]_]+\\)" 2 'web-mode-type-face)
|
||
'("\\_<\\([$]\\)\\([[:alnum:]_]*\\)" (1 nil) (2 'web-mode-variable-name-face))
|
||
))
|
||
|
||
(defvar web-mode-latex-font-lock-keywords
|
||
(list
|
||
'("[[:alnum:]_]+" 0 'web-mode-function-name-face t t)
|
||
))
|
||
|
||
(defvar web-mode-blade-font-lock-keywords
|
||
(append
|
||
(list
|
||
'("@\\([[:alpha:]_]+\\)" (1 'web-mode-block-control-face)))
|
||
web-mode-php-font-lock-keywords))
|
||
|
||
(defvar web-mode-engines-font-lock-keywords
|
||
'(("angular" . web-mode-angular-font-lock-keywords)
|
||
("blade" . web-mode-blade-font-lock-keywords)
|
||
("cl-emb" . web-mode-cl-emb-font-lock-keywords)
|
||
("closure" . web-mode-closure-font-lock-keywords)
|
||
("ctemplate" . web-mode-ctemplate-font-lock-keywords)
|
||
("dust" . web-mode-dust-font-lock-keywords)
|
||
("elixir" . web-mode-erlang-font-lock-keywords)
|
||
("ejs" . web-mode-ejs-font-lock-keywords)
|
||
("erb" . web-mode-erb-font-lock-keywords)
|
||
("go" . web-mode-go-font-lock-keywords)
|
||
("lsp" . web-mode-lsp-font-lock-keywords)
|
||
("marko" . web-mode-marko-font-lock-keywords)
|
||
("mojolicious" . web-mode-mojolicious-font-lock-keywords)
|
||
("php" . web-mode-php-font-lock-keywords)
|
||
("python" . web-mode-python-font-lock-keywords)
|
||
("razor" . web-mode-razor-font-lock-keywords)
|
||
("riot" . web-mode-riot-font-lock-keywords)
|
||
("smarty" . web-mode-smarty-font-lock-keywords)
|
||
("template-toolkit" . web-mode-template-toolkit-font-lock-keywords)
|
||
("underscore" . web-mode-underscore-font-lock-keywords)
|
||
("web2py" . web-mode-web2py-font-lock-keywords)
|
||
("velocity" . web-mode-velocity-font-lock-keywords))
|
||
"Engines font-lock keywords")
|
||
|
||
(defvar web-mode-before-auto-complete-hooks nil
|
||
"List of functions to run before triggering the auto-complete library.
|
||
|
||
Auto-complete sources will sometimes need some tweaking to work
|
||
nicely with web-mode. This hook gives users the chance to adjust
|
||
the environment as needed for ac-sources, right before they're used.")
|
||
|
||
(defvar web-mode-ignore-ac-start-advice nil
|
||
"If not nil 'defadvice' for 'ac-start' will be ignored.
|
||
|
||
Can be set inside a hook in 'web-mode-before-auto-complete-hooks' to
|
||
non nil to ignore the defadvice which sets ac-sources according to current
|
||
language. This is needed if the corresponding auto-completion triggers
|
||
another auto-completion with different ac-sources (e.g. ac-php)")
|
||
|
||
(defvar web-mode-ac-sources-alist nil
|
||
"alist mapping language names to ac-sources for that language.")
|
||
|
||
(defvar web-mode-syntax-table
|
||
(let ((table (make-syntax-table)))
|
||
(modify-syntax-entry ?- "_" table)
|
||
(modify-syntax-entry ?_ "_" table) ;; #563
|
||
(modify-syntax-entry ?< "." table)
|
||
(modify-syntax-entry ?> "." table)
|
||
(modify-syntax-entry ?& "." table)
|
||
(modify-syntax-entry ?/ "." table)
|
||
(modify-syntax-entry ?= "." table)
|
||
(modify-syntax-entry ?% "." table)
|
||
table)
|
||
"Syntax table used to reveal whitespaces.")
|
||
|
||
(defvar web-mode-map
|
||
(let ((map (make-sparse-keymap)))
|
||
|
||
(define-key map [menu-bar wm] (cons "Web-Mode" (make-sparse-keymap)))
|
||
(define-key map [menu-bar wm dom] (cons "Dom" (make-sparse-keymap)))
|
||
(define-key map [menu-bar wm blk] (cons "Block" (make-sparse-keymap)))
|
||
(define-key map [menu-bar wm attr] (cons "Html Attr" (make-sparse-keymap)))
|
||
(define-key map [menu-bar wm tag] (cons "Html Tag" (make-sparse-keymap)))
|
||
(define-key map [menu-bar wm elt] (cons "Html Element" (make-sparse-keymap)))
|
||
|
||
(define-key map [menu-bar wm sep-1] '(menu-item "--"))
|
||
|
||
(define-key map [menu-bar wm dom dom-xpa] '(menu-item "XPath" web-mode-dom-xpath))
|
||
(define-key map [menu-bar wm dom dom-tra] '(menu-item "Traverse" web-mode-dom-traverse))
|
||
(define-key map [menu-bar wm dom dom-err] '(menu-item "Show error(s)" web-mode-dom-errors-show))
|
||
(define-key map [menu-bar wm dom dom-ent] '(menu-item "Replace html entities" web-mode-dom-entities-replace))
|
||
(define-key map [menu-bar wm dom dom-quo] '(menu-item "Replace dumb quotes" web-mode-dom-quotes-replace))
|
||
(define-key map [menu-bar wm dom dom-apo] '(menu-item "Replace apostrophes" web-mode-dom-apostrophes-replace))
|
||
(define-key map [menu-bar wm dom dom-nor] '(menu-item "Normalise" web-mode-dom-normalize))
|
||
|
||
(define-key map [menu-bar wm blk blk-sel] '(menu-item "Select" web-mode-block-select))
|
||
(define-key map [menu-bar wm blk blk-pre] '(menu-item "Previous" web-mode-block-previous))
|
||
(define-key map [menu-bar wm blk blk-nex] '(menu-item "Next" web-mode-block-next))
|
||
(define-key map [menu-bar wm blk blk-kil] '(menu-item "Kill" web-mode-block-kill))
|
||
(define-key map [menu-bar wm blk blk-end] '(menu-item "End" web-mode-block-end))
|
||
(define-key map [menu-bar wm blk blk-clo] '(menu-item "Close" web-mode-block-close))
|
||
(define-key map [menu-bar wm blk blk-beg] '(menu-item "Beginning" web-mode-block-beginning))
|
||
|
||
(define-key map [menu-bar wm attr attr-ins] '(menu-item "Insert" web-mode-attribute-insert))
|
||
(define-key map [menu-bar wm attr attr-end] '(menu-item "End" web-mode-attribute-end))
|
||
(define-key map [menu-bar wm attr attr-beg] '(menu-item "Beginning" web-mode-attribute-beginning))
|
||
(define-key map [menu-bar wm attr attr-sel] '(menu-item "Select" web-mode-attribute-select))
|
||
(define-key map [menu-bar wm attr attr-kil] '(menu-item "Kill" web-mode-attribute-kill))
|
||
(define-key map [menu-bar wm attr attr-nex] '(menu-item "Next" web-mode-attribute-next))
|
||
(define-key map [menu-bar wm attr attr-pre] '(menu-item "Previous" web-mode-attribute-previous))
|
||
(define-key map [menu-bar wm attr attr-tra] '(menu-item "Transpose" web-mode-attribute-transpose))
|
||
|
||
(define-key map [menu-bar wm tag tag-beg] '(menu-item "Sort Attributes" web-mode-tag-attributes-sort))
|
||
(define-key map [menu-bar wm tag tag-sel] '(menu-item "Select" web-mode-tag-select))
|
||
(define-key map [menu-bar wm tag tag-pre] '(menu-item "Previous" web-mode-tag-previous))
|
||
(define-key map [menu-bar wm tag tag-nex] '(menu-item "Next" web-mode-tag-next))
|
||
(define-key map [menu-bar wm tag tag-end] '(menu-item "End" web-mode-tag-end))
|
||
(define-key map [menu-bar wm tag tag-beg] '(menu-item "Beginning" web-mode-tag-beginning))
|
||
|
||
(define-key map [menu-bar wm elt elt-wra] '(menu-item "Wrap" web-mode-element-wrap))
|
||
(define-key map [menu-bar wm elt elt-van] '(menu-item "Vanish" web-mode-element-vanish))
|
||
(define-key map [menu-bar wm elt elt-exc] '(menu-item "Transpose" web-mode-element-transpose))
|
||
(define-key map [menu-bar wm elt elt-sel] '(menu-item "Select" web-mode-element-select))
|
||
(define-key map [menu-bar wm elt elt-ren] '(menu-item "Rename" web-mode-element-rename))
|
||
(define-key map [menu-bar wm elt elt-pre] '(menu-item "Previous" web-mode-element-previous))
|
||
(define-key map [menu-bar wm elt elt-par] '(menu-item "Parent" web-mode-element-parent))
|
||
(define-key map [menu-bar wm elt elt-nex] '(menu-item "Next" web-mode-element-next))
|
||
(define-key map [menu-bar wm elt elt-mut] '(menu-item "Mute blanks" web-mode-element-mute-blanks))
|
||
(define-key map [menu-bar wm elt elt-del] '(menu-item "Kill" web-mode-element-kill))
|
||
(define-key map [menu-bar wm elt elt-end] '(menu-item "End" web-mode-element-end))
|
||
(define-key map [menu-bar wm elt elt-inn] '(menu-item "Content (select)" web-mode-element-content-select))
|
||
(define-key map [menu-bar wm elt elt-clo] '(menu-item "Close" web-mode-element-close))
|
||
(define-key map [menu-bar wm elt elt-ins] '(menu-item "Insert" web-mode-element-insert))
|
||
(define-key map [menu-bar wm elt elt-dup] '(menu-item "Clone" web-mode-element-clone))
|
||
(define-key map [menu-bar wm elt elt-cfo] '(menu-item "Children fold" web-mode-element-children-fold-or-unfold))
|
||
(define-key map [menu-bar wm elt elt-chi] '(menu-item "Child" web-mode-element-child))
|
||
(define-key map [menu-bar wm elt elt-beg] '(menu-item "Beginning" web-mode-element-beginning))
|
||
|
||
(define-key map [menu-bar wm fol] '(menu-item "Fold/Unfold" web-mode-fold-or-unfold))
|
||
(define-key map [menu-bar wm hig] '(menu-item "Highlight buffer" web-mode-buffer-highlight))
|
||
(define-key map [menu-bar wm ind] '(menu-item "Indent buffer" web-mode-buffer-indent))
|
||
(define-key map [menu-bar wm nav] '(menu-item "Tag/Block navigation" web-mode-navigate))
|
||
(define-key map [menu-bar wm exp] '(menu-item "Mark and Expand" web-mode-mark-and-expand))
|
||
(define-key map [menu-bar wm spa] '(menu-item "Toggle whitespaces" web-mode-whitespaces-show))
|
||
(define-key map [menu-bar wm sni] '(menu-item "Insert snippet" web-mode-snippet-insert))
|
||
|
||
;;--------------------------------------------------------------------------
|
||
;; "C-c <LETTER>" are reserved for users
|
||
|
||
(define-key map (kbd "C-c C-a b") 'web-mode-attribute-beginning)
|
||
(define-key map (kbd "C-c C-a e") 'web-mode-attribute-end)
|
||
(define-key map (kbd "C-c C-a i") 'web-mode-attribute-insert)
|
||
(define-key map (kbd "C-c C-a n") 'web-mode-attribute-next)
|
||
(define-key map (kbd "C-c C-a s") 'web-mode-attribute-select)
|
||
(define-key map (kbd "C-c C-a k") 'web-mode-attribute-kill)
|
||
(define-key map (kbd "C-c C-a p") 'web-mode-attribute-previous)
|
||
(define-key map (kbd "C-c C-a t") 'web-mode-attribute-transpose)
|
||
|
||
(define-key map (kbd "C-c C-b b") 'web-mode-block-beginning)
|
||
(define-key map (kbd "C-c C-b c") 'web-mode-block-close)
|
||
(define-key map (kbd "C-c C-b e") 'web-mode-block-end)
|
||
(define-key map (kbd "C-c C-b k") 'web-mode-block-kill)
|
||
(define-key map (kbd "C-c C-b n") 'web-mode-block-next)
|
||
(define-key map (kbd "C-c C-b p") 'web-mode-block-previous)
|
||
(define-key map (kbd "C-c C-b s") 'web-mode-block-select)
|
||
|
||
(define-key map (kbd "C-c C-d a") 'web-mode-dom-apostrophes-replace)
|
||
(define-key map (kbd "C-c C-d d") 'web-mode-dom-errors-show)
|
||
(define-key map (kbd "C-c C-d e") 'web-mode-dom-entities-replace)
|
||
(define-key map (kbd "C-c C-d n") 'web-mode-dom-normalize)
|
||
(define-key map (kbd "C-c C-d q") 'web-mode-dom-quotes-replace)
|
||
(define-key map (kbd "C-c C-d t") 'web-mode-dom-traverse)
|
||
(define-key map (kbd "C-c C-d x") 'web-mode-dom-xpath)
|
||
|
||
(define-key map (kbd "C-c C-e /") 'web-mode-element-close)
|
||
(define-key map (kbd "C-c C-e a") 'web-mode-element-content-select)
|
||
(define-key map (kbd "C-c C-e b") 'web-mode-element-beginning)
|
||
(define-key map (kbd "C-c C-e c") 'web-mode-element-clone)
|
||
(define-key map (kbd "C-c C-e d") 'web-mode-element-child)
|
||
(define-key map (kbd "C-c C-e e") 'web-mode-element-end)
|
||
(define-key map (kbd "C-c C-e f") 'web-mode-element-children-fold-or-unfold)
|
||
(define-key map (kbd "C-c C-e i") 'web-mode-element-insert)
|
||
(define-key map (kbd "C-c C-e k") 'web-mode-element-kill)
|
||
(define-key map (kbd "C-c C-e m") 'web-mode-element-mute-blanks)
|
||
(define-key map (kbd "C-c C-e n") 'web-mode-element-next)
|
||
(define-key map (kbd "C-c C-e p") 'web-mode-element-previous)
|
||
(define-key map (kbd "C-c C-e r") 'web-mode-element-rename)
|
||
(define-key map (kbd "C-c C-e s") 'web-mode-element-select)
|
||
(define-key map (kbd "C-c C-e t") 'web-mode-element-transpose)
|
||
(define-key map (kbd "C-c C-e u") 'web-mode-element-parent)
|
||
(define-key map (kbd "C-c C-e v") 'web-mode-element-vanish)
|
||
(define-key map (kbd "C-c C-e w") 'web-mode-element-wrap)
|
||
|
||
(define-key map (kbd "C-c C-t a") 'web-mode-tag-attributes-sort)
|
||
(define-key map (kbd "C-c C-t b") 'web-mode-tag-beginning)
|
||
(define-key map (kbd "C-c C-t e") 'web-mode-tag-end)
|
||
(define-key map (kbd "C-c C-t m") 'web-mode-tag-match)
|
||
(define-key map (kbd "C-c C-t n") 'web-mode-tag-next)
|
||
(define-key map (kbd "C-c C-t p") 'web-mode-tag-previous)
|
||
(define-key map (kbd "C-c C-t s") 'web-mode-tag-select)
|
||
|
||
;;--------------------------------------------------------------------------
|
||
|
||
(define-key map (kbd "M-;") 'web-mode-comment-or-uncomment)
|
||
|
||
;;C-c C-a : attribute
|
||
;;C-c C-b : block
|
||
;;C-c C-d : dom
|
||
;;C-c C-e : element
|
||
(define-key map (kbd "C-c C-f") 'web-mode-fold-or-unfold)
|
||
(define-key map (kbd "C-c C-h") 'web-mode-buffer-highlight)
|
||
(define-key map (kbd "C-c C-i") 'web-mode-buffer-indent)
|
||
(define-key map (kbd "C-c C-j") 'web-mode-jshint)
|
||
(define-key map (kbd "C-c C-m") 'web-mode-mark-and-expand)
|
||
(define-key map (kbd "C-c C-n") 'web-mode-navigate)
|
||
(define-key map (kbd "C-c C-r") 'web-mode-reload)
|
||
(define-key map (kbd "C-c C-s") 'web-mode-snippet-insert)
|
||
;;C-c C-t : tag
|
||
(define-key map (kbd "C-c C-w") 'web-mode-whitespaces-show)
|
||
|
||
map)
|
||
"Keymap for `web-mode'.")
|
||
|
||
;;---- COMPATIBILITY -----------------------------------------------------------
|
||
|
||
(eval-and-compile
|
||
|
||
;; compatibility with emacs 22
|
||
(defun web-mode-string-match-p (regexp string &optional start)
|
||
"Same as `string-match' except it does not change the match data."
|
||
(let ((inhibit-changing-match-data t))
|
||
(string-match regexp string start)))
|
||
|
||
(unless (fboundp 'string-match-p)
|
||
(fset 'string-match-p (symbol-function 'web-mode-string-match-p)))
|
||
|
||
;; compatibility with emacs < 23.3
|
||
(if (fboundp 'with-silent-modifications)
|
||
(defalias 'web-mode-with-silent-modifications 'with-silent-modifications)
|
||
(defmacro web-mode-with-silent-modifications (&rest body)
|
||
`(let ((old-modified-p (buffer-modified-p))
|
||
(inhibit-modification-hooks t)
|
||
(buffer-undo-list t))
|
||
(unwind-protect
|
||
,@body
|
||
(set-buffer-modified-p old-modified-p)))))
|
||
|
||
;; compatibility with emacs < 24
|
||
(defalias 'web-mode-prog-mode
|
||
(if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
|
||
|
||
;; compatibility with emacs < 24.3
|
||
(defun web-mode-buffer-narrowed-p ()
|
||
(if (fboundp 'buffer-narrowed-p)
|
||
(buffer-narrowed-p)
|
||
(/= (- (point-max) (point-min)) (buffer-size))))
|
||
|
||
;; compatibility with emacs < 24.3
|
||
(unless (fboundp 'setq-local)
|
||
(defmacro setq-local (var val)
|
||
`(set (make-local-variable ',var) ,val)))
|
||
|
||
) ;eval-and-compile
|
||
|
||
;;---- MAJOR MODE --------------------------------------------------------------
|
||
|
||
;;;###autoload
|
||
(define-derived-mode web-mode web-mode-prog-mode "Web"
|
||
"Major mode for editing web templates."
|
||
|
||
(make-local-variable 'web-mode-attr-indent-offset)
|
||
(make-local-variable 'web-mode-attr-value-indent-offset)
|
||
(make-local-variable 'web-mode-auto-pairs)
|
||
(make-local-variable 'web-mode-block-regexp)
|
||
(make-local-variable 'web-mode-change-beg)
|
||
(make-local-variable 'web-mode-change-end)
|
||
(make-local-variable 'web-mode-code-indent-offset)
|
||
(make-local-variable 'web-mode-column-overlays)
|
||
(make-local-variable 'web-mode-comment-style)
|
||
(make-local-variable 'web-mode-content-type)
|
||
(make-local-variable 'web-mode-css-indent-offset)
|
||
(make-local-variable 'web-mode-display-table)
|
||
(make-local-variable 'web-mode-django-control-blocks)
|
||
(make-local-variable 'web-mode-django-control-blocks-regexp)
|
||
(make-local-variable 'web-mode-enable-block-face)
|
||
(make-local-variable 'web-mode-enable-inlays)
|
||
(make-local-variable 'web-mode-enable-part-face)
|
||
(make-local-variable 'web-mode-enable-sexp-functions)
|
||
(make-local-variable 'web-mode-engine)
|
||
(make-local-variable 'web-mode-engine-attr-regexp)
|
||
(make-local-variable 'web-mode-engine-file-regexps)
|
||
(make-local-variable 'web-mode-engine-open-delimiter-regexps)
|
||
(make-local-variable 'web-mode-engine-token-regexp)
|
||
(make-local-variable 'web-mode-expand-initial-pos)
|
||
(make-local-variable 'web-mode-expand-initial-scroll)
|
||
(make-local-variable 'web-mode-expand-previous-state)
|
||
(make-local-variable 'web-mode-indent-style)
|
||
(make-local-variable 'web-mode-indentless-attributes)
|
||
(make-local-variable 'web-mode-indentless-elements)
|
||
(make-local-variable 'web-mode-inhibit-fontification)
|
||
(make-local-variable 'web-mode-is-scratch)
|
||
(make-local-variable 'web-mode-jshint-errors)
|
||
(make-local-variable 'web-mode-last-enabled-feature)
|
||
(make-local-variable 'web-mode-markup-indent-offset)
|
||
(make-local-variable 'web-mode-minor-engine)
|
||
(make-local-variable 'web-mode-overlay-tag-end)
|
||
(make-local-variable 'web-mode-overlay-tag-start)
|
||
(make-local-variable 'web-mode-sql-indent-offset)
|
||
(make-local-variable 'web-mode-time)
|
||
|
||
(make-local-variable 'comment-end)
|
||
(make-local-variable 'comment-region-function)
|
||
(make-local-variable 'comment-start)
|
||
(make-local-variable 'fill-paragraph-function)
|
||
(make-local-variable 'font-lock-beg)
|
||
(make-local-variable 'font-lock-defaults)
|
||
(make-local-variable 'font-lock-extend-region-functions)
|
||
(make-local-variable 'font-lock-end)
|
||
(make-local-variable 'font-lock-support-mode)
|
||
(make-local-variable 'font-lock-unfontify-region-function)
|
||
(make-local-variable 'imenu-case-fold-search)
|
||
(make-local-variable 'imenu-create-index-function)
|
||
(make-local-variable 'imenu-generic-expression)
|
||
(make-local-variable 'indent-line-function)
|
||
(make-local-variable 'parse-sexp-lookup-properties)
|
||
(make-local-variable 'uncomment-region-function)
|
||
(make-local-variable 'yank-excluded-properties)
|
||
|
||
(setq comment-end "-->"
|
||
comment-region-function 'web-mode-comment-or-uncomment-region
|
||
comment-start "<!--"
|
||
fill-paragraph-function 'web-mode-fill-paragraph
|
||
font-lock-defaults '(web-mode-font-lock-keywords t)
|
||
font-lock-extend-region-functions '(web-mode-extend-region)
|
||
font-lock-support-mode nil
|
||
font-lock-unfontify-region-function 'web-mode-unfontify-region
|
||
imenu-case-fold-search t
|
||
imenu-create-index-function 'web-mode-imenu-index
|
||
indent-line-function 'web-mode-indent-line
|
||
parse-sexp-lookup-properties t
|
||
yank-excluded-properties t
|
||
uncomment-region-function 'web-mode-comment-or-uncomment-region)
|
||
|
||
(add-hook 'after-change-functions 'web-mode-on-after-change nil t)
|
||
(add-hook 'after-save-hook 'web-mode-on-after-save t t)
|
||
(add-hook 'change-major-mode-hook 'web-mode-on-exit nil t)
|
||
(add-hook 'post-command-hook 'web-mode-on-post-command nil t)
|
||
|
||
(cond
|
||
((boundp 'yas-after-exit-snippet-hook)
|
||
(add-hook 'yas-after-exit-snippet-hook
|
||
'web-mode-yasnippet-exit-hook
|
||
t t))
|
||
((boundp 'yas/after-exit-snippet-hook)
|
||
(add-hook 'yas/after-exit-snippet-hook
|
||
'web-mode-yasnippet-exit-hook
|
||
t t))
|
||
)
|
||
|
||
(when web-mode-enable-whitespace-fontification
|
||
(web-mode-whitespaces-on))
|
||
|
||
;;(when (and (boundp 'indent-tabs-mode) indent-tabs-mode)
|
||
;; (web-mode-use-tabs))
|
||
|
||
(when web-mode-enable-sexp-functions
|
||
(setq-local forward-sexp-function 'web-mode-forward-sexp))
|
||
|
||
(web-mode-guess-engine-and-content-type)
|
||
(setq web-mode-change-beg (point-min)
|
||
web-mode-change-end (point-max))
|
||
(when (> (point-max) 256000)
|
||
(web-mode-buffer-highlight))
|
||
|
||
(when (and (boundp 'hs-special-modes-alist)
|
||
(not (assoc major-mode hs-special-modes-alist)))
|
||
(add-to-list 'hs-special-modes-alist '(web-mode "{" "}" "/[*/]" web-mode-forward-sexp nil))
|
||
) ;when
|
||
|
||
)
|
||
|
||
;;---- DEFUNS ------------------------------------------------------------------
|
||
|
||
(defun web-mode-scan-region (beg end &optional content-type)
|
||
"Identify nodes/parts/blocks and syntactic symbols (strings/comments)."
|
||
;;(message "scan-region: beg(%d) end(%d) content-type(%S)" beg end content-type)
|
||
(web-mode-with-silent-modifications
|
||
(save-excursion
|
||
(save-restriction
|
||
(save-match-data
|
||
(let ((inhibit-point-motion-hooks t)
|
||
(inhibit-quit t))
|
||
(remove-list-of-text-properties beg end web-mode-scan-properties)
|
||
(cond
|
||
((and content-type (string= content-type "php"))
|
||
;; (web-mode-block-scan beg end)
|
||
)
|
||
((and content-type (member content-type web-mode-part-content-types))
|
||
(put-text-property beg end 'part-side
|
||
(cond
|
||
((string= content-type "javascript") 'javascript)
|
||
((string= content-type "json") 'json)
|
||
((string= content-type "jsx") 'jsx)
|
||
((string= content-type "css") 'css)
|
||
))
|
||
(web-mode-scan-blocks beg end)
|
||
(web-mode-part-scan beg end content-type))
|
||
((member web-mode-content-type web-mode-part-content-types)
|
||
(web-mode-scan-blocks beg end)
|
||
(web-mode-part-scan beg end))
|
||
((string= web-mode-engine "riot")
|
||
(web-mode-scan-elements beg end)
|
||
(web-mode-scan-blocks beg end)
|
||
(web-mode-process-parts beg end 'web-mode-part-scan))
|
||
(t
|
||
(web-mode-scan-blocks beg end)
|
||
(web-mode-scan-elements beg end)
|
||
(web-mode-process-parts beg end 'web-mode-part-scan))
|
||
) ;cond
|
||
(cons beg end)
|
||
))))))
|
||
|
||
(defun web-mode-scan-blocks (reg-beg reg-end)
|
||
"Identifies blocks (with block-side, block-beg, block-end text properties)."
|
||
(save-excursion
|
||
|
||
(let ((i 0) open close closing-string start sub1 sub2 pos tagopen tmp delim-open delim-close part-beg part-end tagclose)
|
||
|
||
(goto-char reg-beg)
|
||
|
||
;;(message "%S: %Sx%S" (point) reg-beg reg-end)
|
||
;;(message "regexp=%S" web-mode-block-regexp)
|
||
(while (and (< i 2000)
|
||
(> reg-end (point))
|
||
web-mode-block-regexp
|
||
(re-search-forward web-mode-block-regexp reg-end t)
|
||
(not (eobp)))
|
||
|
||
(setq i (1+ i)
|
||
closing-string nil
|
||
close nil
|
||
tagopen (match-string 0)
|
||
open (match-beginning 0)
|
||
delim-open nil
|
||
delim-close nil
|
||
pos nil)
|
||
|
||
(let ((l (length tagopen)))
|
||
(when (member (string-to-char tagopen) '(?\s ?\t))
|
||
(setq tagopen (replace-regexp-in-string "\\`[ \t]*" "" tagopen))
|
||
(setq open (+ open (- l (length tagopen))))
|
||
(setq l (length tagopen))
|
||
)
|
||
(setq sub1 (substring tagopen 0 1)
|
||
sub2 (substring tagopen 0 (if (>= l 2) 2 1)))
|
||
)
|
||
;;(message " found block #(%S) at pos=(%S), part-type=(%S)" i open (get-text-property open 'part-side))
|
||
(cond
|
||
|
||
((string= web-mode-engine "php")
|
||
(unless (member (char-after) '(?x ?X))
|
||
(setq closing-string '("<\\?". "\\?>")))
|
||
(cond
|
||
((looking-at-p "<?php")
|
||
(setq delim-open "<?php"))
|
||
((eq (char-after) ?\=)
|
||
(setq delim-open "<?="))
|
||
(t
|
||
(setq delim-open "<?"))
|
||
) ;cond
|
||
(setq delim-close "?>")
|
||
) ;php
|
||
|
||
((string= web-mode-engine "erb")
|
||
(cond
|
||
((string= sub2 "<%")
|
||
(setq closing-string '("<%". "%>")
|
||
delim-open "<%[=-]?"
|
||
delim-close "[-]?%>")
|
||
)
|
||
(t
|
||
(setq closing-string "EOL"
|
||
delim-open "%"))
|
||
)
|
||
) ;erb
|
||
|
||
((string= web-mode-engine "django")
|
||
(cond
|
||
((string= sub2 "{{")
|
||
(setq closing-string '("{{" . "}}")
|
||
delim-open "{{"
|
||
delim-close "}}"))
|
||
((string= sub2 "{%")
|
||
(setq closing-string "%}"
|
||
delim-open "{%[+-]?"
|
||
delim-close "[-]?%}"))
|
||
(t
|
||
(setq closing-string "#}"))
|
||
)
|
||
) ;django
|
||
|
||
((string= web-mode-engine "ejs")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[=-]?"
|
||
delim-close "[-]?%>")
|
||
) ;ejs
|
||
|
||
((string= web-mode-engine "lsp")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[%#]?"
|
||
delim-close "%>")
|
||
) ;lsp
|
||
|
||
((string= web-mode-engine "mako")
|
||
(cond
|
||
((and (string= tagopen "<%")
|
||
(member (char-after) '(?\s ?\n ?\!)))
|
||
(setq closing-string "%>"
|
||
delim-open "<%[!]?"
|
||
delim-close "%>"))
|
||
((member sub2 '("<%" "</"))
|
||
(setq closing-string ">"
|
||
delim-open "</?%"
|
||
delim-close "/?>"))
|
||
((string= sub2 "${")
|
||
(setq closing-string "}"
|
||
delim-open "${"
|
||
delim-close "}"))
|
||
(t
|
||
(setq closing-string "EOL"
|
||
delim-open "%"))
|
||
)
|
||
) ;mako
|
||
|
||
((string= web-mode-engine "cl-emb")
|
||
(cond
|
||
((string= tagopen "<%#")
|
||
(setq closing-string "#%>"))
|
||
((string= sub2 "<%")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[=%]?"
|
||
delim-close "%>"))
|
||
)
|
||
) ;cl-emb
|
||
|
||
((string= web-mode-engine "elixir")
|
||
(cond
|
||
((string= tagopen "<%#")
|
||
(setq closing-string "%>"))
|
||
((string= sub2 "<%")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[=%]?"
|
||
delim-close "%>"))
|
||
)
|
||
) ;elixir
|
||
|
||
((string= web-mode-engine "mojolicious")
|
||
(cond
|
||
((string= tagopen "<%#")
|
||
(setq closing-string "%>"))
|
||
((string= sub2 "<%")
|
||
(setq closing-string "%>"
|
||
delim-open "<%\\(==\\|[=%]\\)?"
|
||
delim-close "%>"))
|
||
((string= sub2 "%#")
|
||
(setq closing-string "EOL"))
|
||
(t
|
||
(setq closing-string "EOL"
|
||
delim-open "%\\(==\\|[=%]\\)?"))
|
||
)
|
||
) ;mojolicious
|
||
|
||
((string= web-mode-engine "ctemplate")
|
||
(cond
|
||
((member tagopen '("{{{" "{{~"))
|
||
(setq closing-string "}~?}}"
|
||
delim-open "{{~?{"
|
||
delim-close "}~?}}")
|
||
)
|
||
((string= tagopen "{~{")
|
||
(setq closing-string "}~?}"
|
||
delim-open "{~{"
|
||
delim-close "}~?}")
|
||
)
|
||
((string= tagopen "{{!")
|
||
(setq closing-string (if (looking-at-p "--") "--}}" "}}"))
|
||
)
|
||
((string= sub2 "{{")
|
||
(setq closing-string "}~?}"
|
||
delim-open "{{[>#/%^&]?"
|
||
delim-close "}~?}"))
|
||
(t
|
||
(setq closing-string "}}"
|
||
delim-open "${{"
|
||
delim-close "}}"))
|
||
)
|
||
) ;ctemplate
|
||
|
||
((string= web-mode-engine "aspx")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[:=#@$]?"
|
||
delim-close "%>")
|
||
) ;aspx
|
||
|
||
((string= web-mode-engine "asp")
|
||
(cond
|
||
((string= sub2 "<%")
|
||
(setq closing-string "%>"
|
||
delim-open "<%[:=#@$]?"
|
||
delim-close "%>"))
|
||
(t
|
||
(setq closing-string ">"
|
||
delim-open "</?"
|
||
delim-close "/?>"))
|
||
)
|
||
) ;asp
|
||
|
||
((string= web-mode-engine "jsp")
|
||
(cond
|
||
((looking-at-p "--")
|
||
(setq closing-string "--%>"))
|
||
((string= sub2 "<%")
|
||
(setq closing-string "%>"
|
||
delim-open "<%\\([!=@]\\|#=\\)?"
|
||
delim-close "[-]?%>"))
|
||
((string= sub2 "${")
|
||
(setq closing-string "}"
|
||
delim-open "${"
|
||
delim-close "}"))
|
||
(t
|
||
(setq closing-string ">"
|
||
delim-open "</?"
|
||
delim-close "/?>"))
|
||
)
|
||
) ;jsp
|
||
|
||
((string= web-mode-engine "clip")
|
||
(setq closing-string ">"
|
||
delim-open "</?"
|
||
delim-close "/?>")
|
||
) ;clip
|
||
|
||
((string= web-mode-engine "blade")
|
||
(cond
|
||
((string= tagopen "{{-")
|
||
(setq closing-string "--}}"))
|
||
((string= tagopen "{!!")
|
||
(setq closing-string "!!}"
|
||
delim-open "{!!"
|
||
delim-close "!!}"))
|
||
((string= tagopen "@{{")
|
||
(setq closing-string nil))
|
||
((string= tagopen "{{{")
|
||
(setq closing-string "}}}"
|
||
delim-open "{{{"
|
||
delim-close "}}}"))
|
||
((string= sub2 "{{")
|
||
(setq closing-string "}}"
|
||
delim-open "{{"
|
||
delim-close "}}"))
|
||
((looking-at-p "[[:alnum:]]+\\.[[:alpha:]]+")
|
||
)
|
||
((string= sub2 "@y")
|
||
(setq closing-string ")"
|
||
delim-open "@"))
|
||
((string= sub1 "@")
|
||
(setq closing-string "EOL"
|
||
delim-open "@"))
|
||
)
|
||
) ;blade
|
||
|
||
((string= web-mode-engine "smarty")
|
||
(cond
|
||
((string= tagopen "{*")
|
||
(setq closing-string "*}")
|
||
)
|
||
((string= tagopen "{#")
|
||
(setq closing-string "#}"
|
||
delim-open "{#"
|
||
delim-close "#}")
|
||
)
|
||
(t
|
||
(setq closing-string (cons "{" "}")
|
||
delim-open "{/?"
|
||
delim-close "}")
|
||
) ;t
|
||
) ;cond
|
||
) ;smarty
|
||
|
||
((string= web-mode-engine "web2py")
|
||
(setq closing-string "}}"
|
||
delim-open "{{[=]?"
|
||
delim-close "}}")
|
||
) ;web2py
|
||
|
||
((string= web-mode-engine "dust")
|
||
(cond
|
||
((string= sub2 "{!")
|
||
(setq closing-string "!}"))
|
||
(t
|
||
(setq closing-string '("{". "}") ;;closing-string "}"
|
||
delim-open "{[#/:?@><+^]?"
|
||
delim-close "/?}")
|
||
)
|
||
)
|
||
) ;dust
|
||
|
||
((string= web-mode-engine "closure")
|
||
(cond
|
||
((string= sub2 "//")
|
||
(setq closing-string "EOL")
|
||
)
|
||
((string= sub2 "/*")
|
||
(setq closing-string "*/")
|
||
)
|
||
(t
|
||
(setq closing-string "}"
|
||
delim-open "{/?"
|
||
delim-close "/?}")
|
||
)
|
||
)
|
||
) ;closure
|
||
|
||
((string= web-mode-engine "go")
|
||
(setq closing-string "}}"
|
||
delim-open "{{"
|
||
delim-close "}}")
|
||
) ;go
|
||
|
||
((string= web-mode-engine "angular")
|
||
(setq closing-string "}}"
|
||
delim-open "{{"
|
||
delim-close "}}")
|
||
) ;angular
|
||
|
||
((string= web-mode-engine "mason")
|
||
(cond
|
||
((and (member sub2 '("<%" "</"))
|
||
(looking-at "[[:alpha:]]+"))
|
||
(if (member (match-string-no-properties 0) '("after" "around" "augment" "before" "def" "filter" "method" "override"))
|
||
(setq closing-string ">"
|
||
delim-open "<[/]?%"
|
||
delim-close ">")
|
||
(setq closing-string (concat "</%" (match-string-no-properties 0) ">")
|
||
delim-open "<[^>]+>"
|
||
delim-close "<[^>]+>")
|
||
) ;if
|
||
)
|
||
((and (string= sub2 "<%")
|
||
(eq (char-after) ?\s))
|
||
(setq closing-string "%>"
|
||
delim-open "<%"
|
||
delim-close "%>"))
|
||
((string= tagopen "</&")
|
||
(setq closing-string ">"
|
||
delim-open "</&"
|
||
delim-close ">")
|
||
)
|
||
((string= sub2 "<&")
|
||
(setq closing-string "&>"
|
||
delim-open "<&[|]?"
|
||
delim-close "&>"))
|
||
(t
|
||
(setq closing-string "EOL"
|
||
delim-open "%"))
|
||
)
|
||
) ;mason
|
||
|
||
((string= web-mode-engine "underscore")
|
||
(setq closing-string "%>"
|
||
delim-open "<%"
|
||
delim-close "%>")
|
||
) ;underscore
|
||
|
||
((string= web-mode-engine "template-toolkit")
|
||
(cond
|
||
((string= tagopen "%%#")
|
||
(setq closing-string "EOL"))
|
||
((string= tagopen "[%#")
|
||
(setq closing-string "%]"))
|
||
(t
|
||
(setq closing-string "%]"
|
||
delim-open "\\[%[-+]?"
|
||
delim-close "[-=+]?%\\]"))
|
||
)
|
||
) ;template-toolkit
|
||
|
||
((string= web-mode-engine "freemarker")
|
||
(cond
|
||
((string= sub1 "<")
|
||
(setq closing-string ">"
|
||
delim-open "</?[#@]"
|
||
delim-close "/?>"))
|
||
((string= sub1 "[")
|
||
(setq closing-string "]"
|
||
delim-open "\\[/?[#@]"
|
||
delim-close "/?\\]"))
|
||
(t
|
||
(setq closing-string "}"
|
||
delim-open "${"
|
||
delim-close "}"))
|
||
)
|
||
) ;freemarker
|
||
|
||
((string= web-mode-engine "velocity")
|
||
(cond
|
||
((string= sub2 "##")
|
||
(setq closing-string "EOL"))
|
||
((string= sub2 "#*")
|
||
(setq closing-string "*#"))
|
||
(t
|
||
(setq closing-string "EOV"
|
||
delim-open "#"))
|
||
)
|
||
) ;velocity
|
||
|
||
((string= web-mode-engine "razor")
|
||
(cond
|
||
((string= sub2 "@@")
|
||
(forward-char 2)
|
||
(setq closing-string nil))
|
||
((string= sub2 "@*")
|
||
(setq closing-string "*@"))
|
||
((string= sub1 "@")
|
||
(setq closing-string "EOR"
|
||
delim-open "@"))
|
||
((string= sub1 "}")
|
||
(save-excursion
|
||
(let (paren-pos)
|
||
(setq paren-pos (web-mode-part-opening-paren-position (1- (point))))
|
||
(if (and paren-pos (get-text-property paren-pos 'block-side))
|
||
(setq closing-string "EOR")
|
||
(setq closing-string nil)
|
||
) ;if
|
||
) ;let
|
||
) ;let
|
||
) ; case }
|
||
) ;cond
|
||
) ;razor
|
||
|
||
((and (string= web-mode-engine "riot")
|
||
(not (get-text-property open 'part-side)))
|
||
(setq closing-string "}"
|
||
delim-open "{"
|
||
delim-close "}")
|
||
) ;riot
|
||
|
||
((string= web-mode-engine "marko")
|
||
(setq closing-string "}"
|
||
delim-open "${"
|
||
delim-close "}")
|
||
) ;marko
|
||
|
||
) ;cond
|
||
|
||
(when closing-string
|
||
|
||
(cond
|
||
|
||
((listp closing-string)
|
||
(cond
|
||
((web-mode-rsf-balanced (car closing-string) (cdr closing-string) reg-end t)
|
||
(setq close (match-end 0)
|
||
pos (point))
|
||
)
|
||
((and (string= web-mode-engine "php")
|
||
(string= "<?" sub2))
|
||
|
||
(if (or (text-property-not-all (1+ open) (point-max) 'tag-beg nil)
|
||
(text-property-not-all (1+ open) (point-max) 'block-beg nil)
|
||
(looking-at-p "[ \t\n]*<"))
|
||
(setq close nil
|
||
delim-close nil
|
||
pos (point))
|
||
(setq close (point-max)
|
||
delim-close nil
|
||
pos (point-max))
|
||
) ;if
|
||
) ;case
|
||
) ;cond
|
||
) ;case listp
|
||
|
||
((and (string= web-mode-engine "smarty")
|
||
(string= closing-string "}"))
|
||
(goto-char open)
|
||
(setq tmp (web-mode-closing-delimiter-position
|
||
"}"
|
||
(point)
|
||
(line-end-position)))
|
||
(if tmp
|
||
(setq tmp (1+ tmp))
|
||
(setq tmp (line-end-position)))
|
||
(goto-char tmp)
|
||
(setq close (point)
|
||
pos (point))
|
||
)
|
||
|
||
((and (member web-mode-engine '("closure"))
|
||
(string= closing-string "}"))
|
||
(goto-char open)
|
||
(setq tmp (web-mode-closing-paren-position (point) (line-end-position)))
|
||
(if tmp
|
||
(setq tmp (1+ tmp))
|
||
(setq tmp (line-end-position)))
|
||
(goto-char tmp)
|
||
(setq close (point)
|
||
pos (point))
|
||
)
|
||
|
||
((string= closing-string "EOL")
|
||
(end-of-line)
|
||
(setq close (point)
|
||
pos (point)))
|
||
|
||
((string= closing-string "EOR")
|
||
(web-mode-razor-skip open)
|
||
(setq close (if (> (point) reg-end) reg-end (point))
|
||
pos (if (> (point) reg-end) reg-end (point)))
|
||
(goto-char pos))
|
||
|
||
((string= closing-string "EOV")
|
||
(web-mode-velocity-skip open)
|
||
(setq close (point)
|
||
pos (point)))
|
||
|
||
((and (member web-mode-engine '("ctemplate"))
|
||
(re-search-forward closing-string reg-end t))
|
||
(setq close (match-end 0)
|
||
pos (point)))
|
||
|
||
((search-forward closing-string reg-end t)
|
||
(setq close (match-end 0)
|
||
pos (point)))
|
||
) ;cond
|
||
|
||
(when (and close (>= reg-end pos))
|
||
;;(message "pos(%S) : open(%S) close(%S)" pos open close)
|
||
(put-text-property open (1+ open) 'block-beg 0)
|
||
(put-text-property open (1+ open) 'block-controls 0)
|
||
(put-text-property open close 'block-side t)
|
||
(put-text-property (1- close) close 'block-end t)
|
||
(when delim-open
|
||
(web-mode-block-delimiters-set open close delim-open delim-close))
|
||
(web-mode-block-scan open close)
|
||
(when (and (string= web-mode-engine "erb")
|
||
(looking-at-p "<%= javascript_tag do %>"))
|
||
(setq tagopen "<%= javascript_tag do %>"))
|
||
(when (and (member tagopen '("<r:script" "<r:style"
|
||
"<c:js" "<c:css"
|
||
"<%= javascript_tag do %>"))
|
||
(setq part-beg close)
|
||
(setq tagclose
|
||
(cond
|
||
((string= tagopen "<r:script") "</r:script")
|
||
((string= tagopen "<r:style") "</r:style")
|
||
((string= tagopen "<c:js") "</c:js")
|
||
((string= tagopen "<c:css") "</c:css")
|
||
((string= tagopen "<%= javascript_tag do %>") "<% end %>")
|
||
))
|
||
(web-mode-sf tagclose)
|
||
(setq part-end (match-beginning 0))
|
||
(> part-end part-beg))
|
||
(put-text-property part-beg part-end
|
||
'part-side
|
||
(cond
|
||
((member tagopen '("<r:style" "<c:css")) 'css)
|
||
(t 'javascript)))
|
||
(setq pos part-beg
|
||
part-beg nil
|
||
part-end nil)
|
||
) ;when
|
||
) ;when close
|
||
|
||
(if pos (goto-char pos))
|
||
|
||
) ;when closing-string
|
||
|
||
) ;while
|
||
|
||
(cond
|
||
((>= i 2000)
|
||
(message "scan-blocks ** warning (%S) **" i))
|
||
((string= web-mode-engine "razor")
|
||
(web-mode-process-blocks reg-beg reg-end 'web-mode-block-scan))
|
||
((string= web-mode-engine "django")
|
||
(web-mode-scan-engine-comments reg-beg reg-end
|
||
"{% comment %}" "{% endcomment %}"))
|
||
((string= web-mode-engine "mako")
|
||
(web-mode-scan-engine-comments reg-beg reg-end
|
||
"<%doc>" "</%doc>"))
|
||
((string= web-mode-engine "mason")
|
||
(web-mode-scan-engine-comments reg-beg reg-end
|
||
"<%doc>" "</%doc>"))
|
||
) ;cond
|
||
|
||
)))
|
||
|
||
(defun web-mode-block-delimiters-set (reg-beg reg-end delim-open delim-close)
|
||
"Set text-property 'block-token to 'delimiter-(beg|end) on block delimiters (e.g. <?php ?>)"
|
||
;;(message "reg-beg(%S) reg-end(%S) delim-open(%S) delim-close(%S)" reg-beg reg-end delim-open delim-close)
|
||
(when (member web-mode-engine
|
||
'("asp" "aspx" "cl-emb" "clip" "closure" "ctemplate" "django" "dust"
|
||
"elixir" "ejs" "erb" "freemarker" "jsp" "lsp" "mako" "mason" "mojolicious"
|
||
"smarty" "template-toolkit" "web2py"))
|
||
(save-excursion
|
||
(when delim-open
|
||
(goto-char reg-beg)
|
||
(looking-at delim-open)
|
||
(setq delim-open (match-string-no-properties 0)))
|
||
(when delim-close
|
||
(goto-char reg-end)
|
||
(looking-back delim-close reg-beg t)
|
||
(setq delim-close (match-string-no-properties 0)))
|
||
))
|
||
(when delim-open
|
||
(put-text-property reg-beg (+ reg-beg (length delim-open))
|
||
'block-token 'delimiter-beg))
|
||
(when delim-close
|
||
(put-text-property (- reg-end (length delim-close)) reg-end
|
||
'block-token 'delimiter-end))
|
||
)
|
||
|
||
(defun web-mode-process-blocks (reg-beg reg-end func)
|
||
(let ((i 0) (continue t) (block-beg reg-beg) (block-end nil))
|
||
(while continue
|
||
(setq block-end nil)
|
||
(unless (get-text-property block-beg 'block-beg)
|
||
(setq block-beg (web-mode-block-next-position block-beg)))
|
||
(when (and block-beg (< block-beg reg-end))
|
||
(setq block-end (web-mode-block-end-position block-beg)))
|
||
(cond
|
||
((> (setq i (1+ i)) 2000)
|
||
(message "process-blocks ** warning (%S) **" (point))
|
||
(setq continue nil))
|
||
((or (null block-end) (> block-end reg-end))
|
||
(setq continue nil))
|
||
(t
|
||
(setq block-end (1+ block-end))
|
||
(funcall func block-beg block-end)
|
||
(setq block-beg block-end)
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
))
|
||
|
||
(defun web-mode-process-parts (reg-beg reg-end func)
|
||
(let ((i 0) (continue t) (part-beg reg-beg) (part-end nil))
|
||
(while continue
|
||
(setq part-end nil)
|
||
(unless (get-text-property part-beg 'part-side)
|
||
(setq part-beg (web-mode-part-next-position part-beg)))
|
||
(when (and part-beg (< part-beg reg-end))
|
||
(setq part-end (web-mode-part-end-position part-beg)))
|
||
(cond
|
||
((> (setq i (1+ i)) 100)
|
||
(message "process-parts ** warning (%S) **" (point))
|
||
(setq continue nil))
|
||
((or (null part-end) (> part-end reg-end))
|
||
(setq continue nil))
|
||
(t
|
||
(setq part-end (1+ part-end))
|
||
(funcall func part-beg part-end)
|
||
(setq part-beg part-end)
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
))
|
||
|
||
(defun web-mode-block-scan (block-beg block-end)
|
||
(let (sub1 sub2 sub3 regexp token-type)
|
||
|
||
;;(message "block-beg=%S block-end=%S" block-beg block-end)
|
||
;;(remove-text-properties block-beg block-end web-mode-scan-properties)
|
||
|
||
(goto-char block-beg)
|
||
|
||
(cond
|
||
((>= (point-max) (+ block-beg 3))
|
||
(setq sub3 (buffer-substring-no-properties block-beg (+ block-beg 3))
|
||
sub2 (buffer-substring-no-properties block-beg (+ block-beg 2))
|
||
sub1 (buffer-substring-no-properties block-beg (+ block-beg 1)))
|
||
)
|
||
((>= (point-max) (+ block-beg 2))
|
||
(setq sub3 (buffer-substring-no-properties block-beg (+ block-beg 2))
|
||
sub2 (buffer-substring-no-properties block-beg (+ block-beg 2))
|
||
sub1 (buffer-substring-no-properties block-beg (+ block-beg 1)))
|
||
)
|
||
(t
|
||
(setq sub1 (buffer-substring-no-properties block-beg (+ block-beg 1)))
|
||
(setq sub2 sub1
|
||
sub3 sub1)
|
||
)
|
||
)
|
||
|
||
(cond
|
||
|
||
((member web-mode-engine '("php" "lsp" "python" "web2py" "mason"))
|
||
(setq regexp web-mode-engine-token-regexp))
|
||
|
||
((string= web-mode-engine "mako")
|
||
(cond
|
||
((string= sub2 "##")
|
||
(setq token-type 'comment)
|
||
)
|
||
(t
|
||
(setq regexp web-mode-engine-token-regexp))
|
||
)
|
||
) ;mako
|
||
|
||
((string= web-mode-engine "django")
|
||
(cond
|
||
((member sub2 '("{{" "{%"))
|
||
(setq regexp "\"\\|'"))
|
||
((string= sub2 "{#")
|
||
(setq token-type 'comment))
|
||
)
|
||
) ;django
|
||
|
||
((string= web-mode-engine "ctemplate")
|
||
(cond
|
||
((string= sub3 "{{!")
|
||
(setq token-type 'comment))
|
||
((member sub2 '("{{"))
|
||
)
|
||
)
|
||
) ;ctemplate
|
||
|
||
((string= web-mode-engine "go")
|
||
(cond
|
||
((string= sub3 "{{/")
|
||
(setq token-type 'comment))
|
||
((string= sub2 "{{")
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;go
|
||
|
||
((string= web-mode-engine "razor")
|
||
(cond
|
||
((string= sub2 "@*")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "//\\|@\\*\\|\"\\|'"))
|
||
)
|
||
) ;razor
|
||
|
||
((string= web-mode-engine "blade")
|
||
(cond
|
||
((string= sub3 "{{-")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;blade
|
||
|
||
((string= web-mode-engine "cl-emb")
|
||
(cond
|
||
((string= sub3 "<%#")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;cl-emb
|
||
|
||
((string= web-mode-engine "elixir")
|
||
(cond
|
||
((string= sub3 "<%#")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;elixir
|
||
|
||
((string= web-mode-engine "mojolicious")
|
||
(cond
|
||
((or (string= sub2 "%#") (string= sub3 "<%#"))
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;mojolicious
|
||
|
||
((string= web-mode-engine "velocity")
|
||
(cond
|
||
((member sub2 '("##" "#*"))
|
||
(setq token-type 'comment))
|
||
((member sub1 '("$" "#"))
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;velocity
|
||
|
||
((string= web-mode-engine "jsp")
|
||
(cond
|
||
((string= sub3 "<%-")
|
||
(setq token-type 'comment))
|
||
((string= sub3 "<%@")
|
||
(setq regexp "/\\*"))
|
||
((member sub2 '("${" "#{"))
|
||
(setq regexp "\"\\|'"))
|
||
((string= sub2 "<%")
|
||
(setq regexp "//\\|/\\*\\|\"\\|'"))
|
||
)
|
||
) ;jsp
|
||
|
||
((string= web-mode-engine "clip")
|
||
(setq regexp nil)
|
||
) ;clip
|
||
|
||
((and (string= web-mode-engine "asp")
|
||
(string= sub2 "<%"))
|
||
(setq regexp "//\\|/\\*\\|\"\\|'")
|
||
) ; asp
|
||
|
||
((string= web-mode-engine "aspx")
|
||
(cond
|
||
((string= sub3 "<%-")
|
||
(setq token-type 'comment))
|
||
((string= sub3 "<%@")
|
||
(setq regexp "/\\*"))
|
||
((string= sub3 "<%$")
|
||
(setq regexp "\"\\|'"))
|
||
(t
|
||
(setq regexp "//\\|/\\*\\|\"\\|'"))
|
||
)
|
||
) ;aspx
|
||
|
||
((string= web-mode-engine "freemarker")
|
||
(cond
|
||
((member sub3 '("<#-" "[#-"))
|
||
(setq token-type 'comment))
|
||
((member sub2 '("${" "#{"))
|
||
(setq regexp "\"\\|'"))
|
||
((or (member sub2 '("<@" "[@" "<#" "[#"))
|
||
(member sub3 '("</@" "[/@" "</#" "[/#")))
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;freemarker
|
||
|
||
((member web-mode-engine '("ejs" "erb"))
|
||
(cond
|
||
((string= sub3 "<%#")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp web-mode-engine-token-regexp))
|
||
)
|
||
) ;erb
|
||
|
||
((string= web-mode-engine "template-toolkit")
|
||
(cond
|
||
((member sub3 '("[%#" "%%#"))
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "#\\|\"\\|'"))
|
||
)
|
||
) ;template-toolkit
|
||
|
||
((string= web-mode-engine "underscore")
|
||
(setq regexp "/\\*\\|\"\\|'")
|
||
) ;underscore
|
||
|
||
((string= web-mode-engine "angular")
|
||
) ;angular
|
||
|
||
((string= web-mode-engine "smarty")
|
||
(cond
|
||
((string= sub2 "{*")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'")))
|
||
) ;smarty
|
||
|
||
((string= web-mode-engine "dust")
|
||
(cond
|
||
((string= sub2 "{!")
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;dust
|
||
|
||
((string= web-mode-engine "closure")
|
||
(cond
|
||
((member sub2 '("/*" "//"))
|
||
(setq token-type 'comment))
|
||
(t
|
||
(setq regexp "\"\\|'"))
|
||
)
|
||
) ;closure
|
||
|
||
) ;cond
|
||
|
||
(cond
|
||
(token-type
|
||
(put-text-property block-beg block-end 'block-token token-type))
|
||
((and regexp
|
||
(> (- block-end block-beg) 6))
|
||
(web-mode-block-tokenize
|
||
(web-mode-block-code-beginning-position block-beg)
|
||
(web-mode-block-code-end-position block-beg)
|
||
regexp)
|
||
)
|
||
) ;cond
|
||
|
||
))
|
||
|
||
(defun web-mode-block-tokenize (reg-beg reg-end &optional regexp)
|
||
(unless regexp (setq regexp web-mode-engine-token-regexp))
|
||
;;(message "tokenize: reg-beg(%S) reg-end(%S) regexp(%S)" reg-beg reg-end regexp)
|
||
;;(message "tokenize: reg-beg(%S) reg-end(%S) command(%S)" reg-beg reg-end this-command)
|
||
;;(message "%S>%S : %S" reg-beg reg-end (buffer-substring-no-properties reg-beg reg-end))
|
||
(save-excursion
|
||
(let ((pos reg-beg) beg end char match continue (flags 0) token-type token-end)
|
||
|
||
(remove-list-of-text-properties reg-beg reg-end '(block-token))
|
||
|
||
;; TODO : vérifier la cohérence
|
||
(put-text-property reg-beg reg-end 'block-side t)
|
||
|
||
(goto-char reg-beg)
|
||
|
||
(when (> reg-beg reg-end)
|
||
(message "block-tokenize ** reg-beg(%S) reg-end(%S) **" reg-beg reg-end))
|
||
|
||
(while (and (< reg-beg reg-end) (re-search-forward regexp reg-end t))
|
||
(setq beg (match-beginning 0)
|
||
match (match-string 0)
|
||
continue t
|
||
token-type 'comment
|
||
token-end (if (< reg-end (line-end-position)) reg-end (line-end-position))
|
||
char (aref match 0))
|
||
(cond
|
||
|
||
((and (string= web-mode-engine "asp")
|
||
(eq char ?\'))
|
||
(goto-char token-end))
|
||
|
||
((eq char ?\')
|
||
(setq token-type 'string)
|
||
(while (and continue (search-forward "'" reg-end t))
|
||
(if (looking-back "\\\\+'" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0))
|
||
(setq continue nil))))
|
||
|
||
((eq char ?\")
|
||
(setq token-type 'string)
|
||
(while (and continue (search-forward "\"" reg-end t))
|
||
(if (looking-back "\\\\+\"" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0))
|
||
(setq continue nil))))
|
||
|
||
((string= match "//")
|
||
(goto-char token-end))
|
||
|
||
((eq char ?\;)
|
||
(goto-char token-end))
|
||
|
||
((string= match "#|")
|
||
(unless (search-forward "|#" reg-end t)
|
||
(goto-char token-end)))
|
||
|
||
((eq char ?\#)
|
||
(goto-char token-end))
|
||
|
||
((string= match "/*")
|
||
(unless (search-forward "*/" reg-end t)
|
||
(goto-char token-end))
|
||
)
|
||
|
||
((string= match "@*")
|
||
(unless (search-forward "*@" reg-end t)
|
||
(goto-char token-end)))
|
||
|
||
((eq char ?\<)
|
||
(setq token-type 'string)
|
||
(re-search-forward (concat "^[ ]*" (match-string 1)) reg-end t))
|
||
|
||
(t
|
||
(message "block-tokenize ** token end (%S) **" beg)
|
||
(setq token-type nil))
|
||
|
||
) ;cond
|
||
|
||
;;(when (eq token-type 'comment) (message "comment: %S %S" beg (point)))
|
||
|
||
(put-text-property beg (point) 'block-token token-type)
|
||
|
||
(when (eq token-type 'comment)
|
||
(put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "<"))
|
||
(if (or (< (point) (line-end-position)) (= (point) (point-max)))
|
||
(put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax ">")) ;#445 #480
|
||
(put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax ">")) ;#377
|
||
)
|
||
)
|
||
|
||
) ;while
|
||
|
||
(web-mode-block-controls-unset pos)
|
||
|
||
)))
|
||
|
||
(defun web-mode-set-php-controls (reg-beg reg-end)
|
||
(goto-char reg-beg)
|
||
(let (match controls
|
||
(continue t)
|
||
(regexp "endif\\|endforeach\\|endfor\\|endwhile\\|elseif\\|else\\|if\\|foreach\\|for\\|while"))
|
||
(while continue
|
||
(if (not (web-mode-block-rsf regexp reg-end))
|
||
(setq continue nil)
|
||
(setq match (match-string-no-properties 0))
|
||
;; (message "%S %S" match (point))
|
||
(cond
|
||
((and (member match '("else" "elseif"))
|
||
(looking-at-p "[ ]*[:(]"))
|
||
(setq controls (append controls (list (cons 'inside "if"))))
|
||
)
|
||
((and (>= (length match) 3)
|
||
(string= (substring match 0 3) "end"))
|
||
(setq controls (append controls (list (cons 'close (substring match 3)))))
|
||
)
|
||
((and (progn (skip-chars-forward "[ ]") t)
|
||
(eq (char-after) ?\()
|
||
(web-mode-closing-paren reg-end)
|
||
;; (progn (message "ixi%S" (point)))
|
||
(looking-at-p ")[ ]*:"))
|
||
(setq controls (append controls (list (cons 'open match))))
|
||
)
|
||
) ; cond
|
||
) ;if
|
||
) ;while
|
||
;;(message "%S-%S %S" reg-beg reg-end controls)
|
||
(when (and controls (> (length controls) 1))
|
||
(setq controls (web-mode-block-controls-reduce controls)))
|
||
controls))
|
||
|
||
(defun web-mode-block-controls-reduce (controls)
|
||
(when (and (eq (car (car controls)) 'open)
|
||
(member (cons 'close (cdr (car controls))) controls))
|
||
(setq controls nil))
|
||
controls)
|
||
|
||
(defun web-mode-block-controls-unset (pos)
|
||
(cond
|
||
((null (get-text-property pos 'block-side))
|
||
(message "block-controls-unset ** invalid value (%S) **" pos))
|
||
((or (get-text-property pos 'block-beg)
|
||
(setq pos (web-mode-block-beginning-position pos)))
|
||
(put-text-property pos (1+ pos) 'block-controls 0))
|
||
(t
|
||
(message "block-controls-unset ** failure (%S) **" (point)))
|
||
))
|
||
|
||
(defun web-mode-block-controls-get (pos)
|
||
(web-mode-with-silent-modifications
|
||
(let ((controls nil))
|
||
(cond
|
||
((null (get-text-property pos 'block-side))
|
||
(message "block-controls-get ** invalid value (%S) **" pos))
|
||
((or (get-text-property pos 'block-beg)
|
||
(setq pos (web-mode-block-beginning-position pos)))
|
||
(setq controls (get-text-property pos 'block-controls))
|
||
(when (integerp controls)
|
||
(web-mode-block-controls-set pos (web-mode-block-end-position pos))
|
||
(setq controls (get-text-property pos 'block-controls))
|
||
)
|
||
)
|
||
(t
|
||
(message "block-controls-get ** failure (%S) **" (point)))
|
||
) ;cond
|
||
controls)))
|
||
|
||
(defun web-mode-block-controls-set (reg-beg reg-end)
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(let (controls pos type control)
|
||
|
||
(cond
|
||
|
||
((null web-mode-engine)
|
||
(message "block-controls-set ** unknown engine (%S) **" web-mode-engine)
|
||
)
|
||
|
||
((string= web-mode-engine "php")
|
||
(setq controls (web-mode-set-php-controls reg-beg reg-end))
|
||
(when (web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
(when (web-mode-block-ends-with (cons "{" "}") reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
) ; php
|
||
|
||
((string= web-mode-engine "ejs")
|
||
(cond
|
||
((web-mode-block-ends-with "}[ ]*else[ ]*{" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "{")))))
|
||
((web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
((web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
)
|
||
) ; ejs
|
||
|
||
((string= web-mode-engine "erb")
|
||
(cond
|
||
((web-mode-block-starts-with "else\\|elsif\\|when" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-ends-with " do\\( |.*|\\)?" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
((and (web-mode-block-starts-with "\\(for\\|if\\|unless\\|case\\)\\_>" reg-beg)
|
||
(not (web-mode-block-ends-with "end" reg-end)))
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ; erb
|
||
|
||
((string= web-mode-engine "django")
|
||
(when (eq (char-after (1+ reg-beg)) ?\%)
|
||
(cond
|
||
((and (string= web-mode-minor-engine "jinja") ;#504
|
||
(web-mode-block-starts-with "else\\_>" reg-beg))
|
||
(let ((continue t)
|
||
(pos reg-beg)
|
||
(ctrl nil))
|
||
(while continue
|
||
(cond
|
||
((null (setq pos (web-mode-block-control-previous-position 'open pos)))
|
||
(setq continue nil))
|
||
((member (setq ctrl (cdr (car (get-text-property pos 'block-controls)))) '("if" "ifequal" "ifnotequal" "for"))
|
||
(setq continue nil)
|
||
)
|
||
) ;cond
|
||
)
|
||
(setq controls (append controls (list (cons 'inside (or ctrl "if")))))
|
||
)
|
||
)
|
||
((web-mode-block-starts-with "\\(else\\|els?if\\)" reg-beg)
|
||
(let ((continue t)
|
||
(pos reg-beg)
|
||
(ctrl nil))
|
||
(while continue
|
||
(cond
|
||
((null (setq pos (web-mode-block-control-previous-position 'open pos)))
|
||
(setq continue nil))
|
||
((member (setq ctrl (cdr (car (get-text-property pos 'block-controls)))) '("if" "ifequal" "ifnotequal"))
|
||
(setq continue nil)
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
(setq controls (append controls (list (cons 'inside (or ctrl "if")))))
|
||
) ;let
|
||
) ;case else
|
||
((web-mode-block-starts-with "\\(empty\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "for")))))
|
||
((web-mode-block-starts-with "end\\([[:alpha:]]+\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'close (match-string-no-properties 1))))))
|
||
((web-mode-block-starts-with (concat web-mode-django-control-blocks-regexp "[ %]") reg-beg)
|
||
(let (control)
|
||
(setq control (match-string-no-properties 1))
|
||
;;(message "%S %S %S" control (concat "end" control) web-mode-django-control-blocks)
|
||
(when (member (concat "end" control) web-mode-django-control-blocks)
|
||
(setq controls (append controls (list (cons 'open control)))))
|
||
) ;let
|
||
) ;case
|
||
) ;cond
|
||
) ;when
|
||
) ;django
|
||
|
||
((string= web-mode-engine "smarty")
|
||
(cond
|
||
((and (eq (char-after (1+ reg-beg)) ?\/)
|
||
(web-mode-block-starts-with "\\([[:alpha:]]+\\)" reg-beg))
|
||
(setq controls (append controls (list (cons 'close (match-string-no-properties 1))))))
|
||
((web-mode-block-starts-with "\\(else\\|elseif\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((web-mode-block-starts-with "\\(block\\|foreach\\|for\\|if\\|section\\|while\\)")
|
||
(setq controls (append controls (list (cons 'open (match-string-no-properties 1))))))
|
||
)
|
||
) ;smarty
|
||
|
||
((string= web-mode-engine "web2py")
|
||
(cond
|
||
((web-mode-block-starts-with "def" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "def")))))
|
||
((web-mode-block-starts-with "return" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "def")))))
|
||
((web-mode-block-starts-with "block" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "block")))))
|
||
((web-mode-block-starts-with "end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "block")))))
|
||
((web-mode-block-starts-with "pass" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-starts-with "\\(except\\|finally\\|els\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "\\(if\\|for\\|try\\|while\\)")
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ;web2py
|
||
|
||
((string= web-mode-engine "dust")
|
||
(cond
|
||
((eq (char-after (1- reg-end)) ?\/)
|
||
)
|
||
((eq (char-after (1+ reg-beg)) ?\:)
|
||
(setq pos (web-mode-block-control-previous-position 'open reg-beg))
|
||
(when pos
|
||
(setq controls (append controls
|
||
(list
|
||
(cons 'inside
|
||
(cdr (car (web-mode-block-controls-get pos))))))))
|
||
)
|
||
((looking-at "{/\\([[:alpha:].]+\\)")
|
||
(setq controls (append controls (list (cons 'close (match-string-no-properties 1))))))
|
||
((looking-at "{[#?@><+^]\\([[:alpha:].]+\\)")
|
||
(setq controls (append controls (list (cons 'open (match-string-no-properties 1))))))
|
||
)
|
||
) ;dust
|
||
|
||
((member web-mode-engine '("mojolicious"))
|
||
(cond
|
||
((web-mode-block-ends-with "begin" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "begin")))))
|
||
((web-mode-block-starts-with "end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "begin")))))
|
||
((web-mode-block-starts-with "}[ ]*else[ ]*{" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "{")))))
|
||
((web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
((web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
)
|
||
) ;mojolicious
|
||
|
||
((member web-mode-engine '("aspx" "underscore"))
|
||
(cond
|
||
((web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
((web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
)
|
||
) ;aspx underscore
|
||
|
||
((member web-mode-engine '("jsp" "asp" "clip"))
|
||
(cond
|
||
((eq (char-after (1- reg-end)) ?\/)
|
||
)
|
||
((looking-at "</?\\([[:alpha:]]+\\(?:[:.][[:alpha:]]+\\)\\|[[:alpha:]]+Template\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(when (not (member control '("h:inputtext" "jsp:usebean" "jsp:forward" "struts:property")))
|
||
(setq controls (append controls (list (cons type control)))))
|
||
)
|
||
(t
|
||
(when (web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
(when (web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
)
|
||
)
|
||
) ;jsp asp
|
||
|
||
((string= web-mode-engine "mako")
|
||
(cond
|
||
((looking-at "</?%\\([[:alpha:]]+\\(?:[:][[:alpha:]]+\\)?\\)")
|
||
(cond
|
||
((eq (char-after (- (web-mode-block-end-position reg-beg) 1)) ?\/)
|
||
)
|
||
(t
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control)))))
|
||
)
|
||
)
|
||
((web-mode-block-starts-with "\\(else\\|elif\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((web-mode-block-starts-with "end\\(if\\|for\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'close (match-string-no-properties 1))))))
|
||
((and (web-mode-block-starts-with "if\\|for" reg-beg)
|
||
(web-mode-block-ends-with ":" reg-beg))
|
||
(setq controls (append controls (list (cons 'open (match-string-no-properties 0))))))
|
||
)
|
||
) ;mako
|
||
|
||
((string= web-mode-engine "mason")
|
||
(cond
|
||
((looking-at "</?%\\(after\\|around\\|augment\\|before\\|def\\|filter\\|method\\|override\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
) ;mason
|
||
)
|
||
|
||
((string= web-mode-engine "ctemplate")
|
||
(cond
|
||
((looking-at-p "{{else")
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((looking-at "{{[#^/][ ]*\\([[:alpha:]-]+\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 2) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
)
|
||
) ;ctemplate
|
||
|
||
((string= web-mode-engine "blade")
|
||
(cond
|
||
((not (eq (char-after) ?\@))
|
||
)
|
||
((web-mode-block-starts-with
|
||
"\\(?:end\\)?\\(foreach\\|forelse\\|for\\|if\\|section\\|unless\\|while\\)"
|
||
reg-beg)
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 0) ?e) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
((web-mode-block-starts-with "stop\\|show\\|overwrite" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "section")))))
|
||
((web-mode-block-starts-with "else\\|elseif" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((web-mode-block-starts-with "empty" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "forelse")))))
|
||
)
|
||
) ;blade
|
||
|
||
((string= web-mode-engine "closure")
|
||
(cond
|
||
((eq (char-after (1- reg-end)) ?\/)
|
||
)
|
||
((looking-at "alias\\|namespace")
|
||
)
|
||
((web-mode-block-starts-with "ifempty" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "foreach")))))
|
||
((web-mode-block-starts-with "else\\|elseif" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((web-mode-block-starts-with "case\\|default" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "switch")))))
|
||
((looking-at
|
||
"{/?\\(call\\|deltemplate\\|for\\|foreach\\|if\\|let\\|literal\\|msg\\|param\\|switch\\|template\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
)
|
||
) ;closure
|
||
|
||
((string= web-mode-engine "go")
|
||
(cond
|
||
((web-mode-block-starts-with "end\\_>" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-starts-with "else\\_>" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "\\(range\\|with\\|if\\)\\_>" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ;go
|
||
|
||
((string= web-mode-engine "template-toolkit")
|
||
(cond
|
||
((web-mode-block-starts-with "end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-starts-with "els" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "if\\|foreach\\|filter" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ;template-toolkit
|
||
|
||
((string= web-mode-engine "cl-emb")
|
||
(cond
|
||
((web-mode-block-starts-with "@else" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "if")))))
|
||
((web-mode-block-starts-with "@\\(?:end\\)?\\(if\\|unless\\|repeat\\|loop\\|with\\|genloop\\)" reg-beg)
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?e) 'close 'open))
|
||
(setq controls (append controls (list (cons type control)))))
|
||
)
|
||
) ;cl-emb
|
||
|
||
((string= web-mode-engine "elixir")
|
||
(cond
|
||
((web-mode-block-starts-with "end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-starts-with "else" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "if\\|for\\|while" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ;elixir
|
||
|
||
((string= web-mode-engine "velocity")
|
||
(cond
|
||
((web-mode-block-starts-with "{?end" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "ctrl")))))
|
||
((web-mode-block-starts-with "{?els" reg-beg)
|
||
(setq controls (append controls (list (cons 'inside "ctrl")))))
|
||
((web-mode-block-starts-with "{?\\(define\\|if\\|for\\|foreach\\|macro\\)" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "ctrl")))))
|
||
)
|
||
) ;velocity
|
||
|
||
((string= web-mode-engine "freemarker")
|
||
(cond
|
||
((looking-at "<#\\(import\\|assign\\|return\\|local\\)")
|
||
)
|
||
((eq (char-after (1- reg-end)) ?\/)
|
||
)
|
||
((looking-at "[<[]#\\(break\\|case\\|default\\)")
|
||
(setq controls (append controls (list (cons 'inside "switch"))))
|
||
)
|
||
((looking-at "[<[]#els")
|
||
(setq controls (append controls (list (cons 'inside "if"))))
|
||
)
|
||
((looking-at "</?\\([[:alpha:]]+\\(?:[:][[:alpha:]]+\\)?\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
((looking-at "</?\\(@\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
((looking-at "[<[]/?#\\([[:alpha:]]+\\(?:[:][[:alpha:]]+\\)?\\)")
|
||
(setq control (match-string-no-properties 1)
|
||
type (if (eq (aref (match-string-no-properties 0) 1) ?\/) 'close 'open))
|
||
(setq controls (append controls (list (cons type control))))
|
||
)
|
||
(t
|
||
(when (web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
(when (web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
)
|
||
)
|
||
) ;freemarker
|
||
|
||
((string= web-mode-engine "razor")
|
||
(when (web-mode-block-starts-with "}" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "{")))))
|
||
(when (web-mode-block-ends-with "{" reg-beg)
|
||
(setq controls (append controls (list (cons 'open "{")))))
|
||
) ;razor
|
||
|
||
((string= web-mode-engine "lsp")
|
||
(when (web-mode-block-starts-with ")" reg-beg)
|
||
(setq controls (append controls (list (cons 'close "(")))))
|
||
(when (web-mode-block-is-opened-sexp reg-beg reg-end)
|
||
(setq controls (append controls (list (cons 'open "(")))))
|
||
) ;lsp
|
||
|
||
) ;cond engine
|
||
|
||
(put-text-property reg-beg (1+ reg-beg) 'block-controls controls)
|
||
;; (message "(%S) controls=%S" reg-beg controls)
|
||
|
||
)))
|
||
|
||
(defun web-mode-block-is-opened-sexp (reg-beg reg-end)
|
||
(let ((n 0))
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(while (web-mode-block-rsf "[()]" reg-end)
|
||
(if (eq (char-before) ?\() (setq n (1+ n)) (setq n (1- n)))))
|
||
(> n 0)))
|
||
|
||
(defvar web-mode-regexp1 "<\\(/?[[:alpha:]][[:alnum:]:-]*\\|!--\\|!\\[CDATA\\[\\|!doctype\\|!DOCTYPE\\|\?xml\\)")
|
||
|
||
(defvar web-mode-regexp2 "<\\(/?[[:alpha:]][[:alnum:]:-]*\\|!--\\|!\\[CDATA\\[\\)")
|
||
|
||
(defun web-mode-scan-elements (reg-beg reg-end)
|
||
(save-excursion
|
||
(let (part-beg part-end flags limit close-expr props tname tbeg tend element-content-type (regexp web-mode-regexp1) part-close-tag char)
|
||
|
||
(goto-char reg-beg)
|
||
|
||
(while (web-mode-dom-rsf regexp reg-end)
|
||
|
||
(setq flags 0
|
||
tname (downcase (match-string-no-properties 1))
|
||
char (aref tname 0)
|
||
tbeg (match-beginning 0)
|
||
tend nil
|
||
element-content-type nil
|
||
limit reg-end
|
||
part-beg nil
|
||
part-end nil
|
||
props nil
|
||
close-expr nil
|
||
part-close-tag nil)
|
||
|
||
(cond
|
||
((not (member char '(?\! ?\?)))
|
||
(when (string-match-p "-" tname)
|
||
(setq flags (logior flags 2)))
|
||
(cond
|
||
((eq char ?\/)
|
||
(setq props (list 'tag-name (substring tname 1) 'tag-type 'end)
|
||
flags (logior flags 4)
|
||
limit (if (> reg-end (line-end-position)) (line-end-position) reg-end))
|
||
)
|
||
((web-mode-element-is-void tname)
|
||
(setq props (list 'tag-name tname 'tag-type 'void)))
|
||
(t
|
||
(setq props (list 'tag-name tname 'tag-type 'start)))
|
||
) ;cond
|
||
)
|
||
((and (eq char ?\!) (eq (aref tname 1) ?\-))
|
||
(setq close-expr "-->"
|
||
props '(tag-type comment)))
|
||
((string= tname "?xml")
|
||
(setq regexp web-mode-regexp2
|
||
close-expr "?>"
|
||
props '(tag-type declaration)))
|
||
((string= tname "![cdata[")
|
||
(setq close-expr "]]>"
|
||
props '(tag-type cdata)))
|
||
((string= tname "!doctype")
|
||
(setq regexp web-mode-regexp2
|
||
props '(tag-type doctype)))
|
||
) ;cond
|
||
|
||
(cond
|
||
((and (null close-expr) (eq (char-after) ?\>))
|
||
(setq flags (logior flags 16)
|
||
tend (1+ (point))))
|
||
((null close-expr)
|
||
(setq flags (logior flags (web-mode-attr-skip reg-end)))
|
||
(when (> (logand flags 8) 0)
|
||
(setq props (plist-put props 'tag-type 'void)))
|
||
(setq tend (point)))
|
||
((web-mode-dom-sf close-expr limit t)
|
||
(setq tend (point)))
|
||
(t
|
||
(setq tend (line-end-position)))
|
||
)
|
||
|
||
(cond
|
||
((string= tname "style")
|
||
(setq element-content-type "css"
|
||
part-close-tag "</style>"))
|
||
((string= tname "script")
|
||
(let (script)
|
||
(setq script (buffer-substring-no-properties tbeg tend)
|
||
part-close-tag "</script>")
|
||
(cond
|
||
((string-match-p " type[ ]*=[ ]*[\"']text/\\(jsx\\|babel\\)" script)
|
||
(setq element-content-type "jsx"))
|
||
((string-match-p " type[ ]*=[ ]*[\"']text/\\(x-handlebars\\|x-jquery-tmpl\\|html\\|ng-template\\|template\\|mustache\\)" script)
|
||
(setq element-content-type "html"
|
||
part-close-tag nil))
|
||
((string-match-p " type[ ]*=[ ]*[\"']application/\\(ld\\+json\\|json\\)" script)
|
||
(setq element-content-type "json"))
|
||
(t
|
||
(setq element-content-type "javascript"))
|
||
) ;cond
|
||
) ;let
|
||
) ;script
|
||
)
|
||
|
||
(add-text-properties tbeg tend props)
|
||
(put-text-property tbeg (1+ tbeg) 'tag-beg flags)
|
||
(put-text-property (1- tend) tend 'tag-end t)
|
||
|
||
(when (and part-close-tag
|
||
(web-mode-dom-sf part-close-tag reg-end t)
|
||
(setq part-beg tend)
|
||
(setq part-end (match-beginning 0))
|
||
(> part-end part-beg))
|
||
(put-text-property part-beg part-end 'part-side
|
||
(intern element-content-type web-mode-obarray))
|
||
(setq tend part-end)
|
||
) ;when
|
||
|
||
(goto-char tend)
|
||
|
||
) ;while
|
||
|
||
)))
|
||
|
||
;; tag flags
|
||
;; (1)attrs (2)custom (4)slash-beg (8)slash-end (16)bracket-end
|
||
;; (32)prefix
|
||
|
||
;; attr flags
|
||
;; (1)custom-attr (2)engine-attr (4)spread-attr[jsx] (8)code-value
|
||
|
||
;; attr states
|
||
;; (0)nil (1)space (2)name (3)space-before (4)equal (5)space-after
|
||
;; (6)value-uq (7)value-sq (8)value-dq (9)value-bq : jsx attr={}
|
||
|
||
(defun web-mode-attr-skip (limit)
|
||
|
||
(let ((tag-flags 0) (attr-flags 0) (continue t) (attrs 0) (counter 0) (brace-depth 0)
|
||
(pos-ori (point)) (state 0) (equal-offset 0) (go-back nil)
|
||
(is-jsx (string= web-mode-content-type "jsx"))
|
||
name-beg name-end val-beg char pos escaped spaced quoted)
|
||
|
||
(while continue
|
||
|
||
(setq pos (point)
|
||
char (char-after)
|
||
spaced (eq char ?\s))
|
||
|
||
(when quoted (setq quoted (1+ quoted)))
|
||
|
||
(cond
|
||
|
||
((>= pos limit)
|
||
(setq continue nil)
|
||
(setq go-back t)
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
)
|
||
|
||
((or (and (= state 8) (not (member char '(?\" ?\\))))
|
||
(and (= state 7) (not (member char '(?\' ?\\))))
|
||
(and (= state 9) (not (member char '(?} ?\\))))
|
||
)
|
||
(when (and (= state 9) (eq char ?\{))
|
||
(setq brace-depth (1+ brace-depth)))
|
||
)
|
||
|
||
((and (= state 9) (eq char ?\}) (> brace-depth 1))
|
||
(setq brace-depth (1- brace-depth)))
|
||
|
||
((get-text-property pos 'block-side)
|
||
(when (= state 2)
|
||
(setq name-end pos))
|
||
)
|
||
|
||
((and (= state 2) is-jsx (eq char ?\}) (eq attr-flags 4))
|
||
(setq name-end pos)
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 0
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((or (and (= state 8) (eq ?\" char) (not escaped))
|
||
(and (= state 7) (eq ?\' char) (not escaped))
|
||
(and (= state 9) (eq ?\} char) (= brace-depth 1))
|
||
)
|
||
|
||
;;(message "%S %S" (point) attr-flags)
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 0
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((and (member state '(4 5)) (member char '(?\' ?\" ?\{)))
|
||
(setq val-beg pos)
|
||
(setq quoted 1)
|
||
(setq state (cond ((eq ?\' char) 7)
|
||
((eq ?\" char) 8)
|
||
(t 9)))
|
||
(when (= state 9)
|
||
(setq brace-depth 1))
|
||
)
|
||
|
||
((and (eq ?\= char) (member state '(2 3)))
|
||
(setq equal-offset (- pos name-beg))
|
||
(setq state 4)
|
||
(setq attr (buffer-substring-no-properties name-beg (1+ name-end)))
|
||
(when (and web-mode-indentless-attributes (member (downcase attr) web-mode-indentless-attributes))
|
||
;;(message "onclick")
|
||
(setq attr-flags (logior attr-flags 8)))
|
||
)
|
||
|
||
((and spaced (= state 0))
|
||
(setq state 1)
|
||
)
|
||
|
||
((and (eq char ?\<) (not (member state '(7 8 9))))
|
||
(setq continue nil)
|
||
(setq go-back t)
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
)
|
||
|
||
((and (eq char ?\>) (not (member state '(7 8 9))))
|
||
(setq tag-flags (logior tag-flags 16))
|
||
(when (eq (char-before) ?\/)
|
||
(setq tag-flags (logior tag-flags 8))
|
||
)
|
||
(setq continue nil)
|
||
(when name-beg
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset))))
|
||
)
|
||
|
||
((and spaced (member state '(1 3 5)))
|
||
)
|
||
|
||
((and spaced (= state 2))
|
||
(setq state 3)
|
||
)
|
||
|
||
((and (eq char ?\/) (member state '(4 5)))
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 1
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((and (eq char ?\/) (member state '(0 1)))
|
||
)
|
||
|
||
((and spaced (= state 4))
|
||
(setq state 5)
|
||
)
|
||
|
||
((and (= state 3)
|
||
(or (and (>= char 97) (<= char 122)) ;a - z
|
||
(and (>= char 65) (<= char 90)) ;A - Z
|
||
(eq char ?\-)))
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 2
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg pos
|
||
name-end pos
|
||
val-beg nil)
|
||
)
|
||
|
||
((and (eq char ?\n) (not (member state '(7 8 9))))
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 1
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((and (= state 6) (member char '(?\s ?\n ?\/)))
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 1
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((and quoted (= quoted 2) (member char '(?\s ?\n ?\>)))
|
||
(when (eq char ?\>)
|
||
(setq tag-flags (logior tag-flags 16))
|
||
(setq continue nil))
|
||
(setq state 6)
|
||
(setq attrs (+ attrs (web-mode-attr-scan state char name-beg name-end val-beg attr-flags equal-offset)))
|
||
(setq state 1
|
||
attr-flags 0
|
||
equal-offset 0
|
||
name-beg nil
|
||
name-end nil
|
||
val-beg nil)
|
||
)
|
||
|
||
((and (not spaced) (= state 1))
|
||
(when (and is-jsx (eq char ?\{))
|
||
(setq attr-flags 4))
|
||
(setq state 2)
|
||
(setq name-beg pos
|
||
name-end pos)
|
||
)
|
||
|
||
((member state '(4 5))
|
||
(setq val-beg pos)
|
||
(setq state 6)
|
||
)
|
||
|
||
((= state 1)
|
||
(setq state 2)
|
||
)
|
||
|
||
((= state 2)
|
||
(setq name-end pos)
|
||
(when (and (= attr-flags 0) (member char '(?\- ?\:)))
|
||
(let (attr)
|
||
(setq attr (buffer-substring-no-properties name-beg (1+ name-end)))
|
||
(cond
|
||
((member attr '("http-equiv"))
|
||
(setq attr-flags (1- attr-flags))
|
||
)
|
||
((and web-mode-engine-attr-regexp
|
||
(string-match-p web-mode-engine-attr-regexp attr))
|
||
;;(message "%S: %S" pos web-mode-engine-attr-regexp)
|
||
(setq attr-flags (logior attr-flags 2))
|
||
;;(setq attr-flags (1- attr-flags))
|
||
)
|
||
((and (eq char ?\-) (not (string= attr "http-")))
|
||
(setq attr-flags (logior attr-flags 1)))
|
||
) ;cond
|
||
) ;let
|
||
) ;when attr-flags = 1
|
||
) ;state=2
|
||
|
||
) ;cond
|
||
|
||
;;(message "point(%S) end(%S) state(%S) c(%S) name-beg(%S) name-end(%S) val-beg(%S) attr-flags(%S) equal-offset(%S)" pos end state char name-beg name-end val-beg attr-flags equal-offset)
|
||
|
||
(when (and quoted (>= quoted 2))
|
||
(setq quoted nil))
|
||
|
||
(setq escaped (eq ?\\ char))
|
||
(when (null go-back)
|
||
(forward-char))
|
||
|
||
) ;while
|
||
|
||
(when (> attrs 0) (setq tag-flags (logior tag-flags 1)))
|
||
|
||
tag-flags))
|
||
|
||
(defun web-mode-attr-scan (state char name-beg name-end val-beg flags equal-offset)
|
||
;; (message "point(%S) state(%S) c(%c) name-beg(%S) name-end(%S) val-beg(%S) flags(%S) equal-offset(%S)"
|
||
;; (point) state char name-beg name-end val-beg flags equal-offset)
|
||
(if (null flags) (setq flags 0))
|
||
(cond
|
||
((null name-beg)
|
||
;; (message "name-beg is null (%S)" (point))
|
||
0)
|
||
((or (and (= state 8) (not (eq ?\" char)))
|
||
(and (= state 7) (not (eq ?\' char))))
|
||
(put-text-property name-beg (1+ name-beg) 'tag-attr-beg flags)
|
||
(put-text-property name-beg val-beg 'tag-attr t)
|
||
(put-text-property (1- val-beg) val-beg 'tag-attr-end equal-offset)
|
||
1)
|
||
((and (member state '(4 5)) (null val-beg))
|
||
(put-text-property name-beg (1+ name-beg) 'tag-attr-beg flags)
|
||
(put-text-property name-beg (+ name-beg equal-offset 1) 'tag-attr t)
|
||
(put-text-property (+ name-beg equal-offset) (+ name-beg equal-offset 1) 'tag-attr-end equal-offset)
|
||
1)
|
||
(t
|
||
(let (val-end)
|
||
(if (null val-beg)
|
||
(setq val-end name-end)
|
||
(setq val-end (point))
|
||
(when (or (null char) (member char '(?\s ?\n ?\> ?\/)))
|
||
(setq val-end (1- val-end))
|
||
)
|
||
) ;if
|
||
(put-text-property name-beg (1+ name-beg) 'tag-attr-beg flags)
|
||
(put-text-property name-beg (1+ val-end) 'tag-attr t)
|
||
(put-text-property val-end (1+ val-end) 'tag-attr-end equal-offset)
|
||
) ;let
|
||
1) ;t
|
||
) ;cond
|
||
)
|
||
|
||
(defun web-mode-part-scan (reg-beg reg-end &optional content-type depth)
|
||
(save-excursion
|
||
(let (token-re ch-before ch-at ch-next token-type beg continue)
|
||
;;(message "%S %S" reg-beg reg-end)
|
||
(cond
|
||
(content-type
|
||
)
|
||
((member web-mode-content-type web-mode-part-content-types)
|
||
(setq content-type web-mode-content-type))
|
||
(t
|
||
(setq content-type (symbol-name (get-text-property reg-beg 'part-side))))
|
||
) ;cond
|
||
|
||
(goto-char reg-beg)
|
||
|
||
(cond
|
||
((member content-type '("javascript" "json"))
|
||
(setq token-re "/\\|\"\\|'\\|`"))
|
||
((member content-type '("jsx"))
|
||
(setq token-re "/\\|\"\\|'\\|`\\|</?[[:alpha:]]"))
|
||
((string= web-mode-content-type "css")
|
||
(setq token-re "\"\\|'\\|/\\*\\|//"))
|
||
((string= content-type "css")
|
||
(setq token-re "\"\\|'\\|/\\*"))
|
||
(t
|
||
(setq token-re "/\\*\\|\"\\|'"))
|
||
)
|
||
|
||
(while (and token-re (< (point) reg-end) (web-mode-dom-rsf token-re reg-end t))
|
||
|
||
(setq beg (match-beginning 0)
|
||
token-type nil
|
||
continue t
|
||
ch-at (char-after beg)
|
||
ch-next (or (char-after (1+ beg)) ?\d)
|
||
ch-before (or (char-before beg) ?\d))
|
||
|
||
;;(message "[%S>%S|%S] %S %c %c %c" reg-beg reg-end depth beg ch-before ch-at ch-next)
|
||
|
||
(cond
|
||
|
||
((eq ?\' ch-at)
|
||
(while (and continue (search-forward "'" reg-end t))
|
||
(cond
|
||
((get-text-property (1- (point)) 'block-side)
|
||
(setq continue t))
|
||
((looking-back "\\\\+'" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0))
|
||
)
|
||
(t
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
(setq token-type 'string))
|
||
|
||
((eq ?\` ch-at)
|
||
(while (and continue (search-forward "`" reg-end t))
|
||
(cond
|
||
((get-text-property (1- (point)) 'block-side)
|
||
(setq continue t))
|
||
((looking-back "\\\\+`" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0)))
|
||
(t
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
(setq token-type 'string))
|
||
|
||
((eq ?\" ch-at)
|
||
(while (and continue (search-forward "\"" reg-end t))
|
||
(cond
|
||
((get-text-property (1- (point)) 'block-side)
|
||
(setq continue t))
|
||
((looking-back "\\\\+\"" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0)))
|
||
(t
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
(cond
|
||
((string= content-type "json")
|
||
(if (looking-at-p "[ ]*:")
|
||
(cond
|
||
((eq ?\@ (char-after (1+ beg)))
|
||
(setq token-type 'context))
|
||
(t
|
||
(setq token-type 'key))
|
||
)
|
||
(setq token-type 'string))
|
||
) ;json
|
||
(t
|
||
(setq token-type 'string))
|
||
) ;cond
|
||
)
|
||
|
||
((eq ?\< ch-at)
|
||
;;(message "before [%S>%S|%S] pt=%S" reg-beg reg-end depth (point))
|
||
(if (web-mode-jsx-skip reg-end)
|
||
(web-mode-jsx-scan-element beg (point) depth)
|
||
(forward-char))
|
||
;;(message "after [%S>%S|%S] pt=%S" reg-beg reg-end depth (point))
|
||
)
|
||
|
||
((and (eq ?\/ ch-at) (member content-type '("javascript" "jsx")))
|
||
(cond
|
||
((eq ?\\ ch-before)
|
||
)
|
||
((eq ?\* ch-next)
|
||
;;(message "--> %S %S" (point) reg-end)
|
||
(when (search-forward "*/" reg-end t)
|
||
(setq token-type 'comment))
|
||
)
|
||
((eq ?\/ ch-next)
|
||
(setq token-type 'comment)
|
||
(goto-char (if (< reg-end (line-end-position)) reg-end (line-end-position)))
|
||
)
|
||
((and (looking-at-p ".*/")
|
||
(looking-back "[[(,=:!&|?{};][ ]*/"))
|
||
;;(re-search-forward "/[gimyu]*" reg-end t))
|
||
(let ((eol (line-end-position)))
|
||
(while (and continue (search-forward "/" eol t))
|
||
(cond
|
||
((get-text-property (1- (point)) 'block-side)
|
||
(setq continue t))
|
||
((looking-back "\\\\+/" reg-beg t)
|
||
(setq continue (= (mod (- (point) (match-beginning 0)) 2) 0)))
|
||
(t
|
||
(re-search-forward "[gimyu]*" eol t)
|
||
(setq token-type 'string)
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
) ;let
|
||
)
|
||
) ;cond
|
||
)
|
||
|
||
((eq ?\/ ch-next)
|
||
(unless (eq ?\\ ch-before)
|
||
(setq token-type 'comment)
|
||
(goto-char (if (< reg-end (line-end-position)) reg-end (line-end-position)))
|
||
)
|
||
)
|
||
|
||
((eq ?\* ch-next)
|
||
(cond
|
||
((search-forward "*/" reg-end t)
|
||
(setq token-type 'comment))
|
||
((not (eobp))
|
||
(forward-char))
|
||
) ;cond
|
||
)
|
||
|
||
) ;cond
|
||
|
||
(when (and beg (>= reg-end (point)) token-type)
|
||
(put-text-property beg (point) 'part-token token-type)
|
||
(cond
|
||
((eq token-type 'comment)
|
||
(put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "<"))
|
||
(when (< (point) (point-max))
|
||
(if (< (point) (line-end-position))
|
||
(put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax ">")) ;#445
|
||
(put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax ">")) ;#377
|
||
)
|
||
) ;when
|
||
) ;comment
|
||
((eq token-type 'string)
|
||
(put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "|"))
|
||
(when (< (point) (point-max))
|
||
(if (< (point) (line-end-position))
|
||
(put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax "|"))
|
||
(put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "|"))
|
||
)
|
||
) ;when
|
||
) ;string
|
||
) ;cond
|
||
) ;when
|
||
|
||
(when (> (point) reg-end)
|
||
(message "reg-beg(%S) reg-end(%S) token-type(%S) point(%S)" reg-beg reg-end token-type (point)))
|
||
|
||
;;(message "#[%S>%S|%S] %S %c %c %c | (%S)" reg-beg reg-end depth beg ch-before ch-at ch-next (point))
|
||
|
||
) ;while
|
||
|
||
)))
|
||
|
||
(defun web-mode-jsx-skip (reg-end)
|
||
(let ((continue t) (pos nil) (i 0))
|
||
(save-excursion
|
||
(while continue
|
||
(cond
|
||
((> (setq i (1+ i)) 100)
|
||
(message "jsx-skip ** warning **")
|
||
(setq continue nil))
|
||
((not (web-mode-dom-rsf ">\\([ \t\n]*[\];,)':}]\\)\\|{" reg-end))
|
||
(setq continue nil)
|
||
)
|
||
((eq (char-before) ?\{)
|
||
(backward-char)
|
||
(web-mode-closing-paren reg-end)
|
||
(forward-char)
|
||
)
|
||
(t
|
||
(setq continue nil)
|
||
(setq pos (match-beginning 1))
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
) ;save-excursion
|
||
(when pos (goto-char pos))
|
||
;;(message "jsx-skip: %S" pos)
|
||
pos))
|
||
|
||
;; http://facebook.github.io/jsx/
|
||
;; https://github.com/facebook/jsx/blob/master/AST.md
|
||
(defun web-mode-jsx-scan-element (reg-beg reg-end depth)
|
||
(unless depth (setq depth 1))
|
||
(save-excursion
|
||
(let (token-beg token-end regexp)
|
||
(goto-char reg-beg)
|
||
(put-text-property reg-beg (1+ reg-beg) 'jsx-beg depth)
|
||
(put-text-property (1- reg-end) reg-end 'jsx-end depth)
|
||
(put-text-property reg-beg reg-end 'jsx-depth depth)
|
||
(goto-char reg-beg)
|
||
(while (web-mode-part-sf "/*" reg-end t)
|
||
(goto-char (match-beginning 0))
|
||
(if (looking-back "{")
|
||
(progn
|
||
(backward-char)
|
||
(setq regexp "*/}"))
|
||
(setq regexp "*/"))
|
||
(setq token-beg (point))
|
||
(if (not (web-mode-part-sf regexp reg-end t))
|
||
(goto-char reg-end)
|
||
(setq token-end (point))
|
||
(put-text-property token-beg token-end 'part-token 'comment)
|
||
) ;if
|
||
) ;while
|
||
(web-mode-scan-elements reg-beg reg-end)
|
||
(web-mode-jsx-scan-expression reg-beg reg-end (1+ depth))
|
||
)))
|
||
|
||
(defun web-mode-jsx-scan-expression (reg-beg reg-end depth)
|
||
(let ((continue t) beg end)
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
;;(message "reg-beg=%S reg-end=%S" reg-beg reg-end)
|
||
(while (and continue (search-forward "{" reg-end t))
|
||
(backward-char)
|
||
(setq beg (point)
|
||
end (web-mode-closing-paren reg-end))
|
||
(cond
|
||
((eq (get-text-property beg 'part-token) 'comment)
|
||
(forward-char))
|
||
((not end)
|
||
(setq continue nil))
|
||
(t
|
||
(setq end (1+ end))
|
||
(put-text-property beg end 'jsx-depth depth)
|
||
(put-text-property beg (1+ beg) 'jsx-beg depth)
|
||
(put-text-property (1- end) end 'jsx-end depth)
|
||
(web-mode-part-scan beg end "jsx" (1+ depth))
|
||
) ;t
|
||
) ;cond
|
||
)
|
||
)
|
||
))
|
||
|
||
(defun web-mode-jsx-is-html (&optional pos)
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let ((depth (get-text-property pos 'jsx-depth)))
|
||
(cond
|
||
((or (null depth) (<= pos 2))
|
||
(setq pos nil))
|
||
((and (= depth 1) (get-text-property pos 'jsx-beg))
|
||
(setq pos nil))
|
||
((get-text-property pos 'jsx-beg)
|
||
(setq pos (null (get-text-property pos 'tag-beg))))
|
||
((setq pos (web-mode-jsx-depth-beginning-position pos))
|
||
(setq pos (not (null (get-text-property pos 'tag-beg)))))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
;;(message "is-html: %S (depth=%S)" pos depth)
|
||
pos))
|
||
|
||
(defun web-mode-jsx-depth-beginning-position (&optional pos target-depth)
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(unless target-depth (setq target-depth (get-text-property pos 'jsx-depth)))
|
||
(cond
|
||
((or (null target-depth) (bobp))
|
||
(setq pos nil))
|
||
((and (get-text-property pos 'jsx-beg) (= target-depth (get-text-property pos 'jsx-depth)))
|
||
)
|
||
(t
|
||
(let ((continue t) depth)
|
||
(while continue
|
||
(setq pos (previous-single-property-change pos 'jsx-depth))
|
||
(cond
|
||
((or (null pos)
|
||
(null (setq depth (get-text-property pos 'jsx-depth))))
|
||
(setq continue nil
|
||
pos nil))
|
||
((and (get-text-property pos 'jsx-beg) (= target-depth depth))
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
) ;let
|
||
) ;t
|
||
) ;cond
|
||
;;(message "beg: %S" pos)
|
||
pos)
|
||
|
||
(defun web-mode-velocity-skip (pos)
|
||
(goto-char pos)
|
||
(let ((continue t) (i 0))
|
||
(when (eq ?\# (char-after))
|
||
(forward-char))
|
||
(when (member (char-after) '(?\$ ?\@))
|
||
(forward-char))
|
||
(when (member (char-after) '(?\!))
|
||
(forward-char))
|
||
(if (member (char-after) '(?\{))
|
||
(search-forward "}")
|
||
(setq continue t)
|
||
(while continue
|
||
(skip-chars-forward "a-zA-Z0-9_-")
|
||
(when (> (setq i (1+ i)) 500)
|
||
(message "velocity-skip ** warning (%S) **" pos)
|
||
(setq continue nil))
|
||
(when (member (char-after) '(?\())
|
||
(search-forward ")" nil t))
|
||
(if (member (char-after) '(?\.))
|
||
(forward-char)
|
||
(setq continue nil))
|
||
) ;while
|
||
) ;if
|
||
))
|
||
|
||
(defun web-mode-razor-skip (pos)
|
||
(goto-char pos)
|
||
(let ((continue t) (i 0))
|
||
(while continue
|
||
(skip-chars-forward " =@a-zA-Z0-9_-")
|
||
(cond
|
||
((> (setq i (1+ i)) 500)
|
||
(message "razor-skip ** warning **")
|
||
(setq continue nil))
|
||
((and (eq (char-after) ?\*)
|
||
(eq (char-before) ?@))
|
||
(when (not (search-forward "*@" nil t))
|
||
(setq continue nil))
|
||
)
|
||
((looking-at-p "@[({]")
|
||
(forward-char)
|
||
(when (setq pos (web-mode-closing-paren-position (point)))
|
||
(goto-char pos))
|
||
(forward-char)
|
||
)
|
||
((and (not (eobp)) (eq ?\( (char-after)))
|
||
(if (looking-at-p "[ \n]*<")
|
||
(setq continue nil)
|
||
(when (setq pos (web-mode-closing-paren-position))
|
||
(goto-char pos))
|
||
(forward-char)
|
||
) ;if
|
||
)
|
||
((and (not (eobp)) (eq ?\. (char-after)))
|
||
(forward-char))
|
||
((looking-at-p "[ \n]*{")
|
||
(search-forward "{")
|
||
(if (looking-at-p "[ \n]*<")
|
||
(setq continue nil)
|
||
(backward-char)
|
||
(when (setq pos (web-mode-closing-paren-position))
|
||
(goto-char pos))
|
||
(forward-char)
|
||
) ;if
|
||
)
|
||
((looking-at-p "}")
|
||
(forward-char))
|
||
(t
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
))
|
||
|
||
;; css rule = selector(s) + declaration (properties)
|
||
(defun web-mode-css-rule-next (limit)
|
||
(let (at-rule sel-beg sel-end dec-beg dec-end chunk)
|
||
(skip-chars-forward "\n\t ")
|
||
(setq sel-beg (point))
|
||
(when (and (< (point) limit)
|
||
(web-mode-part-rsf "[{;]" limit))
|
||
(setq sel-end (1- (point)))
|
||
(cond
|
||
((eq (char-before) ?\{)
|
||
(setq dec-beg (point))
|
||
(setq dec-end (web-mode-closing-paren-position (1- dec-beg) limit))
|
||
(if dec-end
|
||
(progn
|
||
(goto-char dec-end)
|
||
(forward-char))
|
||
(setq dec-end limit)
|
||
(goto-char limit))
|
||
)
|
||
(t
|
||
)
|
||
) ;cond
|
||
(setq chunk (buffer-substring-no-properties sel-beg sel-end))
|
||
(when (string-match "@\\([[:alpha:]-]+\\)" chunk)
|
||
(setq at-rule (match-string-no-properties 1 chunk)))
|
||
) ;when
|
||
(if (not sel-end)
|
||
(progn (goto-char limit) nil)
|
||
(list :at-rule at-rule
|
||
:sel-beg sel-beg
|
||
:sel-end sel-end
|
||
:dec-beg dec-beg
|
||
:dec-end dec-end)
|
||
) ;if
|
||
))
|
||
|
||
(defun web-mode-css-rule-current (&optional pos part-beg part-end)
|
||
"Current CSS rule boundaries."
|
||
(unless pos (setq pos (point)))
|
||
(unless part-beg (setq part-beg (web-mode-part-beginning-position pos)))
|
||
(unless part-end (setq part-end (web-mode-part-end-position pos)))
|
||
(save-excursion
|
||
(let (beg end)
|
||
(goto-char pos)
|
||
(if (not (web-mode-part-sb "{" part-beg))
|
||
(progn
|
||
(setq beg part-beg)
|
||
(if (web-mode-part-sf ";" part-end)
|
||
(setq end (1+ (point)))
|
||
(setq end part-end))
|
||
) ;progn
|
||
(setq beg (point))
|
||
(setq end (web-mode-closing-paren-position beg part-end))
|
||
(if end
|
||
(setq end (1+ end))
|
||
(setq end (line-end-position)))
|
||
;; (message "%S >>beg%S >>end%S" pos beg end)
|
||
(if (> pos end)
|
||
|
||
;;selectors
|
||
(progn
|
||
(goto-char pos)
|
||
(if (web-mode-part-rsb "[};]" part-beg)
|
||
(setq beg (1+ (point)))
|
||
(setq beg part-beg)
|
||
) ;if
|
||
(goto-char pos)
|
||
(if (web-mode-part-rsf "[{;]" part-end)
|
||
(cond
|
||
((eq (char-before) ?\;)
|
||
(setq end (point))
|
||
)
|
||
(t
|
||
(setq end (web-mode-closing-paren-position (1- (point)) part-end))
|
||
(if end
|
||
(setq end (1+ end))
|
||
(setq end part-end))
|
||
)
|
||
) ;cond
|
||
(setq end part-end)
|
||
)
|
||
) ;progn selectors
|
||
|
||
;; declaration
|
||
(goto-char beg)
|
||
(if (web-mode-part-rsb "[}{;]" part-beg)
|
||
(setq beg (1+ (point)))
|
||
(setq beg part-beg)
|
||
) ;if
|
||
) ; if > pos end
|
||
)
|
||
;; (message "beg(%S) end(%S)" beg end)
|
||
(when (eq (char-after beg) ?\n)
|
||
(setq beg (1+ beg)))
|
||
(cons beg end)
|
||
)))
|
||
|
||
(defun web-mode-scan-engine-comments (reg-beg reg-end tag-start tag-end)
|
||
"Scan engine comments (mako, django)."
|
||
(save-excursion
|
||
(let (beg end (continue t))
|
||
(goto-char reg-beg)
|
||
(while (and continue
|
||
(< (point) reg-end)
|
||
(re-search-forward tag-start reg-end t))
|
||
(goto-char (match-beginning 0))
|
||
(setq beg (point))
|
||
(if (not (re-search-forward tag-end reg-end t))
|
||
(setq continue nil)
|
||
(setq end (point))
|
||
(remove-list-of-text-properties beg end web-mode-scan-properties)
|
||
(add-text-properties beg end '(block-side t block-token comment))
|
||
(put-text-property beg (1+ beg) 'block-beg 0)
|
||
(put-text-property (1- end) end 'block-end t)
|
||
) ;if
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-propertize (&optional beg end)
|
||
|
||
(unless beg (setq beg web-mode-change-beg))
|
||
(unless end (setq end web-mode-change-end))
|
||
|
||
;; (message "propertize: beg(%S) end(%S)" web-mode-change-beg web-mode-change-end)
|
||
|
||
(when (and end (> end (point-max)))
|
||
(setq end (point-max)))
|
||
|
||
;; (remove-text-properties beg end '(font-lock-face nil))
|
||
|
||
(setq web-mode-change-beg nil
|
||
web-mode-change-end nil)
|
||
(cond
|
||
|
||
((or (null beg) (null end))
|
||
nil)
|
||
|
||
((and (member web-mode-engine '("php" "asp"))
|
||
(get-text-property beg 'block-side)
|
||
(get-text-property end 'block-side)
|
||
(> beg (point-min))
|
||
(not (eq (get-text-property (1- beg) 'block-token) 'delimiter-beg))
|
||
(not (eq (get-text-property end 'block-token) 'delimiter-end)))
|
||
;;(message "invalidate block")
|
||
(web-mode-invalidate-block-region beg end))
|
||
|
||
((and (or (member web-mode-content-type '("css" "jsx" "javascript"))
|
||
(and (get-text-property beg 'part-side)
|
||
(get-text-property end 'part-side)
|
||
(> beg (point-min))
|
||
(get-text-property (1- beg) 'part-side)
|
||
(get-text-property end 'part-side))
|
||
))
|
||
;;(message "invalidate part (%S > %S)" beg end)
|
||
(web-mode-invalidate-part-region beg end))
|
||
|
||
(t
|
||
;;(message "%S %S" beg end)
|
||
(web-mode-invalidate-region beg end))
|
||
|
||
) ;cond
|
||
|
||
)
|
||
|
||
;; NOTE: il est important d'identifier des caractères en fin de ligne
|
||
;; web-mode-block-tokenize travaille en effet sur les fins de lignes pour
|
||
;; les commentaires de type //
|
||
(defun web-mode-invalidate-block-region (pos-beg pos-end)
|
||
;; (message "pos-beg(%S) pos-end(%S)" pos-beg pos-end)
|
||
(save-excursion
|
||
(let (beg end code-beg code-end)
|
||
;;(message "invalidate-block-region: pos-beg(%S)=%S" pos-beg (get-text-property pos 'block-side))
|
||
;;(message "code-beg(%S) code-end(%S) pos-beg(%S) pos-end(%S)" code-beg code-end pos-beg pos-end)
|
||
(cond
|
||
((not (and (setq code-beg (web-mode-block-code-beginning-position pos-beg))
|
||
(setq code-end (web-mode-block-code-end-position pos-beg))
|
||
(>= pos-beg code-beg)
|
||
(<= pos-end code-end)
|
||
(> code-end code-beg)))
|
||
(web-mode-invalidate-region pos-beg pos-end))
|
||
((member web-mode-engine '("asp"))
|
||
(goto-char pos-beg)
|
||
(forward-line -1)
|
||
(setq beg (line-beginning-position))
|
||
(when (> code-beg beg)
|
||
(setq beg code-beg))
|
||
(goto-char pos-beg)
|
||
(forward-line)
|
||
(setq end (line-end-position))
|
||
(when (< code-end end)
|
||
(setq end code-end))
|
||
;; ?? pas de (web-mode-block-tokenize beg end) ?
|
||
(cons beg end)
|
||
) ; asp
|
||
(t
|
||
(goto-char pos-beg)
|
||
(when (string= web-mode-engine "php")
|
||
(cond
|
||
((and (looking-back "\*")
|
||
(looking-at-p "/"))
|
||
(search-backward "/*" code-beg))
|
||
) ;cond
|
||
)
|
||
(if (web-mode-block-rsb "[;{}(][ ]*\n" code-beg)
|
||
(setq beg (match-end 0))
|
||
(setq beg code-beg))
|
||
(goto-char pos-end)
|
||
(if (web-mode-block-rsf "[;{})][ ]*\n" code-end)
|
||
(setq end (1- (match-end 0)))
|
||
(setq end code-end))
|
||
(web-mode-block-tokenize beg end)
|
||
;;(message "beg(%S) end(%S)" beg end)
|
||
(cons beg end)
|
||
)
|
||
) ;cond
|
||
)))
|
||
|
||
(defun web-mode-invalidate-part-region (pos-beg pos-end)
|
||
(save-excursion
|
||
(let (beg end part-beg part-end language)
|
||
(if (member web-mode-content-type '("css" "javascript" "json" "jsx"))
|
||
(setq language web-mode-content-type)
|
||
(setq language (symbol-name (get-text-property pos-beg 'part-side))))
|
||
(setq part-beg (web-mode-part-beginning-position pos-beg)
|
||
part-end (web-mode-part-end-position pos-beg))
|
||
;;(message "language(%S) pos-beg(%S) pos-end(%S) part-beg(%S) part-end(%S)"
|
||
;; language pos-beg pos-end part-beg part-end)
|
||
(goto-char pos-beg)
|
||
(cond
|
||
((not (and part-beg part-end
|
||
(>= pos-beg part-beg)
|
||
(<= pos-end part-end)
|
||
(> part-end part-beg)))
|
||
(web-mode-invalidate-region pos-beg pos-end))
|
||
((member language '("javascript" "json" "jsx"))
|
||
(if (web-mode-javascript-rsb "[;{}(][ ]*\n" part-beg)
|
||
(setq beg (match-end 0))
|
||
(setq beg part-beg))
|
||
(goto-char pos-end)
|
||
(if (web-mode-javascript-rsf "[;{})][ ]*\n" part-end)
|
||
(setq end (match-end 0))
|
||
(setq end part-end))
|
||
(web-mode-scan-region beg end language))
|
||
((string= language "css")
|
||
(let (rule1 rule2)
|
||
(setq rule1 (web-mode-css-rule-current pos-beg))
|
||
(setq rule2 rule1)
|
||
(when (> pos-end (cdr rule1))
|
||
(setq rule2 (web-mode-css-rule-current pos-end)))
|
||
(setq beg (car rule1)
|
||
end (cdr rule2))
|
||
)
|
||
(web-mode-scan-region beg end language))
|
||
(t
|
||
(setq beg part-beg
|
||
end part-end)
|
||
(web-mode-scan-region beg end language))
|
||
) ;cond
|
||
)))
|
||
|
||
(defun web-mode-invalidate-region (reg-beg reg-end)
|
||
;;(message "%S | reg-beg(%S) reg-end(%S)" (point) reg-beg reg-end)
|
||
(setq reg-beg (web-mode-invalidate-region-beginning-position reg-beg)
|
||
reg-end (web-mode-invalidate-region-end-position reg-end))
|
||
;;(message "invalidate-region: reg-beg(%S) reg-end(%S)" reg-beg reg-end)
|
||
(web-mode-scan-region reg-beg reg-end))
|
||
|
||
(defun web-mode-invalidate-region-beginning-position (pos)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(when (and (bolp) (not (bobp)))
|
||
(backward-char))
|
||
(beginning-of-line)
|
||
;;(message "pos=%S %S" (point) (text-properties-at (point)))
|
||
(setq pos (point-min))
|
||
(let ((continue (not (bobp))))
|
||
(while continue
|
||
(cond
|
||
((bobp)
|
||
(setq continue nil))
|
||
;; NOTE: Going back to the previous start tag is necessary
|
||
;; when inserting a part endtag (e.g. </script>).
|
||
;; Indeed, parts must be identified asap.
|
||
((and (progn (back-to-indentation) t)
|
||
(get-text-property (point) 'tag-beg)
|
||
(eq (get-text-property (point) 'tag-type) 'start))
|
||
(setq pos (point)
|
||
continue nil))
|
||
(t
|
||
(forward-line -1))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "pos=%S" pos)
|
||
pos)))
|
||
|
||
(defun web-mode-invalidate-region-end-position (pos)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
;;(message "pos=%S %S" pos (get-text-property pos 'block-token))
|
||
(when (string= web-mode-engine "jsp")
|
||
(cond
|
||
((and (looking-back "<%")
|
||
(looking-at-p "--"))
|
||
(search-forward "--%>"))
|
||
((and (looking-back "-- %")
|
||
(looking-at-p ">"))
|
||
(search-forward "--%>"))
|
||
) ;cond
|
||
) ;when
|
||
|
||
(setq pos (point-max))
|
||
(let ((continue (not (eobp))))
|
||
(while continue
|
||
(end-of-line)
|
||
;;(message "%S %S" (point) (get-text-property (point) 'block-token))
|
||
(cond
|
||
((eobp)
|
||
(setq continue nil))
|
||
;;()
|
||
((and (not (get-text-property (point) 'tag-type))
|
||
(not (get-text-property (point) 'part-side))
|
||
(not (get-text-property (point) 'block-side)))
|
||
(setq pos (point)
|
||
continue nil))
|
||
(t
|
||
(forward-line))
|
||
) ;cond
|
||
) ;while
|
||
pos)))
|
||
|
||
(defun web-mode-buffer-scan ()
|
||
"Scan entine buffer."
|
||
(interactive)
|
||
(web-mode-scan-region (point-min) (point-max)))
|
||
|
||
;;---- FONTIFICATION -----------------------------------------------------------
|
||
|
||
(defun web-mode-font-lock-highlight (limit)
|
||
;;(message "font-lock-highlight: point(%S) limit(%S) change-beg(%S) change-end(%S)" (point) limit web-mode-change-beg web-mode-change-end)
|
||
(cond
|
||
(web-mode-inhibit-fontification
|
||
nil)
|
||
(t
|
||
(web-mode-highlight-region (point) limit)
|
||
nil)
|
||
))
|
||
|
||
(defun web-mode-buffer-highlight ()
|
||
(interactive)
|
||
(if (fboundp 'font-lock-flush)
|
||
(font-lock-flush)
|
||
(font-lock-fontify-buffer)))
|
||
|
||
(defun web-mode-extend-region ()
|
||
;;(message "extend-region: flb(%S) fle(%S) wmcb(%S) wmce(%S)" font-lock-beg font-lock-end web-mode-change-beg web-mode-change-end)
|
||
;; (setq font-lock-beg web-mode-change-beg
|
||
;; font-lock-end web-mode-change-end)
|
||
(cond
|
||
(web-mode-inhibit-fontification
|
||
nil)
|
||
(t ;;(and web-mode-change-beg web-mode-change-end)
|
||
(when (or (null web-mode-change-beg) (< font-lock-beg web-mode-change-beg))
|
||
;;(message "font-lock-beg(%S) < web-mode-change-beg(%S)" font-lock-beg web-mode-change-beg)
|
||
(setq web-mode-change-beg font-lock-beg))
|
||
(when (or (null web-mode-change-end) (> font-lock-end web-mode-change-end))
|
||
;;(message "font-lock-end(%S) > web-mode-change-end(%S)" font-lock-end web-mode-change-end)
|
||
(setq web-mode-change-end font-lock-end))
|
||
(let ((region (web-mode-propertize web-mode-change-beg web-mode-change-end)))
|
||
(when region
|
||
;;(message "region: %S" region)
|
||
(setq font-lock-beg (car region)
|
||
font-lock-end (cdr region)
|
||
;;web-mode-change-beg (car region)
|
||
;;web-mode-change-end (cdr region)
|
||
)
|
||
) ;when
|
||
) ;let
|
||
nil) ;t
|
||
))
|
||
|
||
(defun web-mode-unfontify-region (beg end)
|
||
;;(message "unfontify: %S %S" beg end)
|
||
)
|
||
|
||
(defun web-mode-highlight-region (&optional beg end) ;; content-type)
|
||
;;(message "highlight-region: beg(%S) end(%S)" beg end)
|
||
(web-mode-with-silent-modifications
|
||
(save-excursion
|
||
(save-restriction
|
||
(save-match-data
|
||
(let ((buffer-undo-list t)
|
||
;;(inhibit-modification-hooks t)
|
||
(inhibit-point-motion-hooks t)
|
||
(inhibit-quit t))
|
||
(remove-list-of-text-properties beg end '(font-lock-face face))
|
||
(cond
|
||
((and (get-text-property beg 'block-side)
|
||
(not (get-text-property beg 'block-beg)))
|
||
(web-mode-block-highlight beg end))
|
||
((or (member web-mode-content-type web-mode-part-content-types)
|
||
;;(member content-type web-mode-part-content-types)
|
||
(get-text-property beg 'part-side))
|
||
(web-mode-part-highlight beg end)
|
||
(web-mode-process-blocks beg end 'web-mode-block-highlight))
|
||
((string= web-mode-engine "none")
|
||
(web-mode-highlight-tags beg end)
|
||
(web-mode-process-parts beg end 'web-mode-part-highlight))
|
||
(t
|
||
(web-mode-highlight-tags beg end)
|
||
(web-mode-process-parts beg end 'web-mode-part-highlight)
|
||
(web-mode-process-blocks beg end 'web-mode-block-highlight))
|
||
) ;cond
|
||
(when web-mode-enable-element-content-fontification
|
||
(web-mode-highlight-elements beg end))
|
||
(when web-mode-enable-whitespace-fontification
|
||
(web-mode-highlight-whitespaces beg end))
|
||
;;(message "%S %S" font-lock-keywords font-lock-keywords-alist)
|
||
))))))
|
||
|
||
(defun web-mode-highlight-tags (reg-beg reg-end &optional depth)
|
||
(let ((continue t))
|
||
(goto-char reg-beg)
|
||
(when (and (not (get-text-property (point) 'tag-beg))
|
||
(not (web-mode-tag-next)))
|
||
(setq continue nil))
|
||
(when (and continue (>= (point) reg-end))
|
||
(setq continue nil))
|
||
(while continue
|
||
(cond
|
||
(depth
|
||
(when (eq depth (get-text-property (point) 'jsx-depth))
|
||
(web-mode-tag-highlight)
|
||
)
|
||
;; BGJSX
|
||
)
|
||
(t
|
||
(web-mode-tag-highlight))
|
||
) ;cond
|
||
(when (or (not (web-mode-tag-next))
|
||
(>= (point) reg-end))
|
||
(setq continue nil))
|
||
) ;while
|
||
(when web-mode-enable-inlays
|
||
(when (null web-mode-inlay-regexp)
|
||
(setq web-mode-inlay-regexp (regexp-opt '("\\[" "\\(" "\\begin{align}"))))
|
||
(let (beg end expr)
|
||
(goto-char reg-beg)
|
||
(while (web-mode-dom-rsf web-mode-inlay-regexp reg-end)
|
||
(setq beg (match-beginning 0)
|
||
end nil
|
||
expr (substring (match-string-no-properties 0) 0 2))
|
||
(setq expr (cond
|
||
((string= expr "\\[") "\\]")
|
||
((string= expr "\\(") "\\)")
|
||
(t "\\end{align}")))
|
||
(when (and (web-mode-dom-sf expr reg-end)
|
||
(setq end (match-end 0))
|
||
(not (text-property-any beg end 'tag-end t)))
|
||
(font-lock-append-text-property beg end 'font-lock-face 'web-mode-inlay-face)
|
||
) ;when
|
||
) ;while
|
||
) ;let
|
||
) ;when
|
||
(when web-mode-enable-html-entities-fontification
|
||
(let (beg end)
|
||
(goto-char reg-beg)
|
||
(while (web-mode-dom-rsf "&\\([#]?[[:alnum:]]\\{2,8\\}\\);" reg-end)
|
||
(setq beg (match-beginning 0)
|
||
end (match-end 0))
|
||
(when (not (text-property-any beg end 'tag-end t))
|
||
(font-lock-append-text-property beg end 'font-lock-face 'web-mode-html-entity-face)
|
||
) ;when
|
||
) ;while
|
||
) ;let
|
||
) ;when
|
||
))
|
||
|
||
(defun web-mode-tag-highlight (&optional beg end)
|
||
(unless beg (setq beg (point)))
|
||
(unless end (setq end (1+ (web-mode-tag-end-position beg))))
|
||
(let (name type face flags slash-beg slash-end bracket-end)
|
||
(setq flags (get-text-property beg 'tag-beg)
|
||
type (get-text-property beg 'tag-type)
|
||
name (get-text-property beg 'tag-name))
|
||
(cond
|
||
((eq type 'comment)
|
||
(put-text-property beg end 'font-lock-face 'web-mode-comment-face)
|
||
(when (and web-mode-enable-comment-interpolation (> (- end beg) 5))
|
||
(web-mode-interpolate-comment beg end nil)))
|
||
((eq type 'cdata)
|
||
(put-text-property beg end 'font-lock-face 'web-mode-doctype-face))
|
||
((eq type 'doctype)
|
||
(put-text-property beg end 'font-lock-face 'web-mode-doctype-face))
|
||
((eq type 'declaration)
|
||
(put-text-property beg end 'font-lock-face 'web-mode-doctype-face))
|
||
(name
|
||
(setq face (cond
|
||
((and web-mode-enable-element-tag-fontification
|
||
(setq face (cdr (assoc name web-mode-element-tag-faces))))
|
||
face)
|
||
((> (logand flags 2) 0) 'web-mode-html-tag-custom-face)
|
||
(t 'web-mode-html-tag-face))
|
||
slash-beg (> (logand flags 4) 0)
|
||
slash-end (> (logand flags 8) 0)
|
||
bracket-end (> (logand flags 16) 0))
|
||
(put-text-property beg (+ beg (if slash-beg 2 1))
|
||
'font-lock-face 'web-mode-html-tag-bracket-face)
|
||
(put-text-property (+ beg (if slash-beg 2 1)) (+ beg (if slash-beg 2 1) (length name))
|
||
'font-lock-face face)
|
||
(when (or slash-end bracket-end)
|
||
(put-text-property (- end (if slash-end 2 1)) end 'font-lock-face 'web-mode-html-tag-bracket-face)
|
||
) ;when
|
||
(when (> (logand flags 1) 0)
|
||
;;(message "%S>%S" beg end)
|
||
(web-mode-highlight-attrs beg end))
|
||
) ;case name
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-highlight-attrs (reg-beg reg-end)
|
||
(let ((continue t) (pos reg-beg) beg end flags offset face)
|
||
;;(message "highlight-attrs %S>%S" reg-beg reg-end)
|
||
(while continue
|
||
(setq beg (web-mode-attribute-next-position pos reg-end))
|
||
(cond
|
||
((or (null beg) (>= beg reg-end))
|
||
(setq continue nil))
|
||
(t
|
||
(setq flags (or (get-text-property beg 'tag-attr-beg) 0))
|
||
(setq face (cond
|
||
((= (logand flags 1) 1) 'web-mode-html-attr-custom-face)
|
||
((= (logand flags 2) 2) 'web-mode-html-attr-engine-face)
|
||
((= (logand flags 4) 4) nil)
|
||
(t 'web-mode-html-attr-name-face)))
|
||
;;(setq end (if (get-text-property beg 'tag-attr-end) beg (web-mode-attribute-end-position beg)))
|
||
(setq end (web-mode-attribute-end-position beg))
|
||
(cond
|
||
((or (null end) (>= end reg-end))
|
||
(setq continue nil))
|
||
(t
|
||
(setq offset (get-text-property end 'tag-attr-end))
|
||
(if (= offset 0)
|
||
(put-text-property beg (1+ end) 'font-lock-face face)
|
||
(put-text-property beg (+ beg offset) 'font-lock-face face)
|
||
(put-text-property (+ beg offset) (+ beg offset 1)
|
||
'font-lock-face
|
||
'web-mode-html-attr-equal-face)
|
||
(when (not (get-text-property (+ beg offset 1) 'jsx-beg))
|
||
(put-text-property (+ beg offset 1) (1+ end)
|
||
'font-lock-face
|
||
'web-mode-html-attr-value-face)
|
||
)
|
||
) ;if offset
|
||
(setq pos (1+ end))
|
||
) ;t
|
||
) ;cond
|
||
) ;t
|
||
);cond
|
||
) ;while
|
||
))
|
||
|
||
(defun web-mode-block-highlight (reg-beg reg-end)
|
||
(let (sub1 sub2 sub3 continue char keywords token-type face beg end (buffer (current-buffer)))
|
||
;;(message "reg-beg=%S reg-end=%S" reg-beg reg-end)
|
||
|
||
;; NOTE: required for block inside tag attr
|
||
(remove-list-of-text-properties reg-beg reg-end '(font-lock-face))
|
||
|
||
(goto-char reg-beg)
|
||
|
||
(when (null web-mode-engine-font-lock-keywords)
|
||
(setq sub1 (buffer-substring-no-properties
|
||
reg-beg (+ reg-beg 1))
|
||
sub2 (buffer-substring-no-properties
|
||
reg-beg (+ reg-beg 2))
|
||
sub3 (buffer-substring-no-properties
|
||
reg-beg (+ reg-beg (if (>= (point-max) (+ reg-beg 3)) 3 2))))
|
||
)
|
||
|
||
(cond
|
||
|
||
((and (get-text-property reg-beg 'block-beg)
|
||
(eq (get-text-property reg-beg 'block-token) 'comment))
|
||
(put-text-property reg-beg reg-end 'font-lock-face 'web-mode-comment-face)
|
||
) ;comment block
|
||
|
||
(web-mode-engine-font-lock-keywords
|
||
(setq keywords web-mode-engine-font-lock-keywords)
|
||
)
|
||
|
||
((string= web-mode-engine "django")
|
||
(cond
|
||
((string= sub2 "{{")
|
||
(setq keywords web-mode-django-expr-font-lock-keywords))
|
||
((string= sub2 "{%")
|
||
(setq keywords web-mode-django-code-font-lock-keywords))
|
||
)) ;django
|
||
|
||
((string= web-mode-engine "mako")
|
||
(cond
|
||
((member sub3 '("<% " "<%\n" "<%!"))
|
||
(setq keywords web-mode-mako-block-font-lock-keywords))
|
||
((eq (aref sub2 0) ?\%)
|
||
(setq keywords web-mode-mako-block-font-lock-keywords))
|
||
((member sub2 '("<%" "</"))
|
||
(setq keywords web-mode-mako-tag-font-lock-keywords))
|
||
((member sub2 '("${"))
|
||
(setq keywords web-mode-uel-font-lock-keywords))
|
||
)) ;mako
|
||
|
||
((string= web-mode-engine "mason")
|
||
;;(message "%S %S" sub2 sub3)
|
||
(cond
|
||
((member sub3 '("<% " "<%\n" "<&|"))
|
||
(setq keywords web-mode-mason-code-font-lock-keywords))
|
||
((eq (aref sub2 0) ?\%)
|
||
(setq keywords web-mode-mason-code-font-lock-keywords))
|
||
((and (or (string= sub2 "<%") (string= sub3 "</%"))
|
||
(not (member sub3 '("<%c" "<%i" "<%p"))))
|
||
(setq keywords web-mode-mason-block-font-lock-keywords))
|
||
(t
|
||
(setq keywords web-mode-mason-code-font-lock-keywords))
|
||
)) ;mason
|
||
|
||
((string= web-mode-engine "jsp")
|
||
(cond
|
||
((string= sub3 "<%@")
|
||
(setq keywords web-mode-directive-font-lock-keywords))
|
||
((member sub2 '("${" "#{"))
|
||
(setq keywords web-mode-uel-font-lock-keywords))
|
||
((string= sub2 "<%")
|
||
(setq keywords web-mode-jsp-font-lock-keywords))
|
||
(t
|
||
(setq keywords web-mode-engine-tag-font-lock-keywords))
|
||
)) ;jsp
|
||
|
||
((string= web-mode-engine "asp")
|
||
(cond
|
||
((or (string= sub2 "<%")
|
||
(not (string= sub1 "<")))
|
||
(setq keywords web-mode-asp-font-lock-keywords))
|
||
(t
|
||
(setq keywords web-mode-engine-tag-font-lock-keywords))
|
||
)) ;asp
|
||
|
||
((string= web-mode-engine "clip")
|
||
(setq keywords web-mode-engine-tag-font-lock-keywords)
|
||
) ;clip
|
||
|
||
((string= web-mode-engine "aspx")
|
||
(cond
|
||
((string= sub3 "<%@")
|
||
(setq keywords web-mode-directive-font-lock-keywords))
|
||
((string= sub3 "<%$")
|
||
(setq keywords web-mode-expression-font-lock-keywords))
|
||
(t
|
||
(setq keywords web-mode-aspx-font-lock-keywords))
|
||
)) ;aspx
|
||
|
||
((string= web-mode-engine "freemarker")
|
||
(cond
|
||
((member sub2 '("${" "#{"))
|
||
(setq keywords web-mode-uel-font-lock-keywords))
|
||
((or (member sub2 '("<@" "[@" "<#" "[#"))
|
||
(member sub3 '("</@" "[/@" "</#" "[/#")))
|
||
(setq keywords (if (eq ?\[ (aref sub2 0))
|
||
web-mode-freemarker-square-font-lock-keywords
|
||
web-mode-freemarker-font-lock-keywords)))
|
||
(t
|
||
(setq keywords web-mode-engine-tag-font-lock-keywords))
|
||
)) ;freemarker
|
||
|
||
) ;cond
|
||
|
||
(when keywords
|
||
(web-mode-fontify-region reg-beg reg-end keywords)
|
||
(setq continue t)
|
||
(setq end reg-beg)
|
||
(while continue
|
||
(if (get-text-property end 'block-token)
|
||
(setq beg end)
|
||
(setq beg (next-single-property-change end 'block-token buffer reg-end)))
|
||
(setq end nil)
|
||
(when beg (setq char (char-after beg)))
|
||
(if (and beg (< beg reg-end))
|
||
(progn
|
||
(setq token-type (get-text-property beg 'block-token))
|
||
(setq face (cond
|
||
((eq token-type 'string) 'web-mode-block-string-face)
|
||
((eq token-type 'comment) 'web-mode-block-comment-face)
|
||
(t 'web-mode-block-delimiter-face)))
|
||
(setq end (next-single-property-change beg 'block-token buffer reg-end))
|
||
;; (message "end=%S" end)
|
||
(if (and end (<= end reg-end))
|
||
(progn
|
||
;;(message "%S > %S face(%S)" beg end face)
|
||
(remove-list-of-text-properties beg end '(face))
|
||
(put-text-property beg end 'font-lock-face face)
|
||
)
|
||
(setq continue nil
|
||
end nil)
|
||
) ;if end
|
||
) ;progn beg
|
||
(setq continue nil
|
||
end nil)
|
||
) ;if beg
|
||
(when (and beg end)
|
||
(save-match-data
|
||
(when (and web-mode-enable-heredoc-fontification
|
||
(eq char ?\<)
|
||
(> (- end beg) 8)
|
||
;;(progn (message "%S" (buffer-substring-no-properties beg end)) t)
|
||
(string-match-p "JS\\|JAVASCRIPT\\|HTM\\|CSS" (buffer-substring-no-properties beg end)))
|
||
(setq keywords
|
||
(cond
|
||
((string-match-p "H" (buffer-substring-no-properties beg (+ beg 8)))
|
||
web-mode-html-font-lock-keywords)
|
||
(t
|
||
web-mode-javascript-font-lock-keywords)
|
||
))
|
||
(web-mode-fontify-region beg end keywords)
|
||
))
|
||
;; (message "%S %c %S beg=%S end=%S" web-mode-enable-string-interpolation char web-mode-engine beg end)
|
||
(when (and web-mode-enable-string-interpolation
|
||
(member char '(?\" ?\<))
|
||
(member web-mode-engine '("php" "erb"))
|
||
(> (- end beg) 4))
|
||
(web-mode-interpolate-block-string beg end)
|
||
) ;when
|
||
(when (and web-mode-enable-comment-interpolation
|
||
(eq token-type 'comment)
|
||
(> (- end beg) 3))
|
||
(web-mode-interpolate-comment beg end t)
|
||
) ;when
|
||
(when (and web-mode-enable-sql-detection
|
||
(eq token-type 'string)
|
||
(> (- end beg) 6)
|
||
;;(eq char ?\<)
|
||
;;(web-mode-looking-at-p (concat "[ \n]*" web-mode-sql-queries) (1+ beg))
|
||
(web-mode-looking-at-p (concat "\\(.\\|<<<[[:alnum:]]+\\)[ \n]*" web-mode-sql-queries) beg)
|
||
)
|
||
(web-mode-interpolate-sql-string beg end)
|
||
) ;when
|
||
) ;when beg end
|
||
) ;while continue
|
||
) ;when keywords
|
||
|
||
(when (and (member web-mode-engine '("jsp" "mako"))
|
||
(> (- reg-end reg-beg) 12)
|
||
(eq ?\< (char-after reg-beg)))
|
||
(web-mode-interpolate-block-tag reg-beg reg-end))
|
||
|
||
(when web-mode-enable-block-face
|
||
;; (message "block-face %S %S" reg-beg reg-end)
|
||
(font-lock-append-text-property reg-beg reg-end 'face 'web-mode-block-face))
|
||
|
||
))
|
||
|
||
(defun web-mode-part-highlight (reg-beg reg-end &optional depth)
|
||
(unless depth
|
||
(when (string= web-mode-content-type "jsx") (setq depth 0))
|
||
)
|
||
(save-excursion
|
||
(let (start continue token-type face pos beg end string-face comment-face content-type)
|
||
;;(message "part-highlight: reg-beg(%S) reg-end(%S)" reg-beg reg-end)
|
||
(if (member web-mode-content-type web-mode-part-content-types)
|
||
(setq content-type web-mode-content-type)
|
||
(setq content-type (symbol-name (get-text-property reg-beg 'part-side))))
|
||
(cond
|
||
((member content-type '("javascript" "jsx"))
|
||
(setq string-face 'web-mode-javascript-string-face
|
||
comment-face 'web-mode-javascript-comment-face)
|
||
(web-mode-fontify-region reg-beg reg-end web-mode-javascript-font-lock-keywords))
|
||
((string= content-type "json")
|
||
(setq string-face 'web-mode-json-string-face
|
||
comment-face 'web-mode-json-comment-face)
|
||
(web-mode-fontify-region reg-beg reg-end web-mode-javascript-font-lock-keywords))
|
||
((string= content-type "css")
|
||
(setq string-face 'web-mode-css-string-face
|
||
comment-face 'web-mode-css-comment-face)
|
||
(web-mode-css-rules-highlight reg-beg reg-end))
|
||
(t
|
||
(setq string-face 'web-mode-part-string-face
|
||
comment-face 'web-mode-part-comment-face))
|
||
)
|
||
|
||
(goto-char reg-beg)
|
||
|
||
;;(when (string= content-type "jsx") (web-mode-highlight-tags reg-beg reg-end))
|
||
;;(setq continue (and pos (< pos reg-end)))
|
||
(setq continue t
|
||
pos reg-beg)
|
||
(while continue
|
||
(if (get-text-property pos 'part-token)
|
||
(setq beg pos)
|
||
(setq beg (next-single-property-change pos 'part-token)))
|
||
(cond
|
||
((or (null beg) (>= beg reg-end))
|
||
(setq continue nil
|
||
end nil))
|
||
((and (eq depth 0) (get-text-property beg 'jsx-depth))
|
||
(setq pos (or (next-single-property-change beg 'jsx-depth) (point-max))))
|
||
(t
|
||
(setq token-type (get-text-property beg 'part-token))
|
||
(setq face (cond
|
||
((eq token-type 'string) string-face)
|
||
((eq token-type 'comment) comment-face)
|
||
((eq token-type 'context) 'web-mode-json-context-face)
|
||
((eq token-type 'key) 'web-mode-json-key-face)
|
||
(t nil)))
|
||
(setq end (or (next-single-property-change beg 'part-token) (point-max))
|
||
pos end)
|
||
(cond
|
||
((or (null end) (> end reg-end))
|
||
(setq continue nil
|
||
end nil))
|
||
(t
|
||
(when face
|
||
(remove-list-of-text-properties beg end '(face))
|
||
(put-text-property beg end 'font-lock-face face))
|
||
(cond
|
||
((< (- end beg) 6)
|
||
)
|
||
((eq token-type 'string)
|
||
(when (and web-mode-enable-string-interpolation
|
||
(member content-type '("javascript" "jsx")))
|
||
(web-mode-interpolate-javascript-string beg end)))
|
||
((eq token-type 'comment)
|
||
(when web-mode-enable-comment-interpolation
|
||
(web-mode-interpolate-comment beg end t)))
|
||
) ;cond
|
||
) ;t
|
||
) ;cond
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
|
||
(when (and (string= web-mode-content-type "html") web-mode-enable-part-face)
|
||
(font-lock-append-text-property reg-beg reg-end 'face
|
||
(if (string= content-type "javascript")
|
||
'web-mode-script-face
|
||
'web-mode-style-face))
|
||
)
|
||
|
||
|
||
|
||
(when (and (eq depth 0) (string= content-type "jsx"))
|
||
(let (pair elt-beg elt-end exp-beg exp-end exp-depth)
|
||
(goto-char reg-beg)
|
||
(while (setq pair (web-mode-jsx-element-next reg-end))
|
||
;;(message "elt-pair=%S" pair)
|
||
(setq elt-beg (car pair)
|
||
elt-end (cdr pair))
|
||
(remove-list-of-text-properties elt-beg (1+ elt-end) '(face))
|
||
(web-mode-highlight-tags elt-beg elt-end 1)
|
||
(goto-char elt-beg)
|
||
(while (setq pair (web-mode-jsx-expression-next elt-end))
|
||
;;(message "exp-pair=%S elt-end=%S" pair elt-end)
|
||
(setq exp-beg (car pair)
|
||
exp-end (cdr pair))
|
||
(when (eq (char-after exp-beg) ?\{)
|
||
(setq exp-depth (get-text-property exp-beg 'jsx-depth))
|
||
(remove-list-of-text-properties exp-beg exp-end '(font-lock-face))
|
||
(put-text-property exp-beg (1+ exp-beg) 'font-lock-face 'web-mode-block-delimiter-face)
|
||
(when (and (eq (get-text-property exp-beg 'tag-attr-beg) 4) (web-mode-looking-at-p "\.\.\." (1+ exp-beg)))
|
||
(put-text-property exp-beg (+ exp-beg 4) 'font-lock-face 'web-mode-block-delimiter-face))
|
||
(put-text-property exp-end (1+ exp-end) 'font-lock-face 'web-mode-block-delimiter-face)
|
||
(web-mode-highlight-tags (1+ exp-beg) exp-end (1+ exp-depth))
|
||
(web-mode-part-highlight (1+ exp-beg) exp-end exp-depth)
|
||
(web-mode-fontify-region (1+ exp-beg) exp-end web-mode-javascript-font-lock-keywords)
|
||
)
|
||
(goto-char (1+ exp-beg))
|
||
) ;while exp
|
||
|
||
(when (and elt-beg web-mode-jsx-depth-faces)
|
||
(let (depth-beg depth-end jsx-face)
|
||
(goto-char elt-beg)
|
||
(while (setq pair (web-mode-jsx-depth-next reg-end))
|
||
;;(message "depth-pair=%S" pair)
|
||
(setq depth-beg (car pair)
|
||
depth-end (cdr pair)
|
||
depth (get-text-property depth-beg 'jsx-depth)
|
||
jsx-face (elt web-mode-jsx-depth-faces (1- depth)))
|
||
;;(message "%S" jsx-face)
|
||
(font-lock-prepend-text-property depth-beg (1+ depth-end) 'face jsx-face)
|
||
(goto-char (+ depth-beg 2))
|
||
)
|
||
) ;let
|
||
)
|
||
|
||
(goto-char (1+ elt-end))
|
||
) ;while elt
|
||
) ;let
|
||
) ;when
|
||
|
||
)))
|
||
|
||
(defun web-mode-jsx-element-next (reg-end)
|
||
(let (continue beg end)
|
||
(setq beg (point))
|
||
(unless (get-text-property beg 'jsx-depth)
|
||
(setq beg (next-single-property-change beg 'jsx-beg)))
|
||
(setq continue (and beg (< beg reg-end))
|
||
end beg)
|
||
(while continue
|
||
(setq end (next-single-property-change end 'jsx-end))
|
||
(cond
|
||
((or (null end) (> end reg-end))
|
||
(setq continue nil
|
||
end nil))
|
||
((eq (get-text-property end 'jsx-depth) 1)
|
||
(setq continue nil))
|
||
(t
|
||
(setq end (1+ end)))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "beg=%S end=%S" beg end)
|
||
(if (and beg end (< beg end)) (cons beg end) nil)))
|
||
|
||
(defun web-mode-jsx-expression-next (reg-end)
|
||
(let (beg end depth continue pos)
|
||
(setq beg (point))
|
||
;;(message "pt=%S" beg)
|
||
(unless (and (get-text-property beg 'jsx-beg) (null (get-text-property beg 'tag-beg)))
|
||
;;(setq beg (next-single-property-change beg 'jsx-beg))
|
||
(setq continue t
|
||
pos (1+ beg))
|
||
(while continue
|
||
(setq pos (next-single-property-change pos 'jsx-beg))
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil
|
||
beg nil))
|
||
((> pos reg-end)
|
||
(setq continue nil
|
||
beg nil))
|
||
((null (get-text-property pos 'jsx-beg))
|
||
)
|
||
((null (get-text-property pos 'tag-beg))
|
||
(setq continue nil
|
||
beg pos))
|
||
;;(t
|
||
;; (setq pos (1+ pos)))
|
||
) ;cond
|
||
) ;while
|
||
) ;unless
|
||
;;(message "beg=%S" beg)
|
||
(when (and beg (< beg reg-end))
|
||
(setq depth (get-text-property beg 'jsx-beg)
|
||
continue (not (null depth))
|
||
pos beg)
|
||
;;(message "beg=%S" beg)
|
||
(while continue
|
||
(setq pos (next-single-property-change pos 'jsx-end))
|
||
;;(message "pos=%S" pos)
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil))
|
||
((> pos reg-end)
|
||
(setq continue nil))
|
||
((eq depth (get-text-property pos 'jsx-end))
|
||
(setq continue nil
|
||
end pos))
|
||
(t
|
||
;;(setq pos (1+ pos))
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
) ;when
|
||
;;(message "%S > %S" beg end)
|
||
(if (and beg end) (cons beg end) nil)))
|
||
|
||
(defun web-mode-jsx-depth-next (reg-end)
|
||
(let (beg end depth continue pos)
|
||
(setq beg (point))
|
||
;;(message "pt=%S" beg)
|
||
(unless (get-text-property beg 'jsx-beg)
|
||
;;(setq beg (next-single-property-change beg 'jsx-beg))
|
||
;;(setq pos (1+ beg))
|
||
(setq pos (next-single-property-change (1+ beg) 'jsx-beg))
|
||
(cond
|
||
((null pos)
|
||
(setq beg nil))
|
||
((>= pos reg-end)
|
||
(setq beg nil))
|
||
(t
|
||
(setq beg pos))
|
||
) ;cond
|
||
) ;unless
|
||
;;(message "beg=%S" beg)
|
||
(when beg
|
||
(setq depth (get-text-property beg 'jsx-beg)
|
||
continue (not (null depth))
|
||
pos beg)
|
||
;;(message "beg=%S" beg)
|
||
(while continue
|
||
(setq pos (next-single-property-change pos 'jsx-end))
|
||
;;(message "pos=%S" pos)
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil))
|
||
((> pos reg-end)
|
||
(setq continue nil))
|
||
((eq depth (get-text-property pos 'jsx-end))
|
||
(setq continue nil
|
||
end pos))
|
||
(t
|
||
;;(setq pos (1+ pos))
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
) ;when
|
||
;;(message "%S > %S" beg end)
|
||
(if (and beg end) (cons beg end) nil)))
|
||
|
||
|
||
(defun web-mode-css-rules-highlight (part-beg part-end)
|
||
(save-excursion
|
||
(goto-char part-beg)
|
||
(let (rule (continue t) (i 0) (at-rule nil))
|
||
(while continue
|
||
(setq rule (web-mode-css-rule-next part-end))
|
||
;;(message "rule=%S" rule)
|
||
(cond
|
||
((> (setq i (1+ i)) 1000)
|
||
(message "css-rules-highlight ** too much rules **")
|
||
(setq continue nil))
|
||
((null rule)
|
||
(setq continue nil))
|
||
((and (setq at-rule (plist-get rule :at-rule))
|
||
(not (member at-rule '("charset" "font-face" "import")))
|
||
(plist-get rule :dec-end))
|
||
(web-mode-css-rule-highlight (plist-get rule :sel-beg)
|
||
(plist-get rule :sel-end)
|
||
nil nil)
|
||
(web-mode-css-rules-highlight (plist-get rule :dec-beg)
|
||
(plist-get rule :dec-end)))
|
||
(t
|
||
(web-mode-css-rule-highlight (plist-get rule :sel-beg)
|
||
(plist-get rule :sel-end)
|
||
(plist-get rule :dec-beg)
|
||
(plist-get rule :dec-end)))
|
||
) ;cond
|
||
) ;while
|
||
) ;let
|
||
))
|
||
|
||
(defun web-mode-css-rule-highlight (sel-beg sel-end dec-beg dec-end)
|
||
(save-excursion
|
||
;; (message "sel-beg=%S sel-end=%S dec-beg=%S dec-end=%S" sel-beg sel-end dec-beg dec-end)
|
||
(web-mode-fontify-region sel-beg sel-end
|
||
web-mode-selector-font-lock-keywords)
|
||
(when (and dec-beg dec-end)
|
||
(web-mode-fontify-region dec-beg dec-end
|
||
web-mode-declaration-font-lock-keywords)
|
||
(goto-char dec-beg)
|
||
(while (and web-mode-enable-css-colorization
|
||
(re-search-forward "#[0-9a-fA-F]\\{6\\}\\|#[0-9a-fA-F]\\{3\\}\\|rgba?([ ]*\\([[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\([[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\([[:digit:]]\\{1,3\\}\\)\\(.*?\\))" dec-end t)
|
||
(< (point) dec-end))
|
||
(web-mode-colorize (match-beginning 0) (match-end 0))
|
||
)
|
||
)))
|
||
|
||
(defun web-mode-fontify-region (beg end keywords)
|
||
;; (message "beg=%S end=%S" beg end);; (symbol-name keywords))
|
||
(save-excursion
|
||
(let ((font-lock-keywords keywords)
|
||
(font-lock-multiline nil)
|
||
(font-lock-keywords-case-fold-search
|
||
(member web-mode-engine '("asp" "template-toolkit")))
|
||
(font-lock-keywords-only t)
|
||
(font-lock-extend-region-functions nil))
|
||
;; (message "%S" keywords)
|
||
(when (listp font-lock-keywords)
|
||
(font-lock-fontify-region beg end)
|
||
)
|
||
)
|
||
))
|
||
|
||
(defun web-mode-colorize-foreground (color)
|
||
(let* ((values (x-color-values color))
|
||
(r (car values))
|
||
(g (cadr values))
|
||
(b (car (cdr (cdr values)))))
|
||
(if (> 128.0 (floor (+ (* .3 r) (* .59 g) (* .11 b)) 256))
|
||
"white" "black")))
|
||
|
||
(defun web-mode-colorize (beg end)
|
||
(let (str plist len)
|
||
(setq str (buffer-substring-no-properties beg end))
|
||
(setq len (length str))
|
||
(cond
|
||
((string= (substring str 0 1) "#")
|
||
(setq plist (list :background str
|
||
:foreground (web-mode-colorize-foreground str)))
|
||
(put-text-property beg end 'face plist))
|
||
((string= (substring str 0 4) "rgb(")
|
||
(setq str (format "#%02X%02X%02X"
|
||
(string-to-number (match-string-no-properties 1))
|
||
(string-to-number (match-string-no-properties 2))
|
||
(string-to-number (match-string-no-properties 3))))
|
||
(setq plist (list :background str
|
||
:foreground (web-mode-colorize-foreground str)))
|
||
(put-text-property beg end 'face plist))
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-interpolate-block-tag (beg end)
|
||
(save-excursion
|
||
(goto-char (+ 4 beg))
|
||
(setq end (1- end))
|
||
(while (re-search-forward "${.*?}" end t)
|
||
(remove-list-of-text-properties (match-beginning 0) (match-end 0) '(face))
|
||
(web-mode-fontify-region (match-beginning 0) (match-end 0)
|
||
web-mode-uel-font-lock-keywords))
|
||
))
|
||
|
||
(defun web-mode-interpolate-javascript-string (beg end)
|
||
(save-excursion
|
||
(goto-char (1+ beg))
|
||
(setq end (1- end))
|
||
(while (re-search-forward "${.*?}" end t)
|
||
(put-text-property (match-beginning 0) (match-end 0)
|
||
'font-lock-face
|
||
'web-mode-variable-name-face)
|
||
)
|
||
))
|
||
|
||
;; todo : parsing plus compliqué: {$obj->values[3]->name}
|
||
(defun web-mode-interpolate-block-string (beg end)
|
||
(save-excursion
|
||
(goto-char (1+ beg))
|
||
(setq end (1- end))
|
||
(cond
|
||
((string= web-mode-engine "php")
|
||
(while (re-search-forward "$[[:alnum:]_]+\\(->[[:alnum:]_]+\\)*\\|{[ ]*$.+?}" end t)
|
||
;; (message "%S > %S" (match-beginning 0) (match-end 0))
|
||
(remove-list-of-text-properties (match-beginning 0) (match-end 0) '(font-lock-face))
|
||
(web-mode-fontify-region (match-beginning 0) (match-end 0)
|
||
web-mode-php-var-interpolation-font-lock-keywords)
|
||
))
|
||
((string= web-mode-engine "erb")
|
||
(while (re-search-forward "#{.*?}" end t)
|
||
(remove-list-of-text-properties (match-beginning 0) (match-end 0) '(font-lock-face))
|
||
(put-text-property (match-beginning 0) (match-end 0)
|
||
'font-lock-face 'web-mode-variable-name-face)
|
||
))
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-interpolate-comment (beg end block-side)
|
||
(save-excursion
|
||
(let ((regexp (concat "\\_<\\(" web-mode-comment-keywords "\\)\\_>")))
|
||
(goto-char beg)
|
||
(while (re-search-forward regexp end t)
|
||
(font-lock-prepend-text-property (match-beginning 1) (match-end 1)
|
||
'font-lock-face
|
||
'web-mode-comment-keyword-face)
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-interpolate-sql-string (beg end)
|
||
(save-excursion
|
||
(let ((case-fold-search t)
|
||
(regexp (concat "\\_<\\(" web-mode-sql-keywords "\\)\\_>")))
|
||
(goto-char beg)
|
||
(while (re-search-forward regexp end t)
|
||
(font-lock-prepend-text-property (match-beginning 1) (match-end 1)
|
||
'font-lock-face
|
||
'web-mode-sql-keyword-face)
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-fill-paragraph (&optional justify)
|
||
(save-excursion
|
||
(let ((pos (point)) fill-coll
|
||
prop pair beg end delim-beg delim-end chunk fill-col)
|
||
(cond
|
||
((or (eq (get-text-property pos 'part-token) 'comment)
|
||
(eq (get-text-property pos 'block-token) 'comment))
|
||
(setq prop
|
||
(if (get-text-property pos 'part-token) 'part-token 'block-token))
|
||
(setq pair (web-mode-property-boundaries prop pos))
|
||
(when (and pair (> (- (cdr pair) (car pair)) 6))
|
||
(setq fill-coll (if (< fill-column 10) 70 fill-column))
|
||
(setq beg (car pair)
|
||
end (cdr pair))
|
||
(goto-char beg)
|
||
(setq chunk (buffer-substring-no-properties beg (+ beg 2)))
|
||
(cond
|
||
((string= chunk "//")
|
||
(setq delim-beg "//"
|
||
delim-end "EOL"))
|
||
((string= chunk "/*")
|
||
(setq delim-beg "/*"
|
||
delim-end "*/"))
|
||
((string= chunk "{#")
|
||
(setq delim-beg "{#"
|
||
delim-end "#}"))
|
||
((string= chunk "<!")
|
||
(setq delim-beg "<!--"
|
||
delim-end "-->"))
|
||
)
|
||
)
|
||
) ;comment - case
|
||
|
||
((web-mode-is-content)
|
||
(setq pair (web-mode-content-boundaries pos))
|
||
(setq beg (car pair)
|
||
end (cdr pair))
|
||
)
|
||
|
||
) ;cond
|
||
;; (message "beg(%S) end(%S)" beg end)
|
||
(when (and beg end)
|
||
(fill-region beg end))
|
||
t)))
|
||
|
||
(defun web-mode-property-boundaries (prop &optional pos)
|
||
"property boundaries (cdr is 1+)"
|
||
(unless pos (setq pos (point)))
|
||
(let (beg end val)
|
||
(setq val (get-text-property pos prop))
|
||
(if (null val)
|
||
val
|
||
(if (or (bobp)
|
||
(not (eq (get-text-property (1- pos) prop) val)))
|
||
(setq beg pos)
|
||
(setq beg (previous-single-property-change pos prop))
|
||
(when (null beg) (setq beg (point-min))))
|
||
(if (or (eobp)
|
||
(not (eq (get-text-property (1+ pos) prop) val)))
|
||
(setq end pos)
|
||
(setq end (next-single-property-change pos prop))
|
||
(when (null end) (setq end (point-min))))
|
||
(cons beg end))))
|
||
|
||
(defun web-mode-content-boundaries (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (beg end)
|
||
(setq beg (or (previous-property-change pos (current-buffer))
|
||
(point-max)))
|
||
(setq end (or (next-property-change pos (current-buffer))
|
||
(point-min)))
|
||
(while (and (< beg end) (member (char-after beg) '(?\s ?\n)))
|
||
(setq beg (1+ beg)))
|
||
(while (and (> end beg) (member (char-after (1- end)) '(?\s ?\n)))
|
||
(setq end (1- end)))
|
||
;; (message "beg(%S) end(%S)" beg end)
|
||
(cons beg end)
|
||
))
|
||
|
||
(defun web-mode-engine-syntax-check ()
|
||
(interactive)
|
||
(let ((proc nil)
|
||
(errors nil)
|
||
(file (concat temporary-file-directory "emacs-web-mode-tmp")))
|
||
(write-region (point-min) (point-max) file)
|
||
(cond
|
||
;; ((null (buffer-file-name))
|
||
;; )
|
||
((string= web-mode-engine "php")
|
||
(setq proc (start-process "php-proc" nil "php" "-l" file))
|
||
(set-process-filter proc
|
||
(lambda (proc output)
|
||
(cond
|
||
((string-match-p "No syntax errors" output)
|
||
(message "No syntax errors")
|
||
)
|
||
(t
|
||
;; (setq output (replace-regexp-in-string temporary-file-directory "" output))
|
||
;; (message output)
|
||
(message "Syntax error")
|
||
(setq errors t))
|
||
) ;cond
|
||
;; (delete-file file)
|
||
) ;lambda
|
||
)
|
||
) ;php
|
||
(t
|
||
(message "no syntax checker found")
|
||
) ;t
|
||
) ;cond
|
||
errors))
|
||
|
||
(defun web-mode-jshint ()
|
||
"Run JSHint on all the JavaScript parts."
|
||
(interactive)
|
||
(let (proc lines)
|
||
(when (buffer-file-name)
|
||
(setq proc (start-process
|
||
"jshint-proc"
|
||
nil
|
||
(or (executable-find "jshint") "/usr/local/bin/jshint")
|
||
"--extract=auto"
|
||
(buffer-file-name)))
|
||
(setq web-mode-jshint-errors 0)
|
||
(set-process-filter proc
|
||
(lambda (proc output)
|
||
(let ((offset 0) overlay pos (old 0) msg)
|
||
(remove-overlays (point-min) (point-max) 'font-lock-face 'web-mode-error-face)
|
||
(while (string-match
|
||
"line \\([[:digit:]]+\\), col \\([[:digit:]]+\\), \\(.+\\)\\.$"
|
||
output offset)
|
||
(setq web-mode-jshint-errors (1+ web-mode-jshint-errors))
|
||
(setq offset (match-end 0))
|
||
(setq pos (web-mode-coord-position
|
||
(match-string-no-properties 1 output)
|
||
(match-string-no-properties 2 output)))
|
||
(when (get-text-property pos 'tag-beg)
|
||
(setq pos (1- pos)))
|
||
(when (not (= pos old))
|
||
(setq old pos)
|
||
(setq overlay (make-overlay pos (1+ pos)))
|
||
(overlay-put overlay 'font-lock-face 'web-mode-error-face)
|
||
)
|
||
(setq msg (or (overlay-get overlay 'help-echo)
|
||
(concat "line="
|
||
(match-string-no-properties 1 output)
|
||
" column="
|
||
(match-string-no-properties 2 output)
|
||
)))
|
||
(overlay-put overlay 'help-echo
|
||
(concat msg " ## " (match-string-no-properties 3 output)))
|
||
) ;while
|
||
))
|
||
)
|
||
) ;when
|
||
))
|
||
|
||
(defun web-mode-dom-errors-show ()
|
||
"Show unclosed tags."
|
||
(interactive)
|
||
(let (beg end tag pos l n tags i cont cell overlay overlays first
|
||
(ori (point))
|
||
(errors 0)
|
||
(continue t)
|
||
)
|
||
(setq overlays (overlays-in (point-min) (point-max)))
|
||
(when overlays
|
||
(dolist (overlay overlays)
|
||
(when (eq (overlay-get overlay 'face) 'web-mode-warning-face)
|
||
(delete-overlay overlay)
|
||
)
|
||
)
|
||
)
|
||
(goto-char (point-min))
|
||
(when (not (or (get-text-property (point) 'tag-beg)
|
||
(web-mode-tag-next)))
|
||
(setq continue nil))
|
||
(while continue
|
||
(setq pos (point))
|
||
(setq tag (get-text-property pos 'tag-name))
|
||
(cond
|
||
((eq (get-text-property (point) 'tag-type) 'start)
|
||
(setq tags (add-to-list 'tags (list tag pos)))
|
||
;; (message "(%S) opening %S" pos tag)
|
||
)
|
||
((eq (get-text-property (point) 'tag-type) 'end)
|
||
(setq i 0
|
||
l (length tags)
|
||
cont t)
|
||
(while (and (< i l) cont)
|
||
(setq cell (nth i tags))
|
||
;; (message "cell=%S" cell)
|
||
(setq i (1+ i))
|
||
(cond
|
||
((string= tag (nth 0 cell))
|
||
(setq cont nil)
|
||
)
|
||
(t
|
||
(setq errors (1+ errors))
|
||
(setq beg (nth 1 cell))
|
||
(setq end (web-mode-tag-end-position beg))
|
||
(unless first
|
||
(setq first beg))
|
||
(setq overlay (make-overlay beg (1+ end)))
|
||
(overlay-put overlay 'font-lock-face 'web-mode-warning-face)
|
||
;; (message "invalid <%S> at %S" (nth 0 cell) (nth 1 cell))
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
|
||
(dotimes (i i)
|
||
(setq tags (cdr tags)))
|
||
|
||
)
|
||
) ;cond
|
||
(when (not (web-mode-tag-next))
|
||
(setq continue nil))
|
||
) ;while
|
||
(message "%S error(s) detected" errors)
|
||
(if (< errors 1)
|
||
(goto-char ori)
|
||
(goto-char first)
|
||
(recenter))
|
||
;; (message "%S" tags)
|
||
))
|
||
|
||
(defun web-mode-highlight-elements (beg end)
|
||
(save-excursion
|
||
(goto-char beg)
|
||
(let ((continue (or (get-text-property (point) 'tag-beg) (web-mode-tag-next)))
|
||
(i 0) (ctx nil) (face nil))
|
||
(while continue
|
||
(cond
|
||
((> (setq i (1+ i)) 1000)
|
||
(message "highlight-elements ** too much tags **")
|
||
(setq continue nil))
|
||
((> (point) end)
|
||
(setq continue nil))
|
||
((not (get-text-property (point) 'tag-beg))
|
||
(setq continue nil))
|
||
((eq (get-text-property (point) 'tag-type) 'start)
|
||
(when (and (setq ctx (web-mode-element-boundaries (point)))
|
||
(<= (car (cdr ctx)) end)
|
||
(setq face (cdr (assoc (get-text-property (point) 'tag-name) web-mode-element-content-faces))))
|
||
(font-lock-prepend-text-property (1+ (cdr (car ctx))) (car (cdr ctx))
|
||
'font-lock-face face))
|
||
)
|
||
) ;cond
|
||
(when (not (web-mode-tag-next))
|
||
(setq continue nil))
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-enable (feature)
|
||
"Enable one feature."
|
||
(interactive
|
||
(list (completing-read
|
||
"Feature: "
|
||
(let (features)
|
||
(dolist (elt web-mode-features)
|
||
(setq features (append features (list (car elt)))))
|
||
features))))
|
||
(when (and (or (not feature) (< (length feature) 1)) web-mode-last-enabled-feature)
|
||
(setq feature web-mode-last-enabled-feature))
|
||
(when feature
|
||
(setq web-mode-last-enabled-feature feature)
|
||
(setq feature (cdr (assoc feature web-mode-features)))
|
||
(cond
|
||
((eq feature 'web-mode-enable-current-column-highlight)
|
||
(web-mode-column-show))
|
||
((eq feature 'web-mode-enable-current-element-highlight)
|
||
(when (not web-mode-enable-current-element-highlight)
|
||
(web-mode-toggle-current-element-highlight))
|
||
)
|
||
((eq feature 'web-mode-enable-whitespace-fontification)
|
||
(web-mode-whitespaces-on))
|
||
(t
|
||
(set feature t)
|
||
(web-mode-buffer-highlight))
|
||
)
|
||
) ;when
|
||
)
|
||
|
||
(defun web-mode-disable (feature)
|
||
"Disable one feature."
|
||
(interactive
|
||
(list (completing-read
|
||
"Feature: "
|
||
(let (features)
|
||
(dolist (elt web-mode-features)
|
||
(setq features (append features (list (car elt)))))
|
||
features))))
|
||
(when (and (or (not feature) (< (length feature) 1)) web-mode-last-enabled-feature)
|
||
(setq feature web-mode-last-enabled-feature))
|
||
(when feature
|
||
(setq feature (cdr (assoc feature web-mode-features)))
|
||
(cond
|
||
((eq feature 'web-mode-enable-current-column-highlight)
|
||
(web-mode-column-hide))
|
||
((eq feature 'web-mode-enable-current-element-highlight)
|
||
(when web-mode-enable-current-element-highlight
|
||
(web-mode-toggle-current-element-highlight))
|
||
)
|
||
((eq feature 'web-mode-enable-whitespace-fontification)
|
||
(web-mode-whitespaces-off))
|
||
(t
|
||
(set feature nil)
|
||
(web-mode-buffer-highlight))
|
||
)
|
||
) ;when
|
||
)
|
||
|
||
(defun web-mode-make-tag-overlays ()
|
||
(unless web-mode-overlay-tag-start
|
||
(setq web-mode-overlay-tag-start (make-overlay 1 1)
|
||
web-mode-overlay-tag-end (make-overlay 1 1))
|
||
(overlay-put web-mode-overlay-tag-start
|
||
'font-lock-face
|
||
'web-mode-current-element-highlight-face)
|
||
(overlay-put web-mode-overlay-tag-end
|
||
'font-lock-face
|
||
'web-mode-current-element-highlight-face)))
|
||
|
||
(defun web-mode-delete-tag-overlays ()
|
||
(when web-mode-overlay-tag-start
|
||
(delete-overlay web-mode-overlay-tag-start)
|
||
(delete-overlay web-mode-overlay-tag-end)))
|
||
|
||
(defun web-mode-column-overlay-factory (index)
|
||
(let (overlay)
|
||
(when (null web-mode-column-overlays)
|
||
(dotimes (i 100)
|
||
(setq overlay (make-overlay 1 1))
|
||
(overlay-put overlay 'font-lock-face 'web-mode-current-column-highlight-face)
|
||
(setq web-mode-column-overlays (append web-mode-column-overlays (list overlay)))
|
||
)
|
||
) ;when
|
||
(setq overlay (nth index web-mode-column-overlays))
|
||
(when (null overlay)
|
||
(setq overlay (make-overlay 1 1))
|
||
(overlay-put overlay 'font-lock-face 'web-mode-current-column-highlight-face)
|
||
(setq web-mode-column-overlays (append web-mode-column-overlays (list overlay)))
|
||
) ;when
|
||
overlay))
|
||
|
||
(defun web-mode-column-hide ()
|
||
(setq web-mode-enable-current-column-highlight nil)
|
||
(remove-overlays (point-min) (point-max)
|
||
'font-lock-face
|
||
'web-mode-current-column-highlight-face))
|
||
|
||
(defun web-mode-column-show ()
|
||
(let ((index 0) overlay diff column line-to line-from)
|
||
(web-mode-column-hide)
|
||
(setq web-mode-enable-current-column-highlight t)
|
||
(save-excursion
|
||
(back-to-indentation)
|
||
(setq column (current-column)
|
||
line-to (web-mode-line-number))
|
||
(when (and (get-text-property (point) 'tag-beg)
|
||
(member (get-text-property (point) 'tag-type) '(start end))
|
||
(web-mode-tag-match)
|
||
(setq line-from (web-mode-line-number))
|
||
(not (= line-from line-to)))
|
||
(when (> line-from line-to)
|
||
(let (tmp)
|
||
(setq tmp line-from)
|
||
(setq line-from line-to)
|
||
(setq line-to tmp))
|
||
) ;when
|
||
;;(message "column(%S) line-from(%S) line-to(%S)" column line-from line-to)
|
||
(goto-char (point-min))
|
||
(when (> line-from 1)
|
||
(forward-line (1- line-from)))
|
||
(while (<= line-from line-to)
|
||
(setq overlay (web-mode-column-overlay-factory index))
|
||
(setq diff (- (line-end-position) (point)))
|
||
(cond
|
||
((or (and (= column 0) (= diff 0))
|
||
(> column diff))
|
||
(end-of-line)
|
||
(move-overlay overlay (point) (point))
|
||
(overlay-put overlay
|
||
'after-string
|
||
(concat
|
||
(if (> column diff) (make-string (- column diff) ?\s) "")
|
||
(propertize " "
|
||
'font-lock-face
|
||
'web-mode-current-column-highlight-face)
|
||
) ;concat
|
||
)
|
||
)
|
||
(t
|
||
(move-to-column column)
|
||
(overlay-put overlay 'after-string nil)
|
||
(move-overlay overlay (point) (1+ (point)))
|
||
)
|
||
) ;cond
|
||
(setq line-from (1+ line-from))
|
||
(forward-line)
|
||
(setq index (1+ index))
|
||
) ;while
|
||
) ;when
|
||
) ;save-excursion
|
||
) ;let
|
||
)
|
||
|
||
(defun web-mode-highlight-current-element ()
|
||
(let ((ctx (web-mode-element-boundaries)) len)
|
||
(cond
|
||
((null ctx)
|
||
(web-mode-delete-tag-overlays))
|
||
(t
|
||
(web-mode-make-tag-overlays)
|
||
(setq len (length (get-text-property (caar ctx) 'tag-name)))
|
||
(move-overlay web-mode-overlay-tag-start (+ (caar ctx) 1) (+ (caar ctx) 1 len))
|
||
(move-overlay web-mode-overlay-tag-end (+ (cadr ctx) 2) (+ (cadr ctx) 2 len))
|
||
) ;t
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-highlight-whitespaces (beg end)
|
||
(save-excursion
|
||
(goto-char beg)
|
||
(while (re-search-forward web-mode-whitespaces-regexp end t)
|
||
(add-text-properties (match-beginning 0) (match-end 0)
|
||
'(face web-mode-whitespace-face))
|
||
) ;while
|
||
))
|
||
|
||
(defun web-mode-whitespaces-show ()
|
||
"Toggle whitespaces."
|
||
(interactive)
|
||
(if web-mode-enable-whitespace-fontification
|
||
(web-mode-whitespaces-off)
|
||
(web-mode-whitespaces-on)))
|
||
|
||
(defun web-mode-whitespaces-on ()
|
||
"Show whitespaces."
|
||
(interactive)
|
||
(when web-mode-display-table
|
||
(setq buffer-display-table web-mode-display-table))
|
||
(setq web-mode-enable-whitespace-fontification t))
|
||
|
||
(defun web-mode-whitespaces-off ()
|
||
(setq buffer-display-table nil)
|
||
(setq web-mode-enable-whitespace-fontification nil))
|
||
|
||
(defun web-mode-use-tabs ()
|
||
"Tweaks vars to be compatible with TAB indentation."
|
||
(let (offset)
|
||
(setq web-mode-block-padding 0)
|
||
(setq web-mode-script-padding 0)
|
||
(setq web-mode-style-padding 0)
|
||
(setq offset
|
||
(cond
|
||
((and (boundp 'tab-width) tab-width) tab-width)
|
||
((and (boundp 'standard-indent) standard-indent) standard-indent)
|
||
(t 4)))
|
||
;; (message "offset(%S)" offset)
|
||
(setq web-mode-attr-indent-offset offset)
|
||
(setq web-mode-code-indent-offset offset)
|
||
(setq web-mode-css-indent-offset offset)
|
||
(setq web-mode-markup-indent-offset offset)
|
||
(setq web-mode-sql-indent-offset offset)
|
||
(add-to-list 'web-mode-indentation-params '("lineup-args" . nil))
|
||
(add-to-list 'web-mode-indentation-params '("lineup-calls" . nil))
|
||
(add-to-list 'web-mode-indentation-params '("lineup-concats" . nil))
|
||
(add-to-list 'web-mode-indentation-params '("lineup-ternary" . nil))
|
||
))
|
||
|
||
(defun web-mode-buffer-indent ()
|
||
"Indent all buffer."
|
||
(interactive)
|
||
(indent-region (point-min) (point-max))
|
||
(delete-trailing-whitespace))
|
||
|
||
(defun web-mode-buffer-change-tag-case (&optional type)
|
||
"Change html tag case."
|
||
(interactive)
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(let ((continue t) f)
|
||
(setq f (if (member type '("upper" "uppercase" "upper-case")) 'uppercase 'downcase))
|
||
(when (and (not (get-text-property (point) 'tag-beg))
|
||
(not (web-mode-tag-next)))
|
||
(setq continue nil))
|
||
(while continue
|
||
(skip-chars-forward "<!/")
|
||
(if (looking-at "\\([[:alnum:]:-]+\\)")
|
||
(replace-match (funcall f (match-string 0)) t))
|
||
;; (message "tag: %S (%S)"
|
||
;; (get-text-property (point) 'tag-name)
|
||
;; (point))
|
||
(unless (web-mode-tag-next)
|
||
(setq continue nil))
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-buffer-change-attr-case (&optional type)
|
||
"Change case of html attribute names."
|
||
(interactive)
|
||
(unless type (setq type "downcase"))
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(let ((continue t)
|
||
(fun (if (eq (aref (downcase type) 0) ?u) 'uppercase 'downcase)))
|
||
(while continue
|
||
(cond
|
||
((not (web-mode-attribute-next))
|
||
(setq continue nil))
|
||
((looking-at "\\([[:alnum:]-]+\\)")
|
||
(replace-match (funcall fun (match-string 0)) t)
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
)))
|
||
|
||
;; todo : passer de règle en règle et mettre un \n à la fin
|
||
(defun web-mode-css-indent ()
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(let ((continue t) rule part-end)
|
||
(while continue
|
||
(cond
|
||
((not (web-mode-part-next))
|
||
(setq continue nil))
|
||
((eq (get-text-property (point) 'part-side) 'css)
|
||
(setq part-end (web-mode-part-end-position))
|
||
(while (setq rule (web-mode-css-rule-next part-end))
|
||
(when (not (looking-at-p "[[:space:]]*\\($\\|<\\)"))
|
||
(newline)
|
||
(indent-according-to-mode)
|
||
(setq part-end (web-mode-part-end-position)))
|
||
)
|
||
)
|
||
) ;cond
|
||
)
|
||
)))
|
||
|
||
;; tag-case=lower|upper-case , attr-case=lower|upper-case
|
||
;; special-chars=unicode|html-entities
|
||
;; smart-apostrophes=bool , smart-quotes=bool , indentation=bool
|
||
(defun web-mode-dom-normalize ()
|
||
"Normalize buffer"
|
||
(interactive)
|
||
(save-excursion
|
||
(let ((rules web-mode-normalization-rules) elt)
|
||
(when (setq elt (cdr (assoc "tag-case" rules)))
|
||
(web-mode-buffer-change-tag-case elt))
|
||
(when (setq elt (cdr (assoc "attr-case" rules)))
|
||
(web-mode-buffer-change-attr-case elt))
|
||
(when (setq elt (cdr (assoc "css-indentation" rules)))
|
||
(web-mode-css-indent))
|
||
(when (setq elt (cdr (assoc "smart-apostrophes" rules)))
|
||
(web-mode-dom-apostrophes-replace))
|
||
(when (setq elt (cdr (assoc "smart-quotes" rules)))
|
||
(web-mode-dom-quotes-replace))
|
||
(when (setq elt (cdr (assoc "special-chars" rules)))
|
||
(if (string= elt "entities")
|
||
(web-mode-dom-entities-encode)
|
||
(web-mode-dom-entities-replace)))
|
||
(when (setq elt (cdr (assoc "whitespaces" rules)))
|
||
(goto-char (point-min))
|
||
(while (not (eobp))
|
||
(forward-line)
|
||
(delete-blank-lines))
|
||
(delete-trailing-whitespace)
|
||
(untabify (point-min) (point-max)))
|
||
(when (setq elt (cdr (assoc "indentation" rules)))
|
||
(web-mode-buffer-indent))
|
||
)))
|
||
|
||
;;---- INDENTATION -------------------------------------------------------------
|
||
|
||
(defun web-mode-point-context (pos)
|
||
"POS should be at the beginning of the indentation."
|
||
(save-excursion
|
||
(let (curr-char curr-indentation curr-line
|
||
language
|
||
options
|
||
reg-beg reg-col
|
||
prev-char prev-indentation prev-line
|
||
token
|
||
part-language
|
||
depth)
|
||
|
||
(setq reg-beg (point-min)
|
||
reg-col 0
|
||
token "live"
|
||
options ""
|
||
language ""
|
||
prev-line ""
|
||
prev-char 0)
|
||
|
||
(when (get-text-property pos 'part-side)
|
||
(setq part-language (symbol-name (get-text-property pos 'part-side))))
|
||
|
||
(cond
|
||
|
||
((and (bobp) (member web-mode-content-type '("html" "xml")))
|
||
(setq language web-mode-content-type)
|
||
)
|
||
|
||
((string= web-mode-content-type "css")
|
||
(setq language "css"
|
||
curr-indentation web-mode-css-indent-offset))
|
||
|
||
((member web-mode-content-type '("javascript" "json"))
|
||
(setq language "javascript"
|
||
curr-indentation web-mode-code-indent-offset))
|
||
|
||
((or (string= web-mode-content-type "jsx")
|
||
(and part-language (string= part-language "jsx")))
|
||
(setq language "jsx"
|
||
curr-indentation web-mode-code-indent-offset)
|
||
(cond
|
||
((web-mode-jsx-is-html pos)
|
||
(setq curr-indentation web-mode-markup-indent-offset
|
||
options "is-html"))
|
||
((and (setq depth (get-text-property pos 'jsx-depth)) (> depth 1))
|
||
(when (get-text-property pos 'jsx-beg)
|
||
(setq depth (1- depth)))
|
||
(setq reg-beg (web-mode-jsx-depth-beginning-position pos depth))
|
||
(setq reg-beg (1+ reg-beg))
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(cond
|
||
((and (not (looking-at-p "[ ]*$"))
|
||
(looking-back "^[[:space:]]*{"))
|
||
(setq reg-col (+ (current-indentation) 1
|
||
(cond
|
||
((looking-at "[ ]+") (length (match-string-no-properties 0)))
|
||
(t 0))
|
||
))
|
||
)
|
||
((looking-at-p "[ ]*\\[[ ]*$") ;; #0659
|
||
(setq reg-col (current-indentation))
|
||
)
|
||
(t
|
||
;;(message "%S %S : %S %S" (point) (current-indentation) web-mode-code-indent-offset)
|
||
;;(setq reg-col (+ (current-indentation) web-mode-code-indent-offset web-mode-jsx-expression-padding)))
|
||
(setq reg-col (+ (current-indentation) web-mode-code-indent-offset)))
|
||
)
|
||
|
||
;;(message "%S %S %S" (point) (current-indentation) reg-col)
|
||
) ;save-excursion
|
||
)
|
||
((string= web-mode-content-type "jsx")
|
||
(setq reg-beg (point-min)))
|
||
(t
|
||
(setq reg-beg (or (web-mode-part-beginning-position pos) (point-min)))
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(search-backward "<" nil t)
|
||
(setq reg-col (current-column))
|
||
) ;save-excursion
|
||
)
|
||
) ;cond
|
||
;;(message "jsx reg-beg=%S" reg-beg)
|
||
) ;jsx
|
||
|
||
((string= web-mode-content-type "php")
|
||
(setq language "php"
|
||
curr-indentation web-mode-code-indent-offset))
|
||
|
||
((or (string= web-mode-content-type "xml"))
|
||
(setq language "xml"
|
||
curr-indentation web-mode-markup-indent-offset))
|
||
|
||
;; TODO: est ce util ?
|
||
((and (get-text-property pos 'tag-beg)
|
||
(get-text-property pos 'tag-name)
|
||
;;(not (get-text-property pos 'part-side))
|
||
)
|
||
(setq language "html"
|
||
curr-indentation web-mode-markup-indent-offset))
|
||
|
||
((and (get-text-property pos 'block-side)
|
||
(not (get-text-property pos 'block-beg)))
|
||
|
||
(setq reg-beg (or (web-mode-block-beginning-position pos) (point-min)))
|
||
(goto-char reg-beg)
|
||
(setq reg-col (current-column))
|
||
(setq language web-mode-engine)
|
||
(setq curr-indentation web-mode-code-indent-offset)
|
||
|
||
(cond
|
||
((string= web-mode-engine "blade")
|
||
(save-excursion
|
||
(when (web-mode-rsf "{[{!]+[ ]*")
|
||
(setq reg-col (current-column))))
|
||
(setq reg-beg (+ reg-beg 2))
|
||
)
|
||
((string= web-mode-engine "razor")
|
||
(setq reg-beg (+ reg-beg 2))
|
||
)
|
||
;; tests/demo.chtml
|
||
((string= web-mode-engine "ctemplate")
|
||
(save-excursion
|
||
(when (web-mode-rsf "{{#?")
|
||
(setq reg-col (current-column))))
|
||
)
|
||
((string= web-mode-engine "dust")
|
||
(save-excursion
|
||
(when (web-mode-rsf "{@")
|
||
(setq reg-col (current-column))))
|
||
)
|
||
((string= web-mode-engine "template-toolkit")
|
||
(setq reg-beg (+ reg-beg 3)
|
||
reg-col (+ reg-col 3))
|
||
)
|
||
((and (string= web-mode-engine "jsp")
|
||
(web-mode-looking-at "<%@\\|<[[:alpha:]]" reg-beg))
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(looking-at "<%@[ ]*[[:alpha:]]+[ ]+\\|</?[[:alpha:]]+[:.][[:alpha:]]+[ ]+")
|
||
(goto-char (match-end 0))
|
||
(setq reg-col (current-column))
|
||
)
|
||
)
|
||
((and (string= web-mode-engine "freemarker")
|
||
(web-mode-looking-at "<@\\|<%@\\|<[[:alpha:]]" reg-beg))
|
||
(save-excursion
|
||
(goto-char reg-beg)
|
||
(looking-at "<@[[:alpha:].]+[ ]+\\|<%@[ ]*[[:alpha:]]+[ ]+\\|<[[:alpha:]]+:[[:alpha:]]+[ ]+")
|
||
(goto-char (match-end 0))
|
||
(setq reg-col (current-column))
|
||
)
|
||
)
|
||
) ;cond
|
||
) ;block-side
|
||
|
||
((and part-language (member part-language '("css" "javascript")))
|
||
(setq reg-beg (or (web-mode-part-beginning-position pos) (point-min)))
|
||
(goto-char reg-beg)
|
||
(search-backward "<" nil t)
|
||
(setq reg-col (current-column))
|
||
(setq language part-language)
|
||
(cond
|
||
((string= language "css")
|
||
(setq curr-indentation web-mode-css-indent-offset))
|
||
(t
|
||
(setq language "javascript"
|
||
curr-indentation web-mode-code-indent-offset))
|
||
)
|
||
) ;part-side
|
||
|
||
(t
|
||
(setq language "html"
|
||
curr-indentation web-mode-markup-indent-offset)
|
||
)
|
||
|
||
) ;cond
|
||
|
||
(cond
|
||
((or (and (> pos (point-min))
|
||
(eq (get-text-property pos 'part-token) 'comment)
|
||
(eq (get-text-property (1- pos) 'part-token) 'comment)
|
||
(progn
|
||
(setq reg-beg (previous-single-property-change pos 'part-token))
|
||
t))
|
||
(and (> pos (point-min))
|
||
(eq (get-text-property pos 'block-token) 'comment)
|
||
(eq (get-text-property (1- pos) 'block-token) 'comment)
|
||
(progn
|
||
(setq reg-beg (previous-single-property-change pos 'block-token))
|
||
t))
|
||
(and (> pos (point-min))
|
||
(eq (get-text-property pos 'tag-type) 'comment)
|
||
(not (get-text-property pos 'tag-beg))
|
||
(progn
|
||
(setq reg-beg (web-mode-tag-beginning-position pos))
|
||
t))
|
||
)
|
||
(setq token "comment"))
|
||
((or (and (> pos (point-min))
|
||
(member (get-text-property pos 'part-token)
|
||
'(string context key))
|
||
(member (get-text-property (1- pos) 'part-token)
|
||
'(string context key)))
|
||
(and (eq (get-text-property pos 'block-token) 'string)
|
||
(eq (get-text-property (1- pos) 'block-token) 'string)))
|
||
(setq token "string"))
|
||
)
|
||
|
||
(goto-char pos)
|
||
(setq curr-line (web-mode-trim
|
||
(buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
(setq curr-char (if (string= curr-line "") 0 (aref curr-line 0)))
|
||
|
||
(when (or (member language '("php" "blade" "javascript" "jsx" "razor"))
|
||
(and (member language '("html" "xml"))
|
||
(not (eq ?\< curr-char))))
|
||
(let (prev)
|
||
(cond
|
||
((member language '("html" "xml" "javascript" "jsx"))
|
||
(when (setq prev (web-mode-part-previous-live-line reg-beg))
|
||
(setq prev-line (car prev)
|
||
prev-indentation (cdr prev))
|
||
(setq prev-line (web-mode-clean-part-line prev-line)))
|
||
)
|
||
((setq prev (web-mode-block-previous-live-line))
|
||
(setq prev-line (car prev)
|
||
prev-indentation (cdr prev))
|
||
(setq prev-line (web-mode-clean-block-line prev-line)))
|
||
) ;cond
|
||
) ;let
|
||
(when (>= (length prev-line) 1)
|
||
(setq prev-char (aref prev-line (1- (length prev-line))))
|
||
(setq prev-line (substring-no-properties prev-line))
|
||
)
|
||
)
|
||
|
||
(cond
|
||
((not (member web-mode-content-type '("html" "xml")))
|
||
)
|
||
((member language '("javascript" "jsx"))
|
||
(setq reg-col (+ reg-col web-mode-script-padding)))
|
||
((member language '("css"))
|
||
(setq reg-col (+ reg-col web-mode-style-padding)))
|
||
((not (member language '("html" "xml" "razor")))
|
||
(setq reg-col (+ reg-col web-mode-block-padding)))
|
||
)
|
||
|
||
(list :curr-char curr-char
|
||
:curr-indentation curr-indentation
|
||
:curr-line curr-line
|
||
:language language
|
||
:options options
|
||
:prev-char prev-char
|
||
:prev-indentation prev-indentation
|
||
:prev-line prev-line
|
||
:reg-beg reg-beg
|
||
:reg-col reg-col
|
||
:token token)
|
||
)))
|
||
|
||
(defun web-mode-indent-line ()
|
||
|
||
(web-mode-propertize)
|
||
|
||
(let ((offset nil)
|
||
(char nil)
|
||
(inhibit-modification-hooks t)
|
||
(adjust t))
|
||
|
||
(save-excursion
|
||
(back-to-indentation)
|
||
(setq char (char-after))
|
||
(let* ((pos (point))
|
||
(ctx (web-mode-point-context pos))
|
||
(curr-char (plist-get ctx :curr-char))
|
||
(curr-indentation (plist-get ctx :curr-indentation))
|
||
(curr-line (plist-get ctx :curr-line))
|
||
(language (plist-get ctx :language))
|
||
(prev-char (plist-get ctx :prev-char))
|
||
(prev-indentation (plist-get ctx :prev-indentation))
|
||
(prev-line (plist-get ctx :prev-line))
|
||
(reg-beg (plist-get ctx :reg-beg))
|
||
(reg-col (plist-get ctx :reg-col))
|
||
(token (plist-get ctx :token))
|
||
(options (plist-get ctx :options))
|
||
(chars (list curr-char prev-char)))
|
||
|
||
;;(message "curr-char=[%c] prev-char=[%c]\n%S" curr-char prev-char ctx)
|
||
|
||
(cond
|
||
|
||
((or (bobp) (= (line-number-at-pos pos) 1))
|
||
(setq offset 0))
|
||
|
||
((string= token "string")
|
||
(cond
|
||
((and web-mode-enable-sql-detection
|
||
(web-mode-block-token-starts-with (concat "[ \n]*" web-mode-sql-queries)))
|
||
(save-excursion
|
||
(let (col)
|
||
(web-mode-block-string-beginning)
|
||
(skip-chars-forward "[ \"'\n]")
|
||
(setq col (current-column))
|
||
(goto-char pos)
|
||
(if (looking-at-p "\\(SELECT\\|INSERT\\|DELETE\\|UPDATE\\|FROM\\|LEFT\\|JOIN\\|WHERE\\|GROUP BY\\|LIMIT\\|HAVING\\|\)\\)")
|
||
(setq offset col)
|
||
(setq offset (+ col web-mode-sql-indent-offset)))
|
||
)
|
||
) ;save-excursion
|
||
)
|
||
(t
|
||
(setq offset nil))
|
||
) ;cond
|
||
) ;case string
|
||
|
||
((string= token "comment")
|
||
(if (eq (get-text-property pos 'tag-type) 'comment)
|
||
(web-mode-tag-beginning)
|
||
(goto-char (car
|
||
(web-mode-property-boundaries
|
||
(if (eq (get-text-property pos 'part-token) 'comment)
|
||
'part-token
|
||
'block-token)
|
||
pos))))
|
||
(setq offset (current-column))
|
||
;;(message "%S %S" (point) offset)
|
||
(cond
|
||
((member (buffer-substring-no-properties (point) (+ (point) 2)) '("/*" "{*" "@*"))
|
||
(cond
|
||
((eq ?\* curr-char)
|
||
(setq offset (+ offset 1)))
|
||
(t
|
||
(setq offset (+ offset 3)))
|
||
) ;cond
|
||
)
|
||
((string= (buffer-substring-no-properties (point) (+ (point) 4)) "<!--")
|
||
(cond
|
||
((string-match-p "^<!\\[endif" curr-line)
|
||
)
|
||
((looking-at-p "<!--\\[if")
|
||
(setq offset (+ offset web-mode-markup-indent-offset)))
|
||
((eq ?\- curr-char)
|
||
(setq offset (+ offset 3)))
|
||
(t
|
||
(setq offset (+ offset 5)))
|
||
) ;cond
|
||
)
|
||
((and (string= web-mode-engine "django") (looking-back "{% comment %}"))
|
||
(setq offset (- offset 12)))
|
||
((and (string= web-mode-engine "mako") (looking-back "<%doc%>"))
|
||
(setq offset (- offset 6)))
|
||
((and (string= web-mode-engine "mason") (looking-back "<%doc%>"))
|
||
(setq offset (- offset 6)))
|
||
) ;cond
|
||
) ;case comment
|
||
|
||
((and (string= web-mode-engine "mason")
|
||
(string-match-p "^%" curr-line))
|
||
(setq offset 0))
|
||
|
||
((and (get-text-property pos 'block-beg)
|
||
(or (web-mode-block-is-close pos)
|
||
(web-mode-block-is-inside pos)))
|
||
(when (web-mode-block-match)
|
||
(setq offset (current-indentation))))
|
||
|
||
((eq (get-text-property pos 'block-token) 'delimiter-end)
|
||
(when (web-mode-block-beginning)
|
||
(setq reg-col (current-indentation))
|
||
(setq offset (current-column))))
|
||
|
||
((and (get-text-property pos 'tag-beg)
|
||
(eq (get-text-property pos 'tag-type) 'end))
|
||
(when (web-mode-tag-match)
|
||
(setq offset (current-indentation))))
|
||
|
||
((and (member language '("jsx"))
|
||
(eq curr-char ?\})
|
||
(get-text-property pos 'jsx-end))
|
||
(web-mode-go (1- reg-beg))
|
||
(setq reg-col nil)
|
||
(setq offset (current-column)))
|
||
|
||
((and (member language '("html" "xml" "javascript" "jsx"))
|
||
(get-text-property pos 'tag-type)
|
||
(not (get-text-property pos 'tag-beg))
|
||
(or (not (string= language "jsx"))
|
||
(string= options "is-html")))
|
||
;;(message "html-attr")
|
||
(cond
|
||
((and (get-text-property pos 'tag-attr)
|
||
(get-text-property (1- pos) 'tag-attr)
|
||
(web-mode-attribute-beginning))
|
||
|
||
(cond
|
||
((eq (logand (get-text-property (point) 'tag-attr-beg) 8) 8)
|
||
(setq offset nil))
|
||
((and web-mode-attr-value-indent-offset (web-mode-tag-beginning))
|
||
(setq offset (+ (current-column) web-mode-attr-value-indent-offset)))
|
||
(t
|
||
(web-mode-dom-rsf "=[ ]*[\"']?" pos)
|
||
(setq offset (current-column)))
|
||
) ;cond
|
||
|
||
)
|
||
((not (web-mode-tag-beginning))
|
||
)
|
||
((string-match-p "^/?>" curr-line)
|
||
(setq offset (current-column)))
|
||
(web-mode-attr-indent-offset
|
||
(setq offset (+ (current-column) web-mode-attr-indent-offset)))
|
||
((looking-at-p (concat web-mode-start-tag-regexp "[ ]*\n"))
|
||
(setq offset (+ (current-column) (or web-mode-attr-indent-offset 4))))
|
||
((web-mode-attribute-next)
|
||
(setq offset (current-column)))
|
||
) ;cond
|
||
)
|
||
|
||
((or (member language '("html" "xml"))
|
||
(and (member language '("jsx"))
|
||
(string= options "is-html")))
|
||
;;(message "html")
|
||
(cond
|
||
((get-text-property pos 'tag-beg)
|
||
(setq offset (web-mode-markup-indentation pos))
|
||
)
|
||
((and web-mode-indentless-elements
|
||
(not (string= language "jsx"))
|
||
(null (get-text-property pos 'block-side))
|
||
(null (get-text-property pos 'part-side))
|
||
(and (null (get-text-property pos 'tag-beg))
|
||
(save-excursion
|
||
(and (web-mode-element-parent)
|
||
(member (get-text-property (point) 'tag-name) web-mode-indentless-elements))))
|
||
)
|
||
(setq offset nil))
|
||
((or (eq (length curr-line) 0)
|
||
(= web-mode-indent-style 2)
|
||
(get-text-property pos 'tag-beg)
|
||
(get-text-property pos 'reg-beg))
|
||
(setq offset (web-mode-markup-indentation pos))
|
||
)
|
||
)
|
||
)
|
||
|
||
((string= language "ctemplate")
|
||
(setq offset reg-col))
|
||
|
||
((member language '("mako" "web2py"))
|
||
(setq offset (web-mode-python-indentation pos
|
||
curr-line
|
||
reg-col
|
||
curr-indentation
|
||
reg-beg)))
|
||
|
||
((string= language "asp")
|
||
(setq offset (web-mode-asp-indentation pos
|
||
curr-line
|
||
reg-col
|
||
curr-indentation
|
||
reg-beg)))
|
||
|
||
((member language '("lsp" "cl-emb"))
|
||
(setq offset (web-mode-lisp-indentation pos ctx)))
|
||
|
||
((member curr-char '(?\} ?\) ?]))
|
||
(let (ori)
|
||
(if (get-text-property pos 'block-side)
|
||
(setq ori (web-mode-block-opening-paren-position pos reg-beg))
|
||
(setq ori (web-mode-part-opening-paren-position pos reg-beg)))
|
||
(cond
|
||
((null ori)
|
||
(setq offset reg-col))
|
||
((and (goto-char ori)
|
||
(looking-back ")[ ]*") ;; peut-on se passer du looking-back ?
|
||
(re-search-backward ")[ ]*" nil t)
|
||
(web-mode-block-opening-paren reg-beg))
|
||
(back-to-indentation)
|
||
(setq offset (current-indentation))
|
||
)
|
||
(t
|
||
(goto-char ori)
|
||
(back-to-indentation)
|
||
(setq offset (current-indentation))
|
||
(when (get-text-property pos 'jsx-end)
|
||
(setq adjust nil))
|
||
) ;t
|
||
) ;cond
|
||
) ;let
|
||
)
|
||
|
||
((string= language "erb")
|
||
(setq offset (web-mode-ruby-indentation pos
|
||
curr-line
|
||
reg-col
|
||
curr-indentation
|
||
reg-beg)))
|
||
|
||
((string= language "css")
|
||
(setq offset (car (web-mode-css-indentation pos
|
||
reg-col
|
||
curr-indentation
|
||
language
|
||
reg-beg))))
|
||
|
||
((and (string= language "razor")
|
||
(string-match-p "^\\." curr-line)
|
||
(string-match-p "^\\." prev-line))
|
||
(setq offset prev-indentation))
|
||
|
||
((and (string= language "razor")
|
||
(string-match-p "^case " curr-line)
|
||
(string-match-p "^case " prev-line))
|
||
(search-backward "case ")
|
||
(setq offset (current-column)))
|
||
|
||
((and (member language '("javascript" "jsx" "ejs" "php"))
|
||
(or (eq prev-char ?\))
|
||
(string-match-p "^else$" prev-line))
|
||
(not (string-match-p "^\\([{.]\\|->\\)" curr-line)))
|
||
;;(message "ici")
|
||
(cond
|
||
((member language '("javascript" "jsx" "ejs"))
|
||
(setq offset
|
||
(+ (car (web-mode-javascript-indentation pos
|
||
reg-col
|
||
curr-indentation
|
||
language
|
||
reg-beg))
|
||
web-mode-code-indent-offset))
|
||
)
|
||
(t
|
||
(setq offset (+ prev-indentation web-mode-code-indent-offset))
|
||
)
|
||
)
|
||
)
|
||
|
||
((and (member language '("javascript" "jsx" "ejs"))
|
||
(member ?\. chars)
|
||
(not (string-match-p "^\\.\\.\\." curr-line))
|
||
)
|
||
(when (web-mode-javascript-calls-beginning pos reg-beg)
|
||
(cond
|
||
((cdr (assoc "lineup-calls" web-mode-indentation-params))
|
||
(search-forward ".")
|
||
(setq offset (current-column))
|
||
(when (eq curr-char ?\.)
|
||
(goto-char pos)
|
||
(looking-at "\\.[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0)))))
|
||
)
|
||
(t
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset))
|
||
) ;t
|
||
) ;cond
|
||
) ;when
|
||
)
|
||
|
||
((and (member language '("javascript" "jsx" "ejs")) (member ?\+ chars))
|
||
;;(message "js-concat")
|
||
(cond
|
||
((not (web-mode-javascript-string-beginning pos reg-beg))
|
||
)
|
||
((null (cdr (assoc "lineup-concats" web-mode-indentation-params)))
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
((not (eq curr-char ?\+))
|
||
(setq offset (current-column)))
|
||
(t
|
||
(setq offset (current-column))
|
||
(goto-char pos)
|
||
(looking-at "\\+[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0))))
|
||
)
|
||
)
|
||
)
|
||
|
||
;; #579
|
||
((and (member language '("javascript" "jsx" "ejs" "php"))
|
||
(string-match-p "=>$" prev-line))
|
||
(setq offset (+ prev-indentation web-mode-code-indent-offset))
|
||
;;(message "ici%S" offset)
|
||
)
|
||
|
||
;; #446, #638
|
||
((and (member language '("javascript" "jsx" "ejs" "php"))
|
||
(or (string-match-p "[&|?:+-]$" prev-line)
|
||
(string-match-p "^[&|?:+-]" curr-line))
|
||
(not (and (string= language "php")
|
||
(string-match-p "^->" curr-line)))
|
||
(not (and (eq prev-char ?\:)
|
||
(string-match-p "^\\(case\\|default\\)" prev-line))))
|
||
(cond
|
||
((not (funcall (if (member language '("javascript" "jsx" "ejs"))
|
||
'web-mode-javascript-statement-beginning
|
||
'web-mode-block-statement-beginning)
|
||
pos reg-beg))
|
||
)
|
||
((null (cdr (assoc "lineup-ternary" web-mode-indentation-params)))
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
(t
|
||
(setq offset (current-column))
|
||
(when (member curr-char '(?\+ ?\- ?\& ?\| ?\? ?\:))
|
||
(goto-char pos)
|
||
(looking-at "\\(||\\|&&\\|[&|?:+-]\\)[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0)))))
|
||
)
|
||
) ;cond
|
||
)
|
||
|
||
((and (member language '("javascript" "jsx" "ejs"))
|
||
(or (member ?\, chars)
|
||
(member prev-char '(?\( ?\[))))
|
||
(cond
|
||
((not (web-mode-javascript-args-beginning pos reg-beg))
|
||
(message "no js args beg")
|
||
)
|
||
((or (not (cdr (assoc "lineup-args" web-mode-indentation-params)))
|
||
(looking-at-p "\n"))
|
||
(if (and reg-col (> reg-col (current-indentation)))
|
||
(setq offset (+ reg-col web-mode-code-indent-offset))
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
)
|
||
((not (eq curr-char ?\,))
|
||
(setq offset (current-column)))
|
||
(t
|
||
(setq offset (current-column))
|
||
(goto-char pos)
|
||
(looking-at ",[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0)))))
|
||
))
|
||
|
||
((and (member language '("php" "blade")) (string-match-p "^->" curr-line))
|
||
(cond
|
||
((not (web-mode-block-calls-beginning pos reg-beg))
|
||
)
|
||
((cdr (assoc "lineup-calls" web-mode-indentation-params))
|
||
;;(message "point=%S" (point))
|
||
(if (looking-back "::[ ]*")
|
||
(progn
|
||
(re-search-backward "::[ ]*")
|
||
(setq offset (current-column))
|
||
;;(message "ici%S offset=%S" (point) offset)
|
||
)
|
||
(search-forward "->")
|
||
(setq offset (- (current-column) 2)))
|
||
)
|
||
(t
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
))
|
||
|
||
((member ?\, chars)
|
||
(cond
|
||
((not (web-mode-block-args-beginning pos reg-beg))
|
||
)
|
||
((cdr (assoc "lineup-args" web-mode-indentation-params))
|
||
(setq offset (current-column))
|
||
(when (eq curr-char ?\,)
|
||
(goto-char pos)
|
||
(looking-at ",[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0)))))
|
||
)
|
||
(t
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
))
|
||
|
||
((and (string= language "php") (member ?\. chars))
|
||
(cond
|
||
((not (web-mode-block-string-beginning pos reg-beg))
|
||
)
|
||
((null (cdr (assoc "lineup-concats" web-mode-indentation-params)))
|
||
(setq offset (+ (current-indentation) web-mode-code-indent-offset)))
|
||
((not (eq curr-char ?\.))
|
||
;;(message "%S" (point))
|
||
(setq offset (current-column)))
|
||
(t
|
||
(setq offset (current-column))
|
||
(goto-char pos)
|
||
(when (cdr (assoc "lineup-quotes" web-mode-indentation-params))
|
||
(looking-at "\\.[ \t\n]*")
|
||
(setq offset (- offset (length (match-string-no-properties 0)))))
|
||
)))
|
||
|
||
((member language '("javascript" "jsx" "ejs" "underscore"))
|
||
;;(message "js-indent")
|
||
(setq offset (car (web-mode-javascript-indentation pos
|
||
reg-col
|
||
curr-indentation
|
||
language
|
||
reg-beg))))
|
||
|
||
(t
|
||
(setq offset (car (web-mode-bracket-indentation pos
|
||
reg-col
|
||
curr-indentation
|
||
language
|
||
reg-beg))))
|
||
|
||
) ;cond
|
||
|
||
(when (and offset reg-col adjust (< offset reg-col)) (setq offset reg-col))
|
||
|
||
) ;let
|
||
) ;save-excursion
|
||
|
||
(when offset
|
||
(let ((diff (- (current-column) (current-indentation))))
|
||
(when (not (= offset (current-indentation)))
|
||
(setq web-mode-change-beg (line-beginning-position)
|
||
web-mode-change-end (+ web-mode-change-beg offset)))
|
||
(setq offset (max 0 offset))
|
||
(indent-line-to offset)
|
||
(if (> diff 0) (move-to-column (+ (current-column) diff)))
|
||
(when (and (string= web-mode-engine "mason")
|
||
(= offset 0)
|
||
(eq char ?\%))
|
||
(save-excursion
|
||
(font-lock-fontify-region (line-beginning-position) (line-end-position)))
|
||
) ;when
|
||
) ;let
|
||
) ;when
|
||
|
||
))
|
||
|
||
(defun web-mode-markup-indentation (pos)
|
||
(let ((offset 0) beg ret)
|
||
(when (setq beg (web-mode-markup-indentation-origin pos))
|
||
(when (and (get-text-property pos 'jsx-depth)
|
||
(not (get-text-property beg 'jsx-depth)))
|
||
(setq beg (web-mode-jsx-depth-beginning-position pos)))
|
||
(cond
|
||
((null (setq ret (web-mode-element-is-opened beg pos)))
|
||
(setq offset (web-mode-indentation-at-pos beg)))
|
||
((eq ret t)
|
||
(setq offset (+ (web-mode-indentation-at-pos beg) web-mode-markup-indent-offset)))
|
||
(t
|
||
(setq offset ret))
|
||
) ;cond
|
||
) ;when beg
|
||
offset))
|
||
|
||
(defun web-mode-css-indentation (pos initial-column language-offset language &optional limit)
|
||
(let ((open-ctx (web-mode-bracket-up pos language limit)) offset)
|
||
(cond
|
||
((or (null open-ctx) (null (plist-get open-ctx :pos)))
|
||
(setq offset initial-column))
|
||
(t
|
||
(setq offset (+ (plist-get open-ctx :indentation) language-offset)))
|
||
) ;cond
|
||
(cons (if (< offset initial-column) initial-column offset) open-ctx)
|
||
))
|
||
|
||
(defun web-mode-javascript-indentation (pos initial-column language-offset language &optional limit)
|
||
(let ((open-ctx (web-mode-bracket-up pos language limit)) indentation offset sub)
|
||
;;(message "pos(%S) initial-column(%S) language-offset(%S) language(%S) limit(%S)" pos initial-column language-offset language limit)
|
||
;;(message "javascript-indentation: %S\nchar=%c" open-ctx (plist-get open-ctx :char))
|
||
(setq indentation (plist-get open-ctx :indentation))
|
||
(when (and initial-column (> initial-column indentation))
|
||
(setq indentation initial-column)
|
||
)
|
||
(cond
|
||
((or (null open-ctx) (null (plist-get open-ctx :pos)))
|
||
(setq offset initial-column))
|
||
((and (member language '("javascript" "jsx" "ejs"))
|
||
(eq (plist-get open-ctx :char) ?\{)
|
||
(web-mode-looking-back "switch[ ]*(.*)[ ]*" (plist-get open-ctx :pos)))
|
||
(setq sub (if (cdr (assoc "case-extra-offset" web-mode-indentation-params)) 0 1))
|
||
(cond
|
||
((looking-at-p "case\\|default")
|
||
(setq offset (+ indentation (* language-offset (- 1 sub)))))
|
||
(t
|
||
(setq offset (+ indentation (* language-offset (- 2 sub)))))
|
||
) ;cond switch
|
||
)
|
||
(t
|
||
(setq offset (+ indentation language-offset)))
|
||
) ;cond
|
||
(cons (if (< offset initial-column) initial-column offset) open-ctx)
|
||
))
|
||
|
||
(defun web-mode-bracket-indentation (pos initial-column language-offset language &optional limit)
|
||
(save-excursion
|
||
(let* ((ctx (web-mode-bracket-up pos language limit))
|
||
(char (plist-get ctx :char))
|
||
(pos (plist-get ctx :pos))
|
||
(indentation (plist-get ctx :indentation)))
|
||
;;(message "pos(%S) initial-column(%S) language-offset(%S) language(%S) limit(%S)" pos initial-column language-offset language limit)
|
||
;;(message "bracket-up: %S, %c" ctx char)
|
||
(cond
|
||
((null pos)
|
||
(setq indentation initial-column))
|
||
((and (member language '("php"))
|
||
(eq char ?\{)
|
||
(web-mode-looking-back "switch[ ]*(.*)[ ]*" pos)
|
||
(not (looking-at-p "case\\|default")))
|
||
(setq indentation (+ indentation (* language-offset 2)))
|
||
)
|
||
((and (member language '("php"))
|
||
(eq char ?\{)
|
||
(goto-char pos)
|
||
(web-mode-looking-back "[)][ ]*" pos)
|
||
(search-backward ")")
|
||
(web-mode-block-opening-paren limit))
|
||
(setq indentation (+ (current-indentation) language-offset))
|
||
)
|
||
(t
|
||
(setq indentation (+ indentation language-offset))
|
||
)
|
||
)
|
||
(cons (if (< indentation initial-column) initial-column indentation) ctx)
|
||
)))
|
||
|
||
(defun web-mode-ruby-indentation (pos line initial-column language-offset limit)
|
||
(unless limit (setq limit nil))
|
||
(let (h offset prev-line prev-indentation open-ctx)
|
||
(setq open-ctx (web-mode-bracket-up pos "ruby" limit))
|
||
;;(message "%S" open-ctx)
|
||
(if (plist-get open-ctx :pos)
|
||
|
||
(cond
|
||
((web-mode-looking-at-p ".[ \t\n]+" (plist-get open-ctx :pos))
|
||
;;(message "ici %S" (plist-get open-ctx :pos))
|
||
(setq offset (+ (plist-get open-ctx :indentation) language-offset)))
|
||
(t
|
||
(setq offset (1+ (plist-get open-ctx :column))))
|
||
)
|
||
|
||
(setq h (web-mode-previous-line pos limit))
|
||
(setq offset initial-column)
|
||
(when h
|
||
(setq prev-line (car h))
|
||
;;(message "%S" prev-line)
|
||
(setq prev-indentation (cdr h))
|
||
(cond
|
||
((string-match-p "^\\(end\\|else\\|elsif\\|when\\)" line)
|
||
(setq offset (- prev-indentation language-offset))
|
||
)
|
||
((string-match-p "\\(when\\|if\\|else\\|elsif\\|unless\\|for\\|while\\|def\\|class\\)" prev-line)
|
||
(setq offset (+ prev-indentation language-offset))
|
||
)
|
||
(t
|
||
(setq offset prev-indentation)
|
||
)
|
||
)
|
||
) ;when
|
||
) ;if
|
||
offset))
|
||
|
||
(defun web-mode-python-indentation (pos line initial-column language-offset limit)
|
||
(unless limit (setq limit nil))
|
||
(let (h out prev-line prev-indentation ctx)
|
||
(setq h (web-mode-previous-line pos limit))
|
||
(setq out initial-column)
|
||
(when h
|
||
(setq prev-line (car h))
|
||
(setq prev-indentation (cdr h))
|
||
(cond
|
||
((string-match-p "^\\(pass\\|else\\|elif\\|when\\)" line)
|
||
(setq out (- prev-indentation language-offset))
|
||
)
|
||
((string-match-p "\\(if\\|else\\|elif\\|for\\|while\\)" prev-line)
|
||
(setq out (+ prev-indentation language-offset))
|
||
)
|
||
(t
|
||
(setq out prev-indentation)
|
||
)
|
||
) ;cond
|
||
) ;when
|
||
;;out
|
||
(if (< out initial-column) initial-column out)
|
||
))
|
||
|
||
(defun web-mode-lisp-indentation (pos point-ctx)
|
||
(let (offset open-ctx)
|
||
(setq open-ctx (web-mode-bracket-up pos "lsp" (plist-get point-ctx :reg-beg)))
|
||
;;(message "point-ctx=%S" point-ctx)
|
||
;;(message "open-ctx=%S" open-ctx)
|
||
(cond
|
||
((null (plist-get open-ctx :pos))
|
||
(setq offset (plist-get point-ctx :reg-col)))
|
||
((member (plist-get point-ctx :curr-char) '(?\( ?\)))
|
||
(if (web-mode-looking-at-p "((" (plist-get open-ctx :pos))
|
||
(setq offset (+ (plist-get open-ctx :column) 1))
|
||
(setq offset (+ (plist-get open-ctx :column) web-mode-code-indent-offset)))
|
||
)
|
||
(t
|
||
(goto-char (plist-get open-ctx :pos))
|
||
(forward-char)
|
||
(web-mode-rsf "[[:alnum:]-:]+ ")
|
||
(setq offset (current-column))
|
||
)
|
||
) ;cond
|
||
offset))
|
||
|
||
(defun web-mode-asp-indentation (pos line initial-column language-offset limit)
|
||
(unless limit (setq limit nil))
|
||
(let (h out prev-line prev-indentation)
|
||
(setq h (web-mode-previous-line pos limit))
|
||
(setq out initial-column)
|
||
(when h
|
||
(setq prev-line (car h))
|
||
(setq prev-indentation (cdr h))
|
||
(cond
|
||
;; ----------------------------------------------------------------------
|
||
;; unindent
|
||
((string-match-p "\\_<\\(\\(end \\(if\\|function\\|class\\|sub\\|with\\)\\)\\|else\\|elseif\\|next\\|loop\\)\\_>" line)
|
||
(setq out (- prev-indentation language-offset)))
|
||
;; ----------------------------------------------------------------------
|
||
;; select case statement
|
||
((string-match-p "\\_<\\(select case\\)\\_>" line)
|
||
(setq out (- prev-indentation 0)))
|
||
((string-match-p "\\_<\\(end select\\)" line)
|
||
(setq out (- prev-indentation (* 2 language-offset))))
|
||
((and (string-match-p "\\_<\\(case\\)\\_>" line) (not (string-match-p "\\_<\\(select case\\)\\_>" prev-line)))
|
||
(setq out (- prev-indentation language-offset)))
|
||
;; ----------------------------------------------------------------------
|
||
;; do nothing
|
||
((string-match-p "\\_<\\(\\(end \\(if\\|function\\|class\\|sub\\|select\\|with\\)\\)\\|loop\\( until\\| while\\)?\\)\\_>" prev-line)
|
||
(setq out (+ prev-indentation 0)))
|
||
;; indent
|
||
((string-match-p "\\_<\\(\\(select \\)?case\\|else\\|elseif\\|unless\\|for\\|class\\|with\\|do\\( until\\| while\\)?\\|while\\|\\(public \\|private \\)?\\(function\\|sub\\|class\\)\\)\\_>" prev-line)
|
||
(setq out (+ prev-indentation language-offset)))
|
||
;; single line if statement
|
||
((string-match-p "\\_<if\\_>.*\\_<then\\_>[ \t]*[[:alpha:]]+" prev-line)
|
||
(setq out (+ prev-indentation 0)))
|
||
;; normal if statement
|
||
((string-match-p "\\_<\\if\\_>" prev-line)
|
||
(setq out (+ prev-indentation language-offset)))
|
||
(t
|
||
(setq out prev-indentation))
|
||
)
|
||
) ;when
|
||
out))
|
||
|
||
(defun web-mode-block-previous-live-line ()
|
||
(save-excursion
|
||
(let ((continue t) (line "") (pos (point)))
|
||
(beginning-of-line)
|
||
(while (and continue (not (bobp)) (forward-line -1))
|
||
(when (not (web-mode-block-is-token-line))
|
||
(setq line (web-mode-trim (buffer-substring (point) (line-end-position)))))
|
||
(when (not (string= line ""))
|
||
(setq continue nil))
|
||
) ;while
|
||
(if (string= line "")
|
||
(progn (goto-char pos) nil)
|
||
(cons line (current-indentation)))
|
||
)))
|
||
|
||
(defun web-mode-part-previous-live-line (reg-beg)
|
||
(unless reg-beg (setq reg-beg (point-min)))
|
||
;;(message "reg-beg=%S" reg-beg)
|
||
(save-excursion
|
||
(let ((continue (> (point) reg-beg))
|
||
(line "")
|
||
bol-pos
|
||
eol-pos)
|
||
(beginning-of-line)
|
||
(while (and continue (> (point) reg-beg) (forward-line -1))
|
||
(setq bol-pos (point)
|
||
eol-pos (line-end-position))
|
||
(when (> reg-beg bol-pos)
|
||
(setq bol-pos reg-beg))
|
||
(when (not (web-mode-part-is-token-line bol-pos))
|
||
(setq line (web-mode-trim (buffer-substring bol-pos eol-pos)))
|
||
(when (not (string= line "")) (setq continue nil))
|
||
)
|
||
) ;while
|
||
(if (string= line "")
|
||
nil
|
||
;;(progn (goto-char pos) nil)
|
||
(cons line (current-indentation)))
|
||
)))
|
||
|
||
(defun web-mode-in-code-block (open close &optional prop)
|
||
(save-excursion
|
||
(let ((pos (point)) pos-open pos-close start end ret)
|
||
(when prop
|
||
(setq start pos
|
||
end pos)
|
||
(when (eq (get-text-property pos prop) (get-text-property (1- pos) prop))
|
||
(setq start (or (previous-single-property-change pos prop) (point-min))))
|
||
(when (eq (get-text-property pos prop) (get-text-property (1+ pos) prop))
|
||
(setq end (next-single-property-change pos prop)))
|
||
;; (message "start(%S) end(%S)" start end)
|
||
)
|
||
(setq ret (and (web-mode-sb open start t)
|
||
(setq pos-open (point))
|
||
(web-mode-sf close end t)
|
||
(setq pos-close (point))
|
||
(>= pos-close pos)))
|
||
(if ret
|
||
(cons pos-open pos-close)
|
||
ret)
|
||
)))
|
||
|
||
(defun web-mode-clean-part-line (input)
|
||
(let ((out "")
|
||
(beg 0)
|
||
(keep t)
|
||
(n (length input)))
|
||
(dotimes (i n)
|
||
(if (or (get-text-property i 'block-side input)
|
||
(eq (get-text-property i 'part-token input) 'comment)
|
||
(eq (get-text-property i 'tag-type input) 'comment))
|
||
(when keep
|
||
(setq out (concat out (substring input beg i))
|
||
beg 0
|
||
keep nil))
|
||
(when (null keep)
|
||
(setq beg i
|
||
keep t))
|
||
) ;if
|
||
) ;dotimes
|
||
(if (> beg 0) (setq out (concat out (substring input beg n))))
|
||
(setq out (if (= (length out) 0) input out))
|
||
(web-mode-trim out)
|
||
))
|
||
|
||
(defun web-mode-clean-block-line (input)
|
||
(let ((out "")
|
||
(beg 0)
|
||
(keep t)
|
||
(n (length input)))
|
||
(dotimes (i n)
|
||
(if (or (not (get-text-property i 'block-side input))
|
||
(member (get-text-property i 'block-token input)
|
||
'(comment delimiter-beg delimiter-end)))
|
||
(when keep
|
||
(setq out (concat out (substring input beg i))
|
||
beg 0
|
||
keep nil))
|
||
(when (null keep)
|
||
(setq beg i
|
||
keep t))
|
||
) ;if
|
||
) ;dotimes
|
||
(if (> beg 0) (setq out (concat out (substring input beg n))))
|
||
(setq out (if (= (length out) 0) input out))
|
||
(web-mode-trim out)
|
||
;; (message "%S [%s] > [%s]" beg input out)
|
||
))
|
||
|
||
(defun web-mode-language-at-pos (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((get-text-property pos 'block-side)
|
||
web-mode-engine)
|
||
((get-text-property pos 'part-side)
|
||
(symbol-name (get-text-property pos 'part-side)))
|
||
(t
|
||
web-mode-content-type)
|
||
) ;cond
|
||
)
|
||
|
||
(defun web-mode-coord-position (line column)
|
||
(save-excursion
|
||
(when (stringp line) (setq line (string-to-number line)))
|
||
(when (stringp column) (setq column (string-to-number column)))
|
||
(goto-char (point-min))
|
||
(forward-line (1- line))
|
||
(move-to-column (1- column))
|
||
(point)))
|
||
|
||
(defun web-mode-column-at-pos (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(current-column)))
|
||
|
||
(defun web-mode-is-single-line-block (pos)
|
||
(= (web-mode-line-number (web-mode-block-beginning-position pos))
|
||
(web-mode-line-number (web-mode-block-end-position pos))))
|
||
|
||
(defun web-mode-line-number (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (ret)
|
||
(setq ret (+ (count-lines 1 pos)
|
||
(if (= (web-mode-column-at-pos pos) 0) 1 0)))))
|
||
|
||
(defun web-mode-block-is-control (pos)
|
||
(save-excursion
|
||
(let (control state controls pair)
|
||
(goto-char pos)
|
||
(setq controls (web-mode-block-controls-get pos))
|
||
(setq pair (car controls))
|
||
(cond
|
||
((eq (car pair) 'inside)
|
||
)
|
||
((eq (car pair) 'open)
|
||
(setq state t
|
||
control (cdr pair)))
|
||
((eq (car pair) 'close)
|
||
(setq state nil
|
||
control (cdr pair)))
|
||
) ;cond
|
||
;; (message "engine=%S control=%S state=%S" web-mode-engine control state)
|
||
(if control (cons control state) nil)
|
||
)))
|
||
|
||
(defun web-mode-block-is-opening-control (pos)
|
||
(save-excursion
|
||
(let (controls pair)
|
||
(goto-char pos)
|
||
(if (and (setq controls (web-mode-block-controls-get pos))
|
||
(= (length controls) 1)
|
||
(setq pair (car controls))
|
||
(eq (car pair) 'open))
|
||
(cdr pair)
|
||
nil)
|
||
)))
|
||
|
||
(defun web-mode-markup-indentation-origin (pos)
|
||
(save-excursion
|
||
(let* ((continue (not (bobp)))
|
||
;; (pos (point))
|
||
(part-side (not (null (get-text-property pos 'part-side)))) ;part-side at the origin
|
||
(types '(start end void)))
|
||
(while continue
|
||
(forward-line -1)
|
||
(if (bobp)
|
||
(setq pos (point)
|
||
continue nil)
|
||
(back-to-indentation)
|
||
(setq pos (point))
|
||
(setq continue (not (or (and (null part-side)
|
||
(null (get-text-property pos 'part-side))
|
||
(get-text-property pos 'tag-beg)
|
||
(member (get-text-property pos 'tag-type) types)
|
||
(null (get-text-property (1- pos) 'invisible)))
|
||
(and part-side
|
||
(get-text-property pos 'part-side)
|
||
(get-text-property pos 'tag-beg)
|
||
(member (get-text-property pos 'tag-type) types)
|
||
(null (get-text-property (1- pos) 'invisible)))
|
||
(and (get-text-property pos 'block-beg)
|
||
(not (get-text-property pos 'tag-type))
|
||
(web-mode-block-is-control pos)
|
||
(not (looking-at-p "{% comment"))))))
|
||
) ;if
|
||
) ;while
|
||
;;(message "indent-origin=%S" pos)
|
||
pos)))
|
||
|
||
;;TODO : prendre en compte part-token
|
||
;; state=t <=> start tag
|
||
(defun web-mode-element-is-opened (pos limit)
|
||
(let (tag
|
||
last-end-tag
|
||
tag-pos block-pos
|
||
state
|
||
n
|
||
ret
|
||
(continue t)
|
||
controls
|
||
control
|
||
(buffer (current-buffer))
|
||
(h (make-hash-table :test 'equal))
|
||
(h2 (make-hash-table :test 'equal)))
|
||
|
||
;; (message "pos-ori=%S limit=%S" pos limit)
|
||
|
||
(while continue
|
||
(setq control nil
|
||
controls nil
|
||
last-end-tag nil
|
||
tag nil)
|
||
|
||
(cond
|
||
((get-text-property pos 'tag-beg)
|
||
(when (member (get-text-property pos 'tag-type) '(start end))
|
||
(setq tag (get-text-property pos 'tag-name)
|
||
state (eq (get-text-property pos 'tag-type) 'start))
|
||
(if (null state) (setq last-end-tag (cons tag pos)))
|
||
(setq n (gethash tag h 0))
|
||
(if (null state)
|
||
(progn
|
||
(when (> n 0) (puthash tag (1- n) h))
|
||
(puthash tag (1- n) h2))
|
||
(puthash tag (1+ n) h)
|
||
(puthash tag (1+ n) h2))
|
||
) ;when
|
||
(when (setq pos (web-mode-tag-end-position pos))
|
||
(setq tag-pos nil)
|
||
(when (and block-pos (> pos block-pos))
|
||
(setq block-pos nil))
|
||
) ;when
|
||
)
|
||
((and web-mode-enable-control-block-indentation
|
||
(get-text-property pos 'block-beg))
|
||
(when (setq controls (web-mode-block-controls-get pos))
|
||
(dolist (control controls)
|
||
(setq tag (cdr control))
|
||
(setq n (gethash tag h 0))
|
||
(cond
|
||
((eq (car control) 'inside)
|
||
)
|
||
((eq (car control) 'open)
|
||
(puthash tag (1+ n) h))
|
||
((> n 0)
|
||
(puthash tag (1- n) h))
|
||
) ;cond
|
||
) ;dolist
|
||
)
|
||
(when (setq pos (web-mode-block-end-position pos))
|
||
(setq block-pos nil)
|
||
(when (and tag-pos (> pos tag-pos))
|
||
(setq tag-pos nil))
|
||
)
|
||
)
|
||
) ;cond
|
||
|
||
;; (message "tag=%S end-pos=%S" tag pos)
|
||
|
||
(when (and pos (< pos limit))
|
||
(when (or (null tag-pos) (>= pos tag-pos))
|
||
(setq tag-pos (web-mode-tag-next-position pos limit))
|
||
;; (message "from=%S tag-next-pos=%S" pos tag-pos)
|
||
)
|
||
(when (or (null block-pos) (>= pos block-pos))
|
||
(setq block-pos (web-mode-block-next-position pos limit))
|
||
;; (message "from=%S block-next-pos=%S" pos block-pos)
|
||
)
|
||
)
|
||
|
||
(cond
|
||
((null pos)
|
||
)
|
||
((and (null tag-pos)
|
||
(null block-pos))
|
||
(setq pos nil))
|
||
((and tag-pos block-pos)
|
||
(if (< tag-pos block-pos)
|
||
(progn
|
||
(setq pos tag-pos)
|
||
(setq tag-pos nil))
|
||
(setq pos block-pos)
|
||
(setq block-pos nil))
|
||
)
|
||
((null tag-pos)
|
||
(setq pos block-pos)
|
||
(setq block-pos nil))
|
||
(t
|
||
(setq pos tag-pos)
|
||
(setq tag-pos nil))
|
||
)
|
||
|
||
(when (or (null pos)
|
||
(>= pos limit))
|
||
(setq continue nil))
|
||
) ;while
|
||
|
||
;; (message "hashtable=%S" h)
|
||
(maphash (lambda (k v) (if (> v 0) (setq ret t))) h)
|
||
|
||
(when (and (null ret)
|
||
last-end-tag
|
||
(> (hash-table-count h2) 1)
|
||
(< (gethash (car last-end-tag) h2) 0))
|
||
;; (message "last-end-tag=%S" last-end-tag)
|
||
(save-excursion
|
||
(goto-char (cdr last-end-tag))
|
||
(web-mode-tag-match)
|
||
(when (not (= (point) (cdr last-end-tag)))
|
||
(setq n (point))
|
||
(back-to-indentation)
|
||
(if (= n (point)) (setq ret (current-indentation))))
|
||
))
|
||
|
||
ret))
|
||
|
||
(defun web-mode-previous-line (pos limit)
|
||
(save-excursion
|
||
(let (beg end line (continue t))
|
||
(goto-char pos)
|
||
(while continue
|
||
(forward-line -1)
|
||
(setq end (line-end-position))
|
||
(setq line (buffer-substring-no-properties (point) end))
|
||
(when (or (not (string-match-p "^[ \t]*$" line))
|
||
(bobp)
|
||
(<= (point) limit))
|
||
(setq continue nil))
|
||
)
|
||
(if (<= (point) limit)
|
||
;;todo : affiner (le + 3 n est pas générique cf. <?php <% <%- etc.)
|
||
(setq beg (if (< (+ limit 3) end) (+ limit 3) end))
|
||
(setq beg (line-beginning-position))
|
||
) ;if
|
||
(setq line (buffer-substring-no-properties beg end))
|
||
(cons line (current-indentation))
|
||
)))
|
||
|
||
(defun web-mode-bracket-up (pos language &optional limit)
|
||
(unless limit (setq limit nil))
|
||
;;(message "pos(%S) language(%S) limit(%S)" pos language limit)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(let ((continue t)
|
||
(regexp "[\]\[}{)(]")
|
||
(char nil)
|
||
(map nil)
|
||
(key nil)
|
||
(value 0)
|
||
(searcher (if (get-text-property pos 'block-side) 'web-mode-block-rsb 'web-mode-part-rsb)))
|
||
(while (and continue (funcall searcher regexp limit))
|
||
(setq char (aref (match-string-no-properties 0) 0))
|
||
(setq key (cond ((eq char ?\)) ?\()
|
||
((eq char ?\}) ?\{)
|
||
((eq char ?\]) ?\[)
|
||
(t char)))
|
||
(setq value (or (plist-get map key) 0))
|
||
(setq value (if (member char '(?\( ?\{ ?\[)) (1+ value) (1- value)))
|
||
(setq map (plist-put map key value))
|
||
(setq continue (< value 1))
|
||
;;(message "pos=%S char=%c key=%c value=%S map=%S" (point) char key value map)
|
||
) ;while
|
||
(list :pos (if (> value 0) (point) nil)
|
||
:char char
|
||
:column (current-column)
|
||
:indentation (current-indentation))
|
||
) ;let
|
||
))
|
||
|
||
(defun web-mode-count-char-in-string (char string)
|
||
(let ((n 0))
|
||
(dotimes (i (length string))
|
||
(if (eq (elt string i) char)
|
||
(setq n (1+ n))))
|
||
n))
|
||
|
||
(defun web-mode-mark-and-expand ()
|
||
"Mark and expand."
|
||
(interactive)
|
||
(web-mode-mark (point)))
|
||
|
||
(defun web-mode-mark (pos)
|
||
(let ((beg pos) (end pos) prop reg-beg boundaries)
|
||
|
||
(if mark-active
|
||
(setq reg-beg (region-beginning))
|
||
(setq web-mode-expand-initial-pos (point)
|
||
web-mode-expand-initial-scroll (window-start))
|
||
)
|
||
|
||
;; (message "regs=%S %S %S %S" (region-beginning) (region-end) (point-min) (point-max))
|
||
;; (message "before=%S" web-mode-expand-previous-state)
|
||
|
||
(cond
|
||
|
||
((and mark-active
|
||
(= (region-beginning) (point-min))
|
||
(or (= (region-end) (point-max))
|
||
(= (1+ (region-end)) (point-max))))
|
||
(deactivate-mark)
|
||
(goto-char (or web-mode-expand-initial-pos (point-min)))
|
||
(setq web-mode-expand-previous-state nil)
|
||
(when web-mode-expand-initial-scroll
|
||
(set-window-start (selected-window) web-mode-expand-initial-scroll))
|
||
)
|
||
|
||
((string= web-mode-expand-previous-state "elt-content")
|
||
(web-mode-element-parent)
|
||
;;(message "pos=%S" (point))
|
||
(web-mode-element-select)
|
||
(setq web-mode-expand-previous-state "html-parent"))
|
||
|
||
((and (member (get-text-property pos 'block-token) '(comment string))
|
||
(not (member web-mode-expand-previous-state '("block-token" "block-body" "block-side"))))
|
||
(when (eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token))
|
||
(setq beg (or (previous-single-property-change pos 'block-token) (point-min))))
|
||
(when (eq (get-text-property pos 'block-token) (get-text-property (1+ pos) 'block-token))
|
||
(setq end (next-single-property-change pos 'block-token)))
|
||
(set-mark beg)
|
||
(goto-char end)
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "block-token"))
|
||
|
||
((and (get-text-property pos 'block-side)
|
||
(not (member web-mode-expand-previous-state '("block-body" "block-side")))
|
||
(not (member web-mode-engine '(django go)))
|
||
(setq boundaries (web-mode-in-code-block "{" "}" 'block-side)))
|
||
(set-mark (car boundaries))
|
||
(goto-char (cdr boundaries))
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "block-body"))
|
||
|
||
((and (get-text-property pos 'block-side)
|
||
(not (member web-mode-expand-previous-state '("block-side"))))
|
||
(set-mark (web-mode-block-beginning-position pos))
|
||
(goto-char (1+ (web-mode-block-end-position pos)))
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "block-side"))
|
||
|
||
((and (get-text-property pos 'part-token)
|
||
(not (string= web-mode-expand-previous-state "part-token")))
|
||
(when (eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token))
|
||
(setq beg (previous-single-property-change pos 'part-token)))
|
||
(when (eq (get-text-property pos 'part-token) (get-text-property (1+ pos) 'part-token))
|
||
(setq end (next-single-property-change pos 'part-token)))
|
||
(set-mark beg)
|
||
(goto-char end)
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "part-token"))
|
||
|
||
((and (get-text-property pos 'part-side)
|
||
(not (string= web-mode-expand-previous-state "client-part"))
|
||
(setq boundaries (web-mode-in-code-block "{" "}" 'part-side)))
|
||
(set-mark (car boundaries))
|
||
(goto-char (cdr boundaries))
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "client-part"))
|
||
|
||
((and (get-text-property pos 'part-side)
|
||
(not (string= web-mode-expand-previous-state "part-side")))
|
||
(when (eq (get-text-property pos 'part-side) (get-text-property (1- pos) 'part-side))
|
||
(setq beg (previous-single-property-change pos 'part-side)))
|
||
(when (eq (get-text-property pos 'part-side) (get-text-property (1+ pos) 'part-side))
|
||
(setq end (next-single-property-change pos 'part-side)))
|
||
(when (eq (char-after beg) ?\n)
|
||
(setq beg (1+ beg)))
|
||
(set-mark beg)
|
||
(goto-char end)
|
||
(when (looking-back "^[ \t]+")
|
||
(beginning-of-line))
|
||
(exchange-point-and-mark)
|
||
(setq web-mode-expand-previous-state "part-side"))
|
||
|
||
((and (get-text-property pos 'tag-attr)
|
||
(not (member web-mode-expand-previous-state '("html-attr" "html-tag"))))
|
||
(web-mode-attribute-select pos)
|
||
(setq web-mode-expand-previous-state "html-attr"))
|
||
|
||
((and (eq (get-text-property pos 'tag-type) 'comment)
|
||
(not (member web-mode-expand-previous-state '("html-tag" "html-comment" "html-elt" "html-parent"))))
|
||
(web-mode-tag-select)
|
||
(setq web-mode-expand-previous-state "html-comment"))
|
||
|
||
((and (get-text-property pos 'tag-name)
|
||
(not (member web-mode-expand-previous-state '("html-tag" "html-elt" "html-parent"))))
|
||
(web-mode-tag-select)
|
||
(setq web-mode-expand-previous-state "html-tag"))
|
||
|
||
((and (get-text-property pos 'tag-beg)
|
||
(string= web-mode-expand-previous-state "html-tag"))
|
||
(web-mode-element-select)
|
||
(setq web-mode-expand-previous-state "html-elt"))
|
||
|
||
(t
|
||
(cond
|
||
((not (web-mode-element-parent))
|
||
(push-mark (point))
|
||
(push-mark (point-max) nil t)
|
||
(goto-char (point-min))
|
||
(setq web-mode-expand-previous-state "mark-whole"))
|
||
((not (= (web-mode-tag-end-position (point)) (1- beg)))
|
||
(web-mode-element-content-select)
|
||
(setq web-mode-expand-previous-state "elt-content"))
|
||
(t
|
||
(web-mode-element-select)
|
||
(setq web-mode-expand-previous-state "html-parent"))
|
||
)
|
||
) ;t
|
||
|
||
) ;cond
|
||
|
||
;;(message "w=%S" (window-end))
|
||
;;(message "after=%S" web-mode-expand-previous-state)
|
||
|
||
))
|
||
|
||
(defun web-mode-block-kill ()
|
||
"Kill the current block."
|
||
(interactive)
|
||
(web-mode-block-select)
|
||
(when mark-active
|
||
(kill-region (region-beginning) (region-end))))
|
||
|
||
(defun web-mode-block-select ()
|
||
"Select the current block."
|
||
(interactive)
|
||
(let (beg)
|
||
(when (setq beg (web-mode-block-beginning-position (point)))
|
||
(goto-char beg)
|
||
(set-mark (point))
|
||
(web-mode-block-end)
|
||
(exchange-point-and-mark))
|
||
beg))
|
||
|
||
(defun web-mode-tag-select ()
|
||
"Select the current html tag."
|
||
(interactive)
|
||
(let (beg)
|
||
(when (setq beg (web-mode-tag-beginning-position (point)))
|
||
(goto-char beg)
|
||
(set-mark (point))
|
||
(web-mode-tag-end)
|
||
(exchange-point-and-mark))
|
||
beg))
|
||
|
||
(defun web-mode-element-content-select ()
|
||
"Select the content of a html element."
|
||
(interactive)
|
||
(let (pos beg end)
|
||
(web-mode-element-select)
|
||
(when mark-active
|
||
(setq pos (point))
|
||
(deactivate-mark)
|
||
(web-mode-tag-match)
|
||
(setq end (point))
|
||
(goto-char pos)
|
||
(web-mode-tag-end)
|
||
(set-mark (point))
|
||
(goto-char end)
|
||
(exchange-point-and-mark)
|
||
)))
|
||
|
||
(defun web-mode-element-select ()
|
||
"Select the current html element (including opening and closing tags)."
|
||
(interactive)
|
||
(let* ((pos (point))
|
||
(type (get-text-property pos 'tag-type)))
|
||
(if type
|
||
(cond
|
||
((member type '(start void))
|
||
(web-mode-tag-beginning)
|
||
(set-mark (point))
|
||
(web-mode-tag-match)
|
||
(web-mode-tag-end)
|
||
(exchange-point-and-mark))
|
||
(t
|
||
(web-mode-tag-match)
|
||
(set-mark (point))
|
||
(web-mode-tag-match)
|
||
(web-mode-tag-end)
|
||
(exchange-point-and-mark))
|
||
) ;cond
|
||
(web-mode-element-parent)
|
||
(unless (= (point) pos) (web-mode-element-select))
|
||
) ;if
|
||
))
|
||
|
||
(defun web-mode-element-is-collapsed (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (boundaries)
|
||
(and (setq boundaries (web-mode-element-boundaries pos))
|
||
(or (= (car (car boundaries)) (car (cdr boundaries)))
|
||
(= (cdr (car boundaries)) (1- (car (cdr boundaries)))))
|
||
)))
|
||
|
||
(defun web-mode-element-transpose ()
|
||
"Transpose two html elements."
|
||
(interactive)
|
||
(let (pos start1 end1 start2 end2)
|
||
(save-excursion
|
||
(setq pos (point))
|
||
(cond
|
||
((get-text-property pos 'tag-type)
|
||
(setq start1 (web-mode-element-beginning-position pos)
|
||
end1 (1+ (web-mode-element-end-position pos)))
|
||
)
|
||
((setq start1 (web-mode-element-parent-position pos))
|
||
(setq end1 (1+ (web-mode-element-end-position pos)))
|
||
)
|
||
) ;cond
|
||
(when (and start1 end1 (> end1 0))
|
||
(goto-char end1)
|
||
(unless (get-text-property (point) 'tag-beg)
|
||
(skip-chars-forward "\n\t "))
|
||
(when (get-text-property (point) 'tag-beg)
|
||
(setq start2 (web-mode-element-beginning-position (point))
|
||
end2 (1+ (web-mode-element-end-position (point))))
|
||
)
|
||
)
|
||
(transpose-regions start1 end1 start2 end2)
|
||
) ;save-excursion
|
||
start2))
|
||
|
||
(defun web-mode-element-children-fold-or-unfold (&optional pos)
|
||
"Fold/Unfold all the children of the current html element."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(dolist (child (reverse (web-mode-element-children pos)))
|
||
(goto-char child)
|
||
(web-mode-fold-or-unfold))
|
||
))
|
||
|
||
(defun web-mode-element-mute-blanks ()
|
||
"Mute blanks."
|
||
(interactive)
|
||
(let (pos parent beg end children elt)
|
||
(setq pos (point))
|
||
(save-excursion
|
||
(when (and (setq parent (web-mode-element-boundaries pos))
|
||
(web-mode-element-child-position (point)))
|
||
(setq children (reverse (web-mode-element-children)))
|
||
(goto-char (car (cdr parent)))
|
||
(dolist (child children)
|
||
(setq elt (web-mode-element-boundaries child))
|
||
(when (> (point) (1+ (cddr elt)))
|
||
(when (and (not (eq (get-text-property (point) 'part-token) 'comment))
|
||
(not (eq (get-text-property (1+ (cddr elt)) 'part-token) 'comment)))
|
||
(web-mode-insert-text-at-pos "-->" (point))
|
||
(web-mode-insert-text-at-pos "<!--" (1+ (cddr elt))))
|
||
)
|
||
(goto-char child)
|
||
)
|
||
(when (and (> (point) (1+ (cdr (car parent))))
|
||
(not (eq (get-text-property (point) 'part-token) 'comment))
|
||
(not (eq (get-text-property (1+ (cdr (car parent))) 'part-token) 'comment)))
|
||
(web-mode-insert-text-at-pos "-->" (point))
|
||
(web-mode-insert-text-at-pos "<!--" (1+ (cdr (car parent)))))
|
||
) ;when
|
||
)))
|
||
|
||
(defun web-mode-element-children (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let ((continue t) (i 0) child children)
|
||
(save-excursion
|
||
(when (and (member (get-text-property pos 'tag-type) '(start end))
|
||
(setq child (web-mode-element-child-position pos)))
|
||
(while continue
|
||
(cond
|
||
((> (setq i (1+ i)) 100)
|
||
(setq continue nil)
|
||
(message "element-children ** warning **"))
|
||
((= i 1)
|
||
(goto-char child))
|
||
((web-mode-element-sibling-next)
|
||
)
|
||
(t
|
||
(setq continue nil))
|
||
) ;cond
|
||
(when continue
|
||
(setq children (append children (list (point)))))
|
||
) ;while
|
||
) ;when
|
||
) ;save-excursion
|
||
children))
|
||
|
||
(defun web-mode-element-boundaries (&optional pos)
|
||
"Return ((start-tag-beg . start-tag-end) . (end-tag-beg . end-tag-end))
|
||
First level car and cdr are the same with void elements.
|
||
Pos should be in a tag."
|
||
(unless pos (setq pos (point)))
|
||
(let (start-tag-beg start-tag-end end-tag-beg end-tag-end)
|
||
(cond
|
||
((eq (get-text-property pos 'tag-type) 'start)
|
||
(setq start-tag-beg (web-mode-tag-beginning-position pos)
|
||
start-tag-end (web-mode-tag-end-position pos))
|
||
(when (setq pos (web-mode-tag-match-position pos))
|
||
(setq end-tag-beg pos
|
||
end-tag-end (web-mode-tag-end-position pos)))
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'end)
|
||
(setq end-tag-beg (web-mode-tag-beginning-position pos)
|
||
end-tag-end (web-mode-tag-end-position pos))
|
||
(when (setq pos (web-mode-tag-match-position pos))
|
||
(setq start-tag-beg pos
|
||
start-tag-end (web-mode-tag-end-position pos)))
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'void)
|
||
(setq start-tag-beg (web-mode-tag-beginning-position pos)
|
||
start-tag-end (web-mode-tag-end-position pos))
|
||
(setq end-tag-beg start-tag-beg
|
||
end-tag-end start-tag-end)
|
||
)
|
||
) ;cond
|
||
(if (and start-tag-beg start-tag-end end-tag-beg end-tag-end)
|
||
(cons (cons start-tag-beg start-tag-end) (cons end-tag-beg end-tag-end))
|
||
nil)
|
||
))
|
||
|
||
(defun web-mode-surround ()
|
||
"Surround each line of the current REGION with a start/end tag."
|
||
(interactive)
|
||
(when mark-active
|
||
(let (beg end line-beg line-end pos tag tag-start tag-end)
|
||
(save-excursion
|
||
(setq tag (read-from-minibuffer "Tag name? ")
|
||
tag-start (concat "<" tag ">")
|
||
tag-end (concat "</" tag ">")
|
||
pos (point)
|
||
beg (region-beginning)
|
||
end (region-end)
|
||
line-beg (web-mode-line-number beg)
|
||
line-end (web-mode-line-number end))
|
||
(goto-char end)
|
||
(unless (bolp)
|
||
(insert tag-end)
|
||
(back-to-indentation)
|
||
(when (> beg (point))
|
||
(goto-char beg))
|
||
(insert tag-start))
|
||
(while (> line-end line-beg)
|
||
(forward-line -1)
|
||
(setq line-end (1- line-end))
|
||
(unless (looking-at-p "[[:space:]]*$")
|
||
(end-of-line)
|
||
(insert tag-end)
|
||
(back-to-indentation)
|
||
(when (> beg (point))
|
||
(goto-char beg))
|
||
(insert tag-start))
|
||
) ;while
|
||
(deactivate-mark)
|
||
))))
|
||
|
||
(defun web-mode-element-wrap (&optional tag-name)
|
||
"Wrap current REGION with start and end tags.
|
||
Prompt user if TAG-NAME isn't provided."
|
||
(interactive)
|
||
(let (beg end pos tag sep)
|
||
(save-excursion
|
||
(setq tag (or tag-name (read-from-minibuffer "Tag name? ")))
|
||
(setq pos (point))
|
||
(cond
|
||
(mark-active
|
||
(setq beg (region-beginning)
|
||
end (region-end)))
|
||
((get-text-property pos 'tag-type)
|
||
(setq beg (web-mode-element-beginning-position pos)
|
||
end (1+ (web-mode-element-end-position pos))))
|
||
((setq beg (web-mode-element-parent-position pos))
|
||
(setq end (1+ (web-mode-element-end-position pos))))
|
||
)
|
||
;; (message "beg(%S) end(%S)" beg end)
|
||
(when (and beg end (> end 0))
|
||
(setq sep (if (get-text-property beg 'tag-beg) "\n" ""))
|
||
(web-mode-insert-text-at-pos (concat sep "</" tag ">") end)
|
||
(web-mode-insert-text-at-pos (concat "<" tag ">" sep) beg)
|
||
(when (string= sep "\n") (indent-region beg (+ end (* (+ 3 (length tag)) 2))))
|
||
)
|
||
) ;save-excursion
|
||
(web-mode-go beg)))
|
||
|
||
(defun web-mode-element-vanish (&optional arg)
|
||
"Vanish the current html element. The content of the element is kept."
|
||
(interactive "p")
|
||
(let (type (pos (point)) start-b start-e end-b end-e)
|
||
(while (>= arg 1)
|
||
(setq type (get-text-property pos 'tag-type))
|
||
(when type
|
||
(cond
|
||
((member type '(void))
|
||
(web-mode-element-kill)
|
||
(set-mark (point))
|
||
(web-mode-tag-match)
|
||
(web-mode-tag-end)
|
||
(exchange-point-and-mark))
|
||
((member type '(start))
|
||
(setq start-b (web-mode-tag-beginning-position)
|
||
start-e (web-mode-tag-end-position))
|
||
(when (web-mode-tag-match)
|
||
(setq end-b (web-mode-tag-beginning-position)
|
||
end-e (web-mode-tag-end-position)))
|
||
)
|
||
(t
|
||
(setq end-b (web-mode-tag-beginning-position)
|
||
end-e (web-mode-tag-end-position))
|
||
(when (web-mode-tag-match)
|
||
(setq start-b (web-mode-tag-beginning-position)
|
||
start-e (web-mode-tag-end-position)))
|
||
) ;t
|
||
) ;cond
|
||
(when (and start-b end-b)
|
||
(goto-char end-b)
|
||
(delete-region end-b (1+ end-e))
|
||
(delete-blank-lines)
|
||
(goto-char start-b)
|
||
(delete-region start-b (1+ start-e))
|
||
(delete-blank-lines)
|
||
(web-mode-buffer-indent)
|
||
)
|
||
;; (message "start %S %S - end %S %S" start-b start-e end-b end-e))
|
||
) ;when
|
||
(skip-chars-forward "[:space:]")
|
||
(setq arg (1- arg))
|
||
) ;while
|
||
) ;let
|
||
)
|
||
|
||
(defun web-mode-element-kill (&optional arg)
|
||
"Kill the current html element."
|
||
(interactive "p")
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-element-select)
|
||
(when mark-active
|
||
(kill-region (region-beginning) (region-end)))
|
||
) ;while
|
||
)
|
||
|
||
(defun web-mode-element-clone (&optional arg)
|
||
"Clone the current html element."
|
||
(interactive "p")
|
||
(let (col pos)
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg)
|
||
col 0)
|
||
(web-mode-element-select)
|
||
(when mark-active
|
||
(save-excursion
|
||
(goto-char (region-beginning))
|
||
(setq col (current-column)))
|
||
(kill-region (region-beginning) (region-end))
|
||
(yank)
|
||
(newline)
|
||
(indent-line-to col)
|
||
(setq pos (point))
|
||
(yank)
|
||
(goto-char pos))
|
||
)
|
||
) ;let
|
||
)
|
||
|
||
(defun web-mode-element-insert ()
|
||
"Insert an html element."
|
||
(interactive)
|
||
(let (tag-name)
|
||
(cond
|
||
((and (get-text-property (point) 'tag-type)
|
||
(not (get-text-property (point) 'tag-beg)))
|
||
(message "element-insert ** invalid context **"))
|
||
((not (and (setq tag-name (read-from-minibuffer "Tag name? "))
|
||
(> (length tag-name) 0)))
|
||
(message "element-insert ** failure **"))
|
||
((web-mode-element-is-void tag-name)
|
||
(insert (concat "<" tag-name "/>"))
|
||
)
|
||
(mark-active
|
||
(let ((beg (region-beginning)) (end (region-end)))
|
||
(deactivate-mark)
|
||
(goto-char end)
|
||
(insert "</" tag-name ">")
|
||
(goto-char beg)
|
||
(insert "<" tag-name ">")
|
||
)
|
||
)
|
||
(t
|
||
(insert (concat "<" tag-name ">" "</" tag-name ">"))
|
||
(web-mode-sb "</")
|
||
)
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-element-rename ()
|
||
"Rename the current html element."
|
||
(interactive)
|
||
(save-excursion
|
||
(let (pos tag-name)
|
||
(setq tag-name (read-from-minibuffer "New tag name? "))
|
||
(when (and (> (length tag-name) 0)
|
||
(web-mode-element-beginning)
|
||
(looking-at "<\\([[:alnum:]]+\\(:?[-][[:alpha:]]+\\)?\\)"))
|
||
(setq pos (point))
|
||
(unless (web-mode-element-is-void)
|
||
(save-match-data
|
||
(web-mode-tag-match)
|
||
(if (looking-at "</[ ]*\\([[:alnum:]]+\\(:?[-][[:alpha:]]+\\)?\\)")
|
||
(replace-match (concat "</" tag-name))
|
||
)))
|
||
(goto-char pos)
|
||
(replace-match (concat "<" tag-name))
|
||
))))
|
||
|
||
(defun web-mode-current-trimmed-line ()
|
||
(web-mode-trim (buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
|
||
(defun web-mode-trim (string)
|
||
(replace-regexp-in-string "\\`[ \t\n]*" "" (replace-regexp-in-string "[ \t\n]*\\'" "" string)))
|
||
|
||
(defun web-mode-block-is-token-line ()
|
||
(save-excursion
|
||
(let ((continue t) (counter 0))
|
||
(beginning-of-line)
|
||
(back-to-indentation)
|
||
(while (and continue (not (eolp)))
|
||
(cond
|
||
((get-text-property (point) 'block-token)
|
||
(setq counter (1+ counter)))
|
||
((not (eq ?\s (following-char)))
|
||
(setq continue nil
|
||
counter 0))
|
||
) ;cond
|
||
(forward-char)
|
||
) ;while
|
||
(> counter 0)
|
||
)))
|
||
|
||
(defun web-mode-part-is-token-line (pos)
|
||
(save-excursion
|
||
(let ((continue t)
|
||
(counter 0))
|
||
(goto-char pos)
|
||
(setq continue (not (eolp)))
|
||
(while continue
|
||
(forward-char)
|
||
(cond
|
||
((eolp)
|
||
(setq continue nil))
|
||
((or (get-text-property (point) 'block-side)
|
||
(member (get-text-property (point) 'part-token) '(comment string)))
|
||
(setq counter (1+ counter)))
|
||
((eq ?\s (following-char))
|
||
)
|
||
(t
|
||
(setq continue nil
|
||
counter 0))
|
||
)
|
||
) ;while
|
||
(> counter 0))))
|
||
|
||
(defun web-mode-is-content (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(not (or (get-text-property pos 'part-side)
|
||
(get-text-property pos 'tag-type)
|
||
(get-text-property pos 'block-side)
|
||
)))
|
||
|
||
(defun web-mode-is-comment-or-string (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(not (null (or (eq (get-text-property pos 'tag-type) 'comment)
|
||
(member (get-text-property pos 'block-token) '(comment string))
|
||
(member (get-text-property pos 'part-token) '(comment string))))))
|
||
|
||
;; NOTE: we look at the firt one
|
||
(defun web-mode-block-is-open (&optional pos)
|
||
(unless pos (setq pos (point))))
|
||
|
||
;; NOTE: we look at the last one
|
||
(defun web-mode-block-is-close (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(and (get-text-property pos 'block-side)
|
||
(eq (caar (web-mode-block-controls-get pos)) 'close)))
|
||
|
||
;; NOTE: we look at the first one
|
||
(defun web-mode-block-is-inside (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(and (get-text-property pos 'block-side)
|
||
(eq (caar (web-mode-block-controls-get pos)) 'inside)))
|
||
|
||
(defun web-mode-element-is-void (&optional tag)
|
||
(cond
|
||
((and tag (member tag '("div" "li" "a" "p")))
|
||
nil)
|
||
((and tag (string= web-mode-content-type "jsx"))
|
||
(member (downcase tag) '("img" "br" "hr")))
|
||
(tag
|
||
(car (member (downcase tag) web-mode-void-elements)))
|
||
(t
|
||
(eq (get-text-property (point) 'tag-type) 'void))
|
||
))
|
||
|
||
(defun web-mode-toggle-current-element-highlight ()
|
||
"Toggle highlighting of the current html element."
|
||
(interactive)
|
||
(if web-mode-enable-current-element-highlight
|
||
(progn
|
||
(web-mode-delete-tag-overlays)
|
||
(setq web-mode-enable-current-element-highlight nil))
|
||
(setq web-mode-enable-current-element-highlight t)
|
||
))
|
||
|
||
(defun web-mode-fold-or-unfold (&optional pos)
|
||
"Toggle folding on an html element or a control block."
|
||
(interactive)
|
||
(web-mode-propertize)
|
||
(web-mode-with-silent-modifications
|
||
(save-excursion
|
||
(if pos (goto-char pos))
|
||
(let (beg-inside beg-outside end-inside end-outside overlay overlays regexp)
|
||
(when (looking-back "^[\t ]*")
|
||
(back-to-indentation))
|
||
(setq overlays (overlays-at (point)))
|
||
(dolist (elt overlays)
|
||
(when (and (not overlay)
|
||
(eq (overlay-get elt 'font-lock-face) 'web-mode-folded-face))
|
||
(setq overlay elt)))
|
||
(cond
|
||
;; *** unfolding
|
||
(overlay
|
||
(setq beg-inside (overlay-start overlay)
|
||
end-inside (overlay-end overlay))
|
||
(remove-overlays beg-inside end-inside)
|
||
(put-text-property beg-inside end-inside 'invisible nil)
|
||
)
|
||
;; *** tag folding
|
||
((member (get-text-property (point) 'tag-type) '(start end))
|
||
(when (not (web-mode-element-is-collapsed (point)))
|
||
(web-mode-tag-beginning)
|
||
(when (eq (get-text-property (point) 'tag-type) 'end)
|
||
(web-mode-tag-match))
|
||
(setq beg-outside (point))
|
||
(web-mode-tag-end)
|
||
(setq beg-inside (point))
|
||
(goto-char beg-outside)
|
||
(when (web-mode-tag-match)
|
||
(setq end-inside (point))
|
||
(web-mode-tag-end)
|
||
(setq end-outside (point)))
|
||
)
|
||
)
|
||
;; *** block folding
|
||
((cdr (web-mode-block-is-control (point)))
|
||
(setq beg-outside (web-mode-block-beginning-position (point)))
|
||
(setq beg-inside (1+ (web-mode-block-end-position (point))))
|
||
(when (web-mode-block-match)
|
||
(setq end-inside (point))
|
||
(setq end-outside (1+ (web-mode-block-end-position (point)))))
|
||
)
|
||
) ;cond
|
||
(when (and beg-inside beg-outside end-inside end-outside)
|
||
(setq overlay (make-overlay beg-outside end-outside))
|
||
(overlay-put overlay 'font-lock-face 'web-mode-folded-face)
|
||
(put-text-property beg-inside end-inside 'invisible t))
|
||
))))
|
||
|
||
(defun web-mode-toggle-comments ()
|
||
"Toggle comments visbility."
|
||
(interactive)
|
||
(save-excursion
|
||
(if web-mode-comments-invisible
|
||
(remove-overlays))
|
||
(setq web-mode-comments-invisible (null web-mode-comments-invisible))
|
||
(let ((continue t)
|
||
(pos (point-min))
|
||
(visibility web-mode-comments-invisible)
|
||
overlay end)
|
||
(while continue
|
||
(setq pos (next-single-property-change pos 'font-lock-face))
|
||
(if (null pos)
|
||
(setq continue nil)
|
||
(when (eq (get-text-property pos 'font-lock-face) 'web-mode-comment-face)
|
||
(setq end (next-single-property-change pos 'font-lock-face))
|
||
(put-text-property pos end 'invisible visibility)
|
||
(when visibility
|
||
(setq overlay (make-overlay pos end)))
|
||
(goto-char pos)
|
||
)
|
||
)
|
||
)
|
||
) ;let
|
||
))
|
||
|
||
(defun web-mode-comment-or-uncomment-region (beg end &optional arg)
|
||
(interactive)
|
||
(save-excursion
|
||
(push-mark end)
|
||
(goto-char beg)
|
||
(setq mark-active t)
|
||
(web-mode-comment-or-uncomment)
|
||
(pop-mark)))
|
||
|
||
(defun web-mode-comment-or-uncomment ()
|
||
"Comment or uncomment line(s), block or region at POS."
|
||
(interactive)
|
||
;; TODO : if mark is at eol, mark--
|
||
(if (and (not mark-active) (looking-at-p "[[:space:]]*$"))
|
||
(web-mode-comment-insert)
|
||
(when (and (use-region-p) (eq (point) (region-end)))
|
||
(if (bolp) (backward-char))
|
||
(exchange-point-and-mark))
|
||
(skip-chars-forward "[:space:]" (line-end-position))
|
||
(cond
|
||
((or (eq (get-text-property (point) 'tag-type) 'comment)
|
||
(eq (get-text-property (point) 'block-token) 'comment)
|
||
(eq (get-text-property (point) 'part-token) 'comment))
|
||
(web-mode-uncomment (point)))
|
||
(t
|
||
(web-mode-comment (point)))
|
||
)
|
||
) ;if
|
||
)
|
||
|
||
(defun web-mode-comment-insert ()
|
||
(cond
|
||
((get-text-property (point) 'block-side)
|
||
(insert "/* */")
|
||
(search-backward " */"))
|
||
((get-text-property (point) 'part-side)
|
||
(insert "/* */")
|
||
(search-backward " */"))
|
||
(t
|
||
(insert "<!-- -->")
|
||
(search-backward " -->"))
|
||
)
|
||
)
|
||
|
||
(defun web-mode-comment (pos)
|
||
(let (ctx language sel beg end tmp block-side single-line-block pos-after content)
|
||
|
||
(setq pos-after pos)
|
||
|
||
(setq block-side (get-text-property pos 'block-side))
|
||
(setq single-line-block (web-mode-is-single-line-block pos))
|
||
|
||
(cond
|
||
|
||
((and block-side (string= web-mode-engine "erb"))
|
||
(web-mode-comment-erb-block pos)
|
||
)
|
||
|
||
((and single-line-block block-side
|
||
(intern-soft (concat "web-mode-comment-" web-mode-engine "-block")))
|
||
(funcall (intern (concat "web-mode-comment-" web-mode-engine "-block")) pos)
|
||
)
|
||
|
||
(t
|
||
(setq ctx (web-mode-point-context
|
||
(if mark-active (region-beginning) (line-beginning-position))))
|
||
(setq language (plist-get ctx :language))
|
||
(cond
|
||
(mark-active
|
||
)
|
||
((and (member language '("html" "xml"))
|
||
(get-text-property (progn (back-to-indentation) (point)) 'tag-beg))
|
||
(web-mode-element-select))
|
||
(t
|
||
(end-of-line)
|
||
(set-mark (line-beginning-position)))
|
||
) ;cond
|
||
|
||
(setq beg (region-beginning)
|
||
end (region-end))
|
||
|
||
(when (> (point) (mark))
|
||
(exchange-point-and-mark))
|
||
|
||
(if (and (eq (char-before end) ?\n)
|
||
(not (eq (char-after end) ?\n)))
|
||
(setq end (1- end)))
|
||
|
||
(setq sel (buffer-substring-no-properties beg end))
|
||
|
||
(cond
|
||
|
||
((member language '("html" "xml"))
|
||
(cond
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "django"))
|
||
(setq content (concat "{# " sel " #}")))
|
||
((and (= web-mode-comment-style 2) (member web-mode-engine '("ejs" "erb")))
|
||
(setq content (concat "<%# " sel " %>")))
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "aspx"))
|
||
(setq content (concat "<%-- " sel " --%>")))
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "smarty"))
|
||
(setq content (concat "{* " sel " *}")))
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "blade"))
|
||
(setq content (concat "{{-- " sel " --}}")))
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "ctemplate"))
|
||
(setq content (concat "{{!-- " sel " --}}")))
|
||
((and (= web-mode-comment-style 2) (string= web-mode-engine "razor"))
|
||
(setq content (concat "@* " sel " *@")))
|
||
(t
|
||
(setq content (concat "<!-- " sel " -->"))
|
||
(when (< (length sel) 1)
|
||
(search-backward " -->")
|
||
(setq pos-after nil))
|
||
))
|
||
) ;case html
|
||
|
||
((member language '("php" "javascript" "java" "jsx"))
|
||
(let (alt)
|
||
(cond
|
||
((get-text-property pos 'jsx-depth)
|
||
(setq content (concat "{/* " sel " */}"))
|
||
;;(message "%S" pos)
|
||
)
|
||
((and (setq alt (cdr (assoc language web-mode-comment-formats)))
|
||
(string= alt "//"))
|
||
(setq content (replace-regexp-in-string "^[ ]*" alt sel)))
|
||
(t
|
||
(setq content (concat "/* " sel " */")))
|
||
) ;cond
|
||
)
|
||
)
|
||
|
||
((member language '("erb"))
|
||
(setq content (replace-regexp-in-string "^[ ]*" "#" sel)))
|
||
|
||
((member language '("asp"))
|
||
(setq content (replace-regexp-in-string "^[ ]*" "''" sel)))
|
||
|
||
(t
|
||
(setq content (concat "/* " sel " */")))
|
||
|
||
) ;cond
|
||
|
||
(when content
|
||
(delete-region beg end)
|
||
(deactivate-mark)
|
||
(let (beg end)
|
||
(setq beg (point-at-bol))
|
||
(insert content)
|
||
(setq end (point-at-eol))
|
||
(indent-region beg end)
|
||
)
|
||
) ;when
|
||
|
||
) ;t
|
||
) ;cond
|
||
|
||
(when pos-after (goto-char pos-after))
|
||
|
||
))
|
||
|
||
(defun web-mode-comment-ejs-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "//" (+ beg 2))))
|
||
|
||
(defun web-mode-comment-erb-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "#" (+ beg 2))))
|
||
|
||
(defun web-mode-comment-django-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "#" end)
|
||
(web-mode-insert-text-at-pos "#" (1+ beg))))
|
||
|
||
(defun web-mode-comment-dust-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "!" end)
|
||
(web-mode-insert-text-at-pos "!" (1+ beg))))
|
||
|
||
(defun web-mode-comment-aspx-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "#" end)
|
||
(web-mode-insert-text-at-pos "#" (1+ beg))))
|
||
|
||
(defun web-mode-comment-jsp-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "--" (+ beg 2))))
|
||
|
||
(defun web-mode-comment-go-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "/" (+ beg 2))))
|
||
|
||
(defun web-mode-comment-php-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-insert-text-at-pos "*/" (- end 1))
|
||
(web-mode-insert-text-at-pos "/*" (+ beg (if (web-mode-looking-at "<\\?php" beg) 5 3)))))
|
||
|
||
(defun web-mode-comment-boundaries (&optional pos)
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let ((beg pos) (end pos) prop)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(setq prop
|
||
(cond
|
||
((eq (get-text-property pos 'block-token) 'comment) 'block-token)
|
||
((eq (get-text-property pos 'tag-type) 'comment) 'tag-type)
|
||
((eq (get-text-property pos 'part-token) 'comment) 'part-token)
|
||
(t nil)
|
||
))
|
||
(if (null prop)
|
||
(setq beg nil
|
||
end nil)
|
||
(when (and (not (bobp))
|
||
(eq (get-text-property pos prop) (get-text-property (1- pos) prop)))
|
||
(setq beg (or (previous-single-property-change pos prop) (point-min))))
|
||
(when (and (not (eobp))
|
||
(eq (get-text-property pos prop) (get-text-property (1+ pos) prop)))
|
||
(setq end (or (next-single-property-change pos prop) (point-max)))))
|
||
(when (and beg (string= (buffer-substring-no-properties beg (+ beg 2)) "//"))
|
||
(goto-char end)
|
||
(while (and (looking-at-p "\n[ ]*//")
|
||
(not (eobp)))
|
||
(search-forward "//")
|
||
(backward-char 2)
|
||
;;(message "%S" (point))
|
||
(setq end (next-single-property-change (point) prop))
|
||
(goto-char end)
|
||
;;(message "%S" (point))
|
||
) ;while
|
||
) ;when
|
||
(when end (setq end (1- end)))
|
||
) ; save-excursion
|
||
;;(message "beg=%S end=%S" beg end)
|
||
(if (and beg end) (cons beg end) nil)
|
||
))
|
||
|
||
(defun web-mode-uncomment (pos)
|
||
(let ((beg pos) (end pos) (sub2 "") comment boundaries)
|
||
(save-excursion
|
||
(cond
|
||
((and (get-text-property pos 'block-side)
|
||
(intern-soft (concat "web-mode-uncomment-" web-mode-engine "-block")))
|
||
(funcall (intern (concat "web-mode-uncomment-" web-mode-engine "-block")) pos))
|
||
((and (setq boundaries (web-mode-comment-boundaries pos))
|
||
(setq beg (car boundaries))
|
||
(setq end (1+ (cdr boundaries)))
|
||
(> (- end beg) 4))
|
||
;;(message "beg(%S) end(%S)" beg end)
|
||
(setq comment (buffer-substring-no-properties beg end))
|
||
(setq sub2 (substring comment 0 2))
|
||
(cond
|
||
((member sub2 '("<!" "<%"))
|
||
(setq comment (replace-regexp-in-string "\\(^<[!%]--[ ]?\\|[ ]?--[%]?>$\\)" "" comment)))
|
||
((string= sub2 "{#")
|
||
(setq comment (replace-regexp-in-string "\\(^{#[ ]?\\|[ ]?#}$\\)" "" comment)))
|
||
((string= sub2 "{/") ;;jsx comments
|
||
(setq comment (replace-regexp-in-string "\\(^{/\\*[ ]?\\|[ ]?\\*/}$\\)" "" comment)))
|
||
((string= sub2 "/*")
|
||
(setq comment (replace-regexp-in-string "\\(^/\\*[ ]?\\|[ ]?\\*/$\\)" "" comment)))
|
||
((string= sub2 "//")
|
||
(setq comment (replace-regexp-in-string "\\(//\\)" "" comment)))
|
||
) ;cond
|
||
(delete-region beg end)
|
||
(web-mode-insert-and-indent comment)
|
||
(goto-char beg)
|
||
)
|
||
) ;cond
|
||
(indent-according-to-mode))))
|
||
|
||
(defun web-mode-uncomment-erb-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(if (string-match-p "<[%[:alpha:]]" (buffer-substring-no-properties (+ beg 2) (- end 2)))
|
||
(progn
|
||
(web-mode-remove-text-at-pos 2 (1- end))
|
||
(web-mode-remove-text-at-pos 3 beg))
|
||
(web-mode-remove-text-at-pos 1 (+ beg 2))
|
||
) ;if
|
||
)
|
||
)
|
||
|
||
(defun web-mode-uncomment-ejs-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 1 (+ beg 2))))
|
||
|
||
(defun web-mode-uncomment-django-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 2 (1- end))
|
||
(web-mode-remove-text-at-pos 2 beg)))
|
||
|
||
(defun web-mode-uncomment-ctemplate-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 5 (- end 4))
|
||
(web-mode-remove-text-at-pos 5 beg)))
|
||
|
||
(defun web-mode-uncomment-dust-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 1 (1- end))
|
||
(web-mode-remove-text-at-pos 1 (1+ beg))))
|
||
|
||
(defun web-mode-uncomment-aspx-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 1 (1- end))
|
||
(web-mode-remove-text-at-pos 1 (1+ beg))))
|
||
|
||
(defun web-mode-uncomment-jsp-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 2 (+ beg 2))))
|
||
|
||
(defun web-mode-uncomment-go-block (pos)
|
||
(let (beg end)
|
||
(setq beg (web-mode-block-beginning-position pos)
|
||
end (web-mode-block-end-position pos))
|
||
(web-mode-remove-text-at-pos 1 (+ beg 2))))
|
||
|
||
(defun web-mode-snippet-names ()
|
||
(let (codes)
|
||
(dolist (snippet web-mode-snippets)
|
||
(add-to-list 'codes (car snippet) t))
|
||
codes))
|
||
|
||
(defun web-mode-snippet-insert (code)
|
||
"Insert a snippet."
|
||
(interactive
|
||
(list (completing-read "Snippet: " (web-mode-snippet-names))))
|
||
(let (beg
|
||
(continue t)
|
||
(counter 0)
|
||
end
|
||
sel
|
||
snippet
|
||
(l (length web-mode-snippets))
|
||
pos)
|
||
(when mark-active
|
||
(setq sel (web-mode-trim (buffer-substring-no-properties
|
||
(region-beginning) (region-end))))
|
||
(delete-region (region-beginning) (region-end)))
|
||
(while (and continue (< counter l))
|
||
(setq snippet (nth counter web-mode-snippets))
|
||
(when (string= (car snippet) code)
|
||
(setq continue nil))
|
||
(setq counter (1+ counter)))
|
||
(when snippet
|
||
(setq snippet (cdr snippet))
|
||
(setq beg (point-at-bol))
|
||
(insert snippet)
|
||
(setq pos (point)
|
||
end (point))
|
||
(when (string-match-p "|" snippet)
|
||
(search-backward "|")
|
||
(delete-char 1)
|
||
(setq pos (point)
|
||
end (1- end)))
|
||
(when sel
|
||
(insert sel)
|
||
(setq pos (point)
|
||
end (+ end (length sel))))
|
||
(goto-char end)
|
||
(setq end (point-at-eol))
|
||
(unless sel (goto-char pos))
|
||
(indent-region beg end))
|
||
))
|
||
|
||
(defun web-mode-looking-at (regexp pos)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(looking-at regexp)))
|
||
|
||
(defun web-mode-looking-at-p (regexp pos)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(looking-at-p regexp)))
|
||
|
||
(defun web-mode-looking-back (regexp pos &optional limit greedy)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(if limit
|
||
(looking-back regexp limit greedy)
|
||
(looking-back regexp))))
|
||
|
||
(defun web-mode-insert-text-at-pos (text pos)
|
||
(let ((mem web-mode-enable-auto-pairing))
|
||
(setq web-mode-enable-auto-pairing nil)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(insert text)
|
||
(setq web-mode-enable-auto-pairing mem)
|
||
)))
|
||
|
||
(defun web-mode-remove-text-at-pos (n &optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(delete-region pos (+ pos n)))
|
||
|
||
(defun web-mode-insert-and-indent (text)
|
||
(let (beg end)
|
||
(setq beg (point-at-bol))
|
||
(insert text)
|
||
(setq end (point-at-eol))
|
||
(indent-region beg end)
|
||
))
|
||
|
||
(defun web-mode-indentation-at-pos (pos)
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(current-indentation)))
|
||
|
||
(defun web-mode-navigate (&optional pos)
|
||
"Move point to the matching opening/closing tag/block."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let (init)
|
||
(goto-char pos)
|
||
(setq init (point))
|
||
(when (> (current-indentation) (current-column))
|
||
(back-to-indentation))
|
||
(setq pos (point))
|
||
(cond
|
||
((and (get-text-property pos 'block-side)
|
||
(web-mode-block-beginning)
|
||
(web-mode-block-controls-get (point)))
|
||
(web-mode-block-match))
|
||
((member (get-text-property pos 'tag-type) '(start end))
|
||
(web-mode-tag-beginning)
|
||
(web-mode-tag-match))
|
||
(t
|
||
(goto-char init))
|
||
)
|
||
))
|
||
|
||
(defun web-mode-block-match (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (pos-ori controls control (counter 1) type (continue t) pair)
|
||
(setq pos-ori pos)
|
||
(goto-char pos)
|
||
(setq controls (web-mode-block-controls-get pos))
|
||
;; (message "controls=%S" controls)
|
||
(cond
|
||
(controls
|
||
(setq pair (car controls))
|
||
(setq control (cdr pair))
|
||
(setq type (car pair))
|
||
(when (eq type 'inside) (setq type 'close))
|
||
(while continue
|
||
(cond
|
||
((and (> pos-ori 1) (bobp))
|
||
(setq continue nil))
|
||
((or (and (eq type 'open) (not (web-mode-block-next)))
|
||
(and (eq type 'close) (not (web-mode-block-previous))))
|
||
(setq continue nil)
|
||
)
|
||
((null (setq controls (web-mode-block-controls-get (point))))
|
||
)
|
||
(t
|
||
;; TODO : est il nécessaire de faire un reverse sur controls si on doit matcher backward
|
||
(dolist (pair controls)
|
||
(cond
|
||
((not (string= (cdr pair) control))
|
||
)
|
||
((eq (car pair) 'inside)
|
||
)
|
||
((eq (car pair) type)
|
||
(setq counter (1+ counter)))
|
||
(t
|
||
(setq counter (1- counter)))
|
||
)
|
||
) ;dolist
|
||
(when (= counter 0)
|
||
(setq continue nil))
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
(if (= counter 0) (point) nil)
|
||
) ;controls
|
||
(t
|
||
(goto-char pos-ori)
|
||
nil
|
||
) ;controls = nul
|
||
) ;conf
|
||
))
|
||
|
||
(defun web-mode-tag-match (&optional pos)
|
||
"Move point to the matching opening/closing tag."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let (regexp)
|
||
(setq regexp (concat "</?" (get-text-property pos 'tag-name)))
|
||
(when (member (get-text-property pos 'tag-type) '(start end))
|
||
(web-mode-tag-beginning)
|
||
(setq pos (point)))
|
||
(if (eq (get-text-property pos 'tag-type) 'end)
|
||
(web-mode-tag-fetch-opening regexp pos)
|
||
(web-mode-tag-fetch-closing regexp pos))
|
||
t))
|
||
|
||
(defun web-mode-tag-fetch-opening (regexp pos)
|
||
(let ((counter 1) (n 0) (type nil))
|
||
(goto-char pos)
|
||
(while (and (> counter 0) (re-search-backward regexp nil t))
|
||
(when (and (get-text-property (point) 'tag-beg)
|
||
(member (get-text-property (point) 'tag-type) '(start end)))
|
||
(setq n (1+ n))
|
||
(cond
|
||
((eq (get-text-property (point) 'tag-type) 'end)
|
||
(setq counter (1+ counter)))
|
||
(t
|
||
(setq counter (1- counter))
|
||
)
|
||
)
|
||
)
|
||
)
|
||
(if (= n 0) (goto-char pos))
|
||
))
|
||
|
||
(defun web-mode-tag-fetch-closing (regexp pos)
|
||
(let ((counter 1) (n 0))
|
||
(goto-char pos)
|
||
(web-mode-tag-end)
|
||
(while (and (> counter 0) (re-search-forward regexp nil t))
|
||
(when (get-text-property (match-beginning 0) 'tag-beg)
|
||
(setq n (1+ n))
|
||
(if (eq (get-text-property (point) 'tag-type) 'end)
|
||
(setq counter (1- counter))
|
||
(setq counter (1+ counter))))
|
||
)
|
||
(if (> n 0)
|
||
(web-mode-tag-beginning)
|
||
(goto-char pos))
|
||
))
|
||
|
||
(defun web-mode-element-tag-name (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(if (and (web-mode-tag-beginning)
|
||
(looking-at "<\\(/?[[:alpha:]][[:alnum:]:-]*\\)"))
|
||
(match-string-no-properties 1)
|
||
nil)))
|
||
|
||
(defun web-mode-element-close ()
|
||
"Close html element."
|
||
(interactive)
|
||
(let (jump epp ins tag)
|
||
|
||
(if (and (eq (char-before) ?\>)
|
||
(web-mode-element-is-void (get-text-property (1- (point)) 'tag-name)))
|
||
(unless (eq (char-before (1- (point))) ?\/)
|
||
(backward-char)
|
||
(insert "/")
|
||
(forward-char))
|
||
(setq epp (web-mode-element-parent-position)))
|
||
|
||
;;(message "epp=%S" epp)
|
||
(when epp
|
||
(setq tag (get-text-property epp 'tag-name))
|
||
(setq tag (web-mode-element-tag-name epp))
|
||
;;(message "tag=%S %c" tag (char-before))
|
||
(cond
|
||
((or (null tag) (web-mode-element-is-void tag))
|
||
(setq epp nil))
|
||
((looking-back "</")
|
||
(setq ins tag))
|
||
((looking-back "<")
|
||
(setq ins (concat "/" tag)))
|
||
(t
|
||
;; auto-close-style = 2
|
||
;; (message "%S %c" (point) (char-after))
|
||
(when (and (looking-at-p "[[:alpha:]]") (> (length tag) 4))
|
||
(dolist (elt '("div" "span" "strong" "pre" "li"))
|
||
(when (and (string-match-p (concat "^" elt) tag) (not (string= tag elt)))
|
||
(setq tag elt)
|
||
(put-text-property epp (point) 'tag-name tag))
|
||
)
|
||
) ;when
|
||
(if (web-mode-element-is-void (get-text-property (point) 'tag-name))
|
||
(setq ins nil
|
||
epp nil)
|
||
(setq ins (concat "</" tag)))
|
||
)
|
||
) ;cond
|
||
(when ins
|
||
(unless (looking-at-p "[ ]*>")
|
||
(setq ins (concat ins ">")))
|
||
(insert ins)
|
||
(save-excursion
|
||
(search-backward "<")
|
||
(setq jump (and (eq (char-before) ?\>)
|
||
(string= (get-text-property (1- (point)) 'tag-name) tag)))
|
||
(if jump (setq jump (point)))
|
||
) ;save-excursion
|
||
(if jump (goto-char jump))
|
||
) ;when not ins
|
||
) ;when epp
|
||
epp))
|
||
|
||
(defun web-mode-detect-content-type ()
|
||
(cond
|
||
((and (string= web-mode-engine "none")
|
||
(< (point) 16)
|
||
(eq (char-after 1) ?\#)
|
||
(string-match-p "php" (buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
(web-mode-set-engine "php"))
|
||
((and (string= web-mode-content-type "javascript")
|
||
(< (point) web-mode-chunk-length)
|
||
(eq (char-after (point-min)) ?\/)
|
||
(string-match-p "@jsx" (buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
(web-mode-set-content-type "jsx"))
|
||
))
|
||
|
||
(defun web-mode-on-after-change (beg end len)
|
||
;; (message "after-change: pos=%d, beg=%d, end=%d, len=%d, ocmd=%S, cmd=%S" (point) beg end len this-original-command this-command)
|
||
;; (backtrace)
|
||
;; (message "this-command=%S" this-command)
|
||
(when (eq this-original-command 'yank)
|
||
(setq web-mode-inhibit-fontification t))
|
||
(when (or (null web-mode-change-beg) (< beg web-mode-change-beg))
|
||
(setq web-mode-change-beg beg))
|
||
(when (or (null web-mode-change-end) (> end web-mode-change-end))
|
||
(setq web-mode-change-end end))
|
||
)
|
||
|
||
(defun web-mode-complete ()
|
||
"Autocomple at point."
|
||
(interactive)
|
||
(let ((pos (point))
|
||
(char (char-before))
|
||
(chunk (buffer-substring-no-properties (- (point) 2) (point)))
|
||
(auto-closed nil)
|
||
(auto-expanded nil)
|
||
(auto-paired nil)
|
||
(auto-quoted nil)
|
||
expanders)
|
||
|
||
;;-- auto-closing
|
||
(when (and web-mode-enable-auto-closing
|
||
(>= pos 4)
|
||
(or (string= "</" chunk)
|
||
;;(progn (message "%c" char) nil)
|
||
(and (= web-mode-auto-close-style 2)
|
||
(or (string= web-mode-content-type "jsx")
|
||
(not (get-text-property pos 'part-side)))
|
||
(string-match-p "[[:alnum:]'\"]>" chunk)))
|
||
(not (get-text-property (- pos 2) 'block-side))
|
||
(web-mode-element-close))
|
||
(setq auto-closed t))
|
||
|
||
;;-- auto-pairing
|
||
(when (and web-mode-enable-auto-pairing
|
||
(>= pos 4)
|
||
(not auto-closed))
|
||
(let ((i 0) expr after pos-end (l (length web-mode-auto-pairs)))
|
||
(setq pos-end (if (> (+ pos 32) (line-end-position))
|
||
(line-end-position)
|
||
(+ pos 10)))
|
||
(setq chunk (buffer-substring-no-properties (- pos 3) pos)
|
||
after (buffer-substring-no-properties pos pos-end))
|
||
(while (and (< i l) (not auto-paired))
|
||
(setq expr (elt web-mode-auto-pairs i)
|
||
i (1+ i))
|
||
;;(message "chunk=%S expr=%S after=%S" chunk expr after)
|
||
(when (and (string= (car expr) chunk)
|
||
(not (string-match-p (regexp-quote (cdr expr)) after)))
|
||
(setq auto-paired t)
|
||
(insert (cdr expr))
|
||
(if (string-match-p "|" (cdr expr))
|
||
(progn
|
||
(search-backward "|")
|
||
(delete-char 1))
|
||
(goto-char pos))
|
||
) ;when
|
||
) ;while
|
||
) ;let
|
||
)
|
||
|
||
;;-- auto-expanding
|
||
(when (and web-mode-enable-auto-expanding
|
||
(not auto-closed)
|
||
(not auto-paired)
|
||
(eq char ?\/)
|
||
(not (get-text-property (1- pos) 'tag-type))
|
||
(not (get-text-property (1- pos) 'part-side))
|
||
(not (get-text-property (1- pos) 'block-side))
|
||
(looking-back "\\(^\\|[[:punct:][:space:]>]\\)./"))
|
||
(setq expanders (append web-mode-expanders web-mode-extra-expanders))
|
||
(let ((i 0) pair (l (length expanders)))
|
||
(setq chunk (buffer-substring-no-properties (- pos 2) pos))
|
||
;;(message "%S" chunk)
|
||
(while (and (< i l) (not auto-expanded))
|
||
(setq pair (elt expanders i)
|
||
i (1+ i))
|
||
(when (string= (car pair) chunk)
|
||
(setq auto-expanded t)
|
||
(delete-char -2)
|
||
(insert (cdr pair))
|
||
(when (string-match-p "|" (cdr pair))
|
||
(search-backward "|")
|
||
(delete-char 1))
|
||
) ;when
|
||
) ;while
|
||
) ; let
|
||
)
|
||
|
||
;;-- auto-quoting
|
||
(when (and web-mode-enable-auto-quoting
|
||
(>= pos 4)
|
||
(not (get-text-property pos 'block-side))
|
||
(not auto-closed)
|
||
(not auto-paired)
|
||
(not auto-expanded)
|
||
(get-text-property (- pos 2) 'tag-attr)
|
||
)
|
||
(cond
|
||
((and (eq char ?\=)
|
||
(not (looking-at-p "[ ]*[\"']")))
|
||
(insert "\"\"")
|
||
(backward-char)
|
||
(setq auto-quoted t))
|
||
((and (eq char ?\")
|
||
(looking-back "=[ ]*\"")
|
||
(not (looking-at-p "[ ]*[\"]")))
|
||
(insert "\"")
|
||
(backward-char)
|
||
(setq auto-quoted t))
|
||
((and (eq char ?\')
|
||
(looking-back "=[ ]*'")
|
||
(not (looking-at-p "[ ]*[']")))
|
||
(insert "'")
|
||
(backward-char)
|
||
(setq auto-quoted t))
|
||
((and (eq char ?\")
|
||
(eq (char-after) ?\"))
|
||
(delete-char 1)
|
||
(cond
|
||
((looking-back "=\"\"")
|
||
(backward-char))
|
||
((eq (char-after) ?\s)
|
||
(forward-char))
|
||
(t
|
||
(insert " "))
|
||
) ;cond
|
||
)
|
||
) ;cond
|
||
) ;when
|
||
|
||
;;--
|
||
(cond
|
||
((or auto-closed auto-paired auto-expanded auto-quoted)
|
||
(when (and web-mode-change-end
|
||
(>= (line-end-position) web-mode-change-end))
|
||
(setq web-mode-change-end (line-end-position)))
|
||
(list :auto-closed auto-closed
|
||
:auto-paired auto-paired
|
||
:auto-expanded auto-expanded
|
||
:auto-quoted auto-quoted))
|
||
(t
|
||
nil)
|
||
)
|
||
|
||
))
|
||
|
||
(defun web-mode-on-post-command ()
|
||
(let (ctx n char)
|
||
|
||
;;(message "this-command=%S (%S)" this-command web-mode-expand-previous-state)
|
||
;;(message "%S: %S %S" this-command web-mode-change-beg web-mode-change-end)
|
||
|
||
(when (and web-mode-expand-previous-state
|
||
(not (member this-command '(web-mode-mark-and-expand
|
||
er/expand-region
|
||
mc/mark-next-like-this))))
|
||
(when (eq this-command 'keyboard-quit)
|
||
(goto-char web-mode-expand-initial-pos))
|
||
(deactivate-mark)
|
||
(when web-mode-expand-initial-scroll
|
||
(set-window-start (selected-window) web-mode-expand-initial-scroll)
|
||
)
|
||
(setq web-mode-expand-previous-state nil
|
||
web-mode-expand-initial-pos nil
|
||
web-mode-expand-initial-scroll nil))
|
||
|
||
(when (member this-command '(yank))
|
||
(let ((beg web-mode-change-beg) (end web-mode-change-end))
|
||
(setq web-mode-inhibit-fontification nil)
|
||
(when (and web-mode-change-beg web-mode-change-end)
|
||
(save-excursion
|
||
(font-lock-fontify-region web-mode-change-beg web-mode-change-end))
|
||
(when web-mode-enable-auto-indentation
|
||
(indent-region beg end))
|
||
) ; and
|
||
)
|
||
)
|
||
|
||
(when (< (point) 16)
|
||
(web-mode-detect-content-type))
|
||
|
||
(when (and web-mode-enable-engine-detection
|
||
(or (null web-mode-engine) (string= web-mode-engine "none"))
|
||
(< (point) web-mode-chunk-length)
|
||
(web-mode-detect-engine))
|
||
(web-mode-on-engine-setted)
|
||
(web-mode-buffer-highlight))
|
||
|
||
(when (> (point) 1)
|
||
(setq char (char-before)))
|
||
|
||
(cond
|
||
|
||
((null char)
|
||
)
|
||
|
||
((and (>= (point) 3)
|
||
(member this-command '(self-insert-command))
|
||
(not (member (get-text-property (point) 'part-token) '(comment string))))
|
||
(setq ctx (web-mode-complete)))
|
||
|
||
((and web-mode-enable-auto-opening
|
||
(member this-command '(newline electric-newline-and-maybe-indent))
|
||
(or (and (not (eobp))
|
||
(eq (char-after) ?\<)
|
||
(eq (get-text-property (point) 'tag-type) 'end)
|
||
(looking-back ">\n[ \t]*")
|
||
(setq n (length (match-string-no-properties 0)))
|
||
(eq (get-text-property (- (point) n) 'tag-type) 'start)
|
||
(string= (get-text-property (- (point) n) 'tag-name)
|
||
(get-text-property (point) 'tag-name))
|
||
)
|
||
(and (get-text-property (1- (point)) 'block-side)
|
||
(string= web-mode-engine "php")
|
||
(looking-back "<\\?php[ ]*\n")
|
||
(looking-at-p "[ ]*\\?>"))))
|
||
(newline-and-indent)
|
||
(forward-line -1)
|
||
(indent-according-to-mode)
|
||
)
|
||
) ;cond
|
||
|
||
(when (and web-mode-enable-auto-indentation
|
||
(member this-command '(self-insert-command))
|
||
(or (and ctx
|
||
(or (plist-get ctx :auto-closed)
|
||
(plist-get ctx :auto-expanded)))
|
||
(and (> (point) (point-min))
|
||
(get-text-property (1- (point)) 'tag-end)
|
||
(get-text-property (line-beginning-position) 'tag-beg))))
|
||
(indent-according-to-mode)
|
||
(when (and web-mode-change-end (> web-mode-change-end (point-max)))
|
||
(message "post-command: enlarge web-mode-change-end")
|
||
(setq web-mode-change-end (point-max))
|
||
)
|
||
) ; when auto-indent
|
||
|
||
(when web-mode-enable-current-element-highlight
|
||
(web-mode-highlight-current-element))
|
||
|
||
(when (and web-mode-enable-current-column-highlight
|
||
(not (web-mode-buffer-narrowed-p)))
|
||
(web-mode-column-show))
|
||
|
||
;;(message "post-command (%S) (%S)" web-mode-change-end web-mode-change-end)
|
||
|
||
))
|
||
|
||
(defun web-mode-dom-apostrophes-replace ()
|
||
"Replace char(') with char(’) in the html contents of the buffer."
|
||
(interactive)
|
||
(save-excursion
|
||
(let ((min (point-min)) (max (point-max)))
|
||
(when mark-active
|
||
(setq min (region-beginning)
|
||
max (region-end))
|
||
(deactivate-mark))
|
||
(goto-char min)
|
||
(while (web-mode-content-rsf "\\([[:alpha:]]\\)'\\([[:alpha:]]\\)" max)
|
||
(replace-match "\\1’\\2"))
|
||
)))
|
||
|
||
(defun web-mode-dom-entities-encode ()
|
||
(save-excursion
|
||
(let (regexp ms elt (min (point-min)) (max (point-max)))
|
||
(when mark-active
|
||
(setq min (region-beginning)
|
||
max (region-end))
|
||
(deactivate-mark))
|
||
(goto-char min)
|
||
(setq regexp "[")
|
||
(dolist (pair web-mode-html-entities)
|
||
(setq regexp (concat regexp (char-to-string (cdr pair))))
|
||
)
|
||
(setq regexp (concat regexp "]"))
|
||
(while (web-mode-content-rsf regexp max)
|
||
(setq elt (match-string-no-properties 0))
|
||
(setq elt (aref elt 0))
|
||
(setq elt (car (rassoc elt web-mode-html-entities)))
|
||
(replace-match (concat "&" elt ";"))
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-dom-entities-replace ()
|
||
"Replace html entities (e.g. é é or é become é)"
|
||
(interactive)
|
||
(save-excursion
|
||
(let (ms pair elt (min (point-min)) (max (point-max)))
|
||
(when mark-active
|
||
(setq min (region-beginning)
|
||
max (region-end))
|
||
(deactivate-mark))
|
||
(goto-char min)
|
||
(while (web-mode-content-rsf "&\\([#]?[[:alnum:]]\\{2,8\\}\\);" max)
|
||
(setq elt nil)
|
||
(setq ms (match-string-no-properties 1))
|
||
(cond
|
||
((not (eq (aref ms 0) ?\#))
|
||
(and (setq pair (assoc ms web-mode-html-entities))
|
||
(setq elt (cdr pair))
|
||
(setq elt (char-to-string elt))))
|
||
((eq (aref ms 1) ?x)
|
||
(setq elt (substring ms 2))
|
||
(setq elt (downcase elt))
|
||
(setq elt (string-to-number elt 16))
|
||
(setq elt (char-to-string elt)))
|
||
(t
|
||
(setq elt (substring ms 1))
|
||
(setq elt (char-to-string (string-to-number elt))))
|
||
) ;cond
|
||
(when elt (replace-match elt))
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-dom-xml-replace ()
|
||
"Replace &, > and < in html content."
|
||
(interactive)
|
||
(save-excursion
|
||
(let (expr (min (point-min)) (max (point-max)))
|
||
(when mark-active
|
||
(setq min (region-beginning)
|
||
max (region-end))
|
||
(deactivate-mark))
|
||
(goto-char min)
|
||
(while (web-mode-content-rsf "[&<>]" max)
|
||
(replace-match (cdr (assq (char-before) web-mode-xml-chars)) t t))
|
||
)))
|
||
|
||
(defun web-mode-dom-quotes-replace ()
|
||
"Replace dumb quotes."
|
||
(interactive)
|
||
(save-excursion
|
||
(let (expr (min (point-min)) (max (point-max)))
|
||
(when mark-active
|
||
(setq min (region-beginning)
|
||
max (region-end))
|
||
(deactivate-mark))
|
||
(goto-char min)
|
||
(setq expr (concat (car web-mode-smart-quotes) "\\2" (cdr web-mode-smart-quotes)))
|
||
(while (web-mode-content-rsf "\\(\"\\)\\(.\\{1,200\\}\\)\\(\"\\)" max)
|
||
(replace-match expr)
|
||
) ;while
|
||
)))
|
||
|
||
(defun web-mode-dom-xpath (&optional pos)
|
||
"Display html path."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(let (path)
|
||
(while (web-mode-element-parent)
|
||
(setq path (cons (get-text-property (point) 'tag-name) path))
|
||
)
|
||
(message "/%s" (mapconcat 'identity path "/"))
|
||
)))
|
||
|
||
(defun web-mode-block-ends-with (regexp &optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(save-match-data
|
||
(if (stringp regexp)
|
||
(and (web-mode-block-end)
|
||
(progn (backward-char) t)
|
||
(web-mode-block-skip-blank-backward)
|
||
(progn (forward-char) t)
|
||
(looking-back regexp))
|
||
(let ((pair regexp)
|
||
(block-beg (web-mode-block-beginning-position pos))
|
||
(block-end (web-mode-block-end-position pos)))
|
||
(and (web-mode-block-end)
|
||
(web-mode-block-sb (car pair) block-beg)
|
||
(not (web-mode-sf (cdr pair) block-end)))
|
||
) ;let
|
||
) ;if
|
||
)))
|
||
|
||
(defun web-mode-block-token-starts-with (regexp &optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(and (goto-char pos)
|
||
(web-mode-block-token-beginning)
|
||
(skip-chars-forward "[\"']")
|
||
(looking-at regexp))
|
||
))
|
||
|
||
(defun web-mode-block-starts-with (regexp &optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(and (web-mode-block-beginning)
|
||
(web-mode-block-skip-blank-forward)
|
||
(looking-at regexp))
|
||
))
|
||
|
||
(defun web-mode-block-skip-blank-backward (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let ((continue t))
|
||
(goto-char pos)
|
||
(while continue
|
||
(if (and (get-text-property (point) 'block-side)
|
||
(not (bobp))
|
||
(or (member (char-after) '(?\s ?\n))
|
||
(member (get-text-property (point) 'block-token)
|
||
'(delimiter-beg delimiter-end comment))))
|
||
(backward-char)
|
||
(setq continue nil))
|
||
) ;while
|
||
(point)))
|
||
|
||
(defun web-mode-block-skip-blank-forward (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let ((continue t))
|
||
(goto-char pos)
|
||
(while continue
|
||
(if (and (get-text-property (point) 'block-side)
|
||
(or (member (char-after) '(?\s ?\n ?\t))
|
||
(member (get-text-property (point) 'block-token)
|
||
'(delimiter-beg delimiter-end comment))))
|
||
(forward-char)
|
||
(setq continue nil))
|
||
) ;while
|
||
;; (message "pt=%S" (point))
|
||
(point)))
|
||
|
||
(defun web-mode-tag-attributes-sort (&optional pos)
|
||
"Sort the attributes inside the current html tag."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(let (attrs (continue t) min max tag-beg tag-end attr attr-name attr-beg attr-end indent indentation sorter ins)
|
||
(if (not (member (get-text-property pos 'tag-type) '(start void)))
|
||
nil
|
||
(setq tag-beg (web-mode-tag-beginning-position pos)
|
||
tag-end (web-mode-tag-end-position))
|
||
;; (message "%S %S" tag-beg tag-end)
|
||
(goto-char tag-beg)
|
||
(while continue
|
||
(if (or (not (web-mode-attribute-next))
|
||
(>= (point) tag-end))
|
||
(setq continue nil)
|
||
;;(message "attr=%S" (point))
|
||
(setq attr-beg (web-mode-attribute-beginning-position)
|
||
attr-end (1+ (web-mode-attribute-end-position)))
|
||
(when (null min)
|
||
(setq min attr-beg))
|
||
(setq max attr-end)
|
||
(goto-char attr-beg)
|
||
(setq attr (buffer-substring-no-properties attr-beg attr-end))
|
||
(if (string-match "^\\([[:alnum:]-]+\\)=" attr)
|
||
(setq attr-name (match-string-no-properties 1 attr))
|
||
(setq attr-name attr))
|
||
(setq indent (looking-back "^[ \t]*"))
|
||
(setq attrs (append attrs (list (list attr-beg attr-end attr-name attr indent))))
|
||
) ;if
|
||
) ;while
|
||
) ;if in tag
|
||
(when attrs
|
||
(setq sorter (function
|
||
(lambda (elt1 elt2)
|
||
(string< (nth 2 elt1) (nth 2 elt2))
|
||
)))
|
||
(setq attrs (sort attrs sorter))
|
||
(delete-region (1- min) max)
|
||
(setq ins "")
|
||
(dolist (elt attrs)
|
||
(if (and (nth 4 elt) (> (length ins) 1))
|
||
(setq ins (concat ins "\n"))
|
||
(setq ins (concat ins " ")))
|
||
(setq ins (concat ins (nth 3 elt)))
|
||
)
|
||
(goto-char (1- min))
|
||
(insert ins)
|
||
(web-mode-tag-beginning)
|
||
(setq min (line-beginning-position))
|
||
(web-mode-tag-end)
|
||
(setq max (line-end-position))
|
||
(indent-region min max)
|
||
)
|
||
;;(message "attrs=%S" attrs)
|
||
)))
|
||
|
||
(defun web-mode-attribute-insert ()
|
||
"Insert an attribute inside current tag."
|
||
(interactive)
|
||
(let (attr attr-name attr-value)
|
||
(cond
|
||
((not (eq (get-text-property (point) 'tag-type) 'start))
|
||
(message "attribute-insert ** invalid context **"))
|
||
((not (and (setq attr-name (read-from-minibuffer "Attribute name? "))
|
||
(> (length attr-name) 0)))
|
||
(message "attribute-insert ** failure **"))
|
||
(t
|
||
(setq attr (concat " " attr-name))
|
||
(when (setq attr-value (read-from-minibuffer "Attribute value? "))
|
||
(setq attr (concat attr "=\"" attr-value "\"")))
|
||
(web-mode-tag-end)
|
||
(re-search-backward "/?>")
|
||
(insert attr)
|
||
)
|
||
) ;cond
|
||
))
|
||
|
||
(defun web-mode-attribute-transpose (&optional pos)
|
||
"Transpose the current html attribute."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let (ret attr-beg attr-end next-beg next-end tag-end)
|
||
(when (and (get-text-property pos 'tag-attr)
|
||
(setq next-beg (web-mode-attribute-next-position pos))
|
||
(setq next-end (web-mode-attribute-end-position next-beg))
|
||
(setq tag-end (web-mode-tag-end-position pos))
|
||
(> tag-end next-end))
|
||
(setq attr-beg (web-mode-attribute-beginning-position pos)
|
||
attr-end (web-mode-attribute-end-position pos))
|
||
;; (message "%S %S - %S %S" attr-beg attr-end next-beg next-end)
|
||
(transpose-regions attr-beg (1+ attr-end) next-beg (1+ next-end))
|
||
)))
|
||
|
||
(defun web-mode-attribute-select (&optional pos)
|
||
"Select the current html attribute."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(if (null (get-text-property pos 'tag-attr))
|
||
nil
|
||
(goto-char pos)
|
||
(web-mode-attribute-beginning)
|
||
(set-mark (point))
|
||
(web-mode-attribute-end)
|
||
(point)
|
||
))
|
||
|
||
(defun web-mode-attribute-kill (&optional arg)
|
||
"Kill the current html attribute."
|
||
(interactive "p")
|
||
(unless arg (setq arg 1))
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-attribute-select)
|
||
(when mark-active
|
||
(let ((beg (region-beginning)) (end (region-end)))
|
||
(save-excursion
|
||
(goto-char end)
|
||
(when (looking-at "[ \n\t]*")
|
||
(setq end (+ end (length (match-string-no-properties 0)))))
|
||
) ;save-excursion
|
||
(kill-region beg end)
|
||
) ;let
|
||
) ;when
|
||
) ;while
|
||
)
|
||
|
||
(defun web-mode-block-close (&optional pos)
|
||
"Close the first unclosed control block."
|
||
(interactive)
|
||
(unless pos (setq pos (point)))
|
||
(let ((continue t)
|
||
(h (make-hash-table :test 'equal)) ctx ctrl n closing-block)
|
||
(save-excursion
|
||
(while (and continue (web-mode-block-previous))
|
||
(when (setq ctx (web-mode-block-is-control (point)))
|
||
(setq ctrl (car ctx))
|
||
(setq n (gethash ctrl h 0))
|
||
(if (cdr ctx)
|
||
(puthash ctrl (1+ n) h)
|
||
(puthash ctrl (1- n) h))
|
||
(when (> (gethash ctrl h) 0)
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
) ;save-excursion
|
||
(when (and (null continue)
|
||
(setq closing-block (web-mode-closing-block ctrl)))
|
||
(insert closing-block)
|
||
(indent-according-to-mode)
|
||
;; (indent-for-tab-command)
|
||
)
|
||
))
|
||
|
||
(defun web-mode-closing-block (type)
|
||
(cond
|
||
((string= web-mode-engine "php") (concat "<?php end" type "; ?>"))
|
||
((string= web-mode-engine "django") (concat "{% end" type " %}"))
|
||
((string= web-mode-engine "ctemplate") (concat "{{/" type "}}"))
|
||
((string= web-mode-engine "blade")
|
||
(if (string= type "section") (concat "@show") (concat "@end" type)))
|
||
((string= web-mode-engine "dust") (concat "{/" type "}"))
|
||
((string= web-mode-engine "mako") (concat "% end" type))
|
||
((string= web-mode-engine "closure") (concat "{/" type "}"))
|
||
((string= web-mode-engine "smarty") (concat "{/" type "}"))
|
||
((string= web-mode-engine "underscore") "<% } %>")
|
||
((string= web-mode-engine "lsp") "<% ) %>")
|
||
((string= web-mode-engine "erb") "<% } %>")
|
||
((string= web-mode-engine "erb") "<% end %>")
|
||
((string= web-mode-engine "go") "{{end}}")
|
||
((string= web-mode-engine "velocity") "#end")
|
||
((string= web-mode-engine "velocity") "#{end}")
|
||
((string= web-mode-engine "template-toolkit") "[% end %]")
|
||
((member web-mode-engine '("asp" "jsp"))
|
||
(if (string-match-p "[:.]" type) (concat "</" type ">") "<% } %>"))
|
||
(t nil)
|
||
) ;cond
|
||
)
|
||
|
||
;;---- POSITION ----------------------------------------------------------------
|
||
|
||
(defun web-mode-comment-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(car (web-mode-comment-boundaries pos)))
|
||
|
||
(defun web-mode-comment-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cdr (web-mode-comment-boundaries pos)))
|
||
|
||
(defun web-mode-part-opening-paren-position (pos &optional limit)
|
||
(save-restriction
|
||
(unless limit (setq limit nil))
|
||
(goto-char pos)
|
||
(let* ((n -1)
|
||
(paren (char-after))
|
||
(pairs '((?\) . "[)(]")
|
||
(?\] . "[\]\[]")
|
||
(?\} . "[}{]")
|
||
(?\> . "[><]")))
|
||
(regexp (cdr (assoc paren pairs)))
|
||
(continue (not (null regexp)))
|
||
(counter 0))
|
||
(while (and continue (re-search-backward regexp limit t))
|
||
(cond
|
||
((> (setq counter (1+ counter)) 500)
|
||
(message "part-opening-paren-position ** warning **")
|
||
(setq continue nil))
|
||
((or (web-mode-is-comment-or-string)
|
||
(get-text-property (point) 'block-side))
|
||
)
|
||
((eq (char-after) paren)
|
||
(setq n (1- n)))
|
||
(t
|
||
(setq n (1+ n))
|
||
(setq continue (not (= n 0))))
|
||
)
|
||
) ;while
|
||
(if (= n 0) (point) nil)
|
||
)))
|
||
|
||
(defun web-mode-closing-paren-position (&optional pos limit)
|
||
(save-excursion
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit nil))
|
||
(goto-char pos)
|
||
(let* ((n 0)
|
||
(block-side (and (get-text-property pos 'block-side)
|
||
(not (string= web-mode-engine "razor"))))
|
||
(paren (char-after))
|
||
(pairs '((?\( . "[)(]")
|
||
(?\[ . "[\]\[]")
|
||
(?\{ . "[}{]")
|
||
(?\< . "[><]")))
|
||
(regexp (cdr (assoc paren pairs)))
|
||
(continue (not (null regexp))))
|
||
(while (and continue (re-search-forward regexp limit t))
|
||
(cond
|
||
((or (web-mode-is-comment-or-string (1- (point)))
|
||
(and block-side (not (get-text-property (point) 'block-side))))
|
||
;;(message "pt=%S" (point))
|
||
)
|
||
((eq (char-before) paren)
|
||
(setq n (1+ n)))
|
||
(t
|
||
(setq n (1- n))
|
||
(setq continue (not (= n 0)))
|
||
)
|
||
) ;cond
|
||
) ;while
|
||
(if (= n 0) (1- (point)) nil)
|
||
)))
|
||
|
||
(defun web-mode-closing-delimiter-position (delimiter &optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit nil))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(setq pos nil)
|
||
(let ((continue t))
|
||
(while (and continue (re-search-forward delimiter limit t))
|
||
(setq continue nil
|
||
pos (1- (point)))
|
||
) ;while
|
||
pos)))
|
||
|
||
(defun web-mode-tag-match-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(web-mode-tag-match pos)
|
||
(if (= pos (point)) nil (point))))
|
||
|
||
(defun web-mode-tag-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (beg end depth)
|
||
(setq depth (get-text-property pos 'jsx-depth))
|
||
(when (and depth (get-text-property pos 'tag-attr-beg))
|
||
(setq depth (get-text-property (1- pos) 'jsx-depth)))
|
||
(cond
|
||
((null pos)
|
||
(setq end nil))
|
||
((get-text-property pos 'tag-beg)
|
||
(setq beg pos))
|
||
((and (> pos 1) (get-text-property (1- pos) 'tag-beg))
|
||
(setq beg (1- pos)))
|
||
((get-text-property pos 'tag-type)
|
||
(setq beg (previous-single-property-change pos 'tag-beg))
|
||
(when beg (setq beg (1- beg)))
|
||
(cond
|
||
((not (get-text-property beg 'tag-beg))
|
||
(setq beg nil))
|
||
((and depth (not (eq depth (get-text-property beg 'jsx-depth))))
|
||
(let ((continue (> beg (point-min))))
|
||
(while continue
|
||
(setq beg (previous-single-property-change beg 'tag-beg))
|
||
(when beg (setq beg (1- beg)))
|
||
(cond
|
||
((null beg)
|
||
(setq continue nil))
|
||
((not (get-text-property beg 'tag-beg))
|
||
(setq continue nil
|
||
beg nil))
|
||
((eq depth (get-text-property beg 'jsx-depth))
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
) ;let
|
||
)
|
||
) ;cond
|
||
)
|
||
(t
|
||
(setq beg nil))
|
||
) ;cond
|
||
beg))
|
||
|
||
(defun web-mode-tag-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (end depth)
|
||
(setq depth (get-text-property pos 'jsx-depth))
|
||
(when (and depth (get-text-property pos 'tag-attr-beg))
|
||
(setq depth (get-text-property (1- pos) 'jsx-depth)))
|
||
(cond
|
||
((null pos)
|
||
(setq end nil))
|
||
((get-text-property pos 'tag-end)
|
||
(setq end pos))
|
||
((get-text-property pos 'tag-type)
|
||
(setq end (next-single-property-change pos 'tag-end))
|
||
(cond
|
||
((not (get-text-property end 'tag-end))
|
||
(setq end nil))
|
||
((and depth (not (eq depth (get-text-property end 'jsx-depth))))
|
||
(let ((continue (< end (point-max))))
|
||
(while continue
|
||
(setq end (1+ end))
|
||
(setq end (next-single-property-change end 'tag-end))
|
||
(cond
|
||
((null end)
|
||
(setq continue nil))
|
||
((not (get-text-property end 'tag-end))
|
||
(setq continue nil
|
||
end nil))
|
||
((eq depth (get-text-property end 'jsx-depth))
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
) ;let
|
||
)
|
||
) ;cond
|
||
)
|
||
(t
|
||
(setq end nil))
|
||
) ;cond
|
||
end))
|
||
|
||
;; TODO: prendre en compte jsx-depth
|
||
(defun web-mode-tag-next-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-max)))
|
||
(cond
|
||
((or (>= pos (point-max)) (>= pos limit)) nil)
|
||
(t
|
||
(when (get-text-property pos 'tag-beg) (setq pos (1+ pos)))
|
||
(setq pos (next-single-property-change pos 'tag-beg))
|
||
(if (and pos (<= pos limit)) pos nil))
|
||
))
|
||
|
||
;; TODO: prendre en compte jsx-depth
|
||
(defun web-mode-tag-previous-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-min)))
|
||
(cond
|
||
((or (<= pos (point-min)) (<= pos limit)) nil)
|
||
(t
|
||
(when (get-text-property pos 'tag-beg) (setq pos (1- pos)))
|
||
(web-mode-go (previous-single-property-change pos 'tag-beg) -1))
|
||
))
|
||
|
||
;; TODO: prendre en compte jsx-depth
|
||
(defun web-mode-attribute-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((null (get-text-property pos 'tag-attr))
|
||
nil)
|
||
((get-text-property pos 'tag-attr-beg)
|
||
pos)
|
||
(t
|
||
(setq pos (previous-single-property-change pos 'tag-attr-beg))
|
||
(setq pos (1- pos)))
|
||
))
|
||
|
||
;; TODO: retoucher en incluant un param limit et en s'inspirant de
|
||
;; web-mode-attribute-next-position
|
||
(defun web-mode-attribute-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let (end depth)
|
||
(setq depth (get-text-property pos 'jsx-depth))
|
||
(cond
|
||
((null pos)
|
||
(setq end nil))
|
||
((get-text-property pos 'tag-attr-end)
|
||
(setq end pos))
|
||
((get-text-property pos 'tag-attr)
|
||
(setq end (next-single-property-change pos 'tag-attr-end))
|
||
(cond
|
||
((not (get-text-property end 'tag-attr-end))
|
||
(setq end nil))
|
||
((and depth
|
||
(eq depth (get-text-property end 'jsx-depth))
|
||
(not (eq depth (get-text-property end 'jsx-end))))
|
||
)
|
||
((and depth (eq (1+ depth) (get-text-property end 'jsx-depth)))
|
||
)
|
||
((and depth (not (eq (1+ depth) (get-text-property end 'jsx-depth))))
|
||
(let ((continue (< end (point-max))))
|
||
(while continue
|
||
(setq end (1+ end))
|
||
(setq end (next-single-property-change end 'tag-attr-end))
|
||
(cond
|
||
((null end)
|
||
(setq continue nil))
|
||
((not (get-text-property end 'tag-attr-end))
|
||
(setq continue nil
|
||
end nil))
|
||
((eq (1+ depth) (get-text-property end 'jsx-depth))
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
) ;let
|
||
)
|
||
) ;cond
|
||
)
|
||
(t
|
||
(setq end nil))
|
||
) ;cond
|
||
end))
|
||
|
||
(defun web-mode-attribute-next-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-max)))
|
||
(let (continue depth)
|
||
(when (get-text-property pos 'tag-attr-beg)
|
||
(setq pos (1+ pos)))
|
||
(if (< pos limit)
|
||
(setq continue t
|
||
depth (get-text-property pos 'jsx-depth))
|
||
(setq continue nil
|
||
pos nil))
|
||
(while continue
|
||
(setq pos (next-single-property-change pos 'tag-attr-beg))
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil))
|
||
((>= pos limit)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null depth)
|
||
(setq continue nil))
|
||
((eq depth (get-text-property pos 'jsx-depth))
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1+ pos)
|
||
continue (< pos limit)))
|
||
)
|
||
) ;while
|
||
pos))
|
||
|
||
(defun web-mode-attribute-previous-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-min)))
|
||
(let (continue depth)
|
||
(when (get-text-property pos 'tag-attr-beg)
|
||
(setq pos (1- pos)))
|
||
(if (> pos limit)
|
||
(setq continue t
|
||
depth (get-text-property pos 'jsx-depth))
|
||
(setq continue nil
|
||
pos nil))
|
||
(while continue
|
||
(setq pos (previous-single-property-change pos 'tag-attr-beg))
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil))
|
||
((< pos limit)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null depth)
|
||
(setq continue nil))
|
||
((eq depth (get-text-property pos 'jsx-depth))
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)
|
||
continue (> pos limit)))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
;; TODO: prendre en compte jsx-depth
|
||
(defun web-mode-element-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((null (get-text-property pos 'tag-type))
|
||
(setq pos (web-mode-element-parent-position)))
|
||
((eq (get-text-property pos 'tag-type) 'end)
|
||
(setq pos (web-mode-tag-match-position pos))
|
||
(setq pos (if (get-text-property pos 'tag-beg) pos nil)))
|
||
((member (get-text-property pos 'tag-type) '(start void))
|
||
(setq pos (web-mode-tag-beginning-position pos)))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
pos)
|
||
|
||
;; TODO: prendre en compte jsx-depth
|
||
(defun web-mode-element-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((null (get-text-property pos 'tag-type))
|
||
(setq pos (web-mode-element-parent-position pos))
|
||
(when pos
|
||
(setq pos (web-mode-tag-match-position pos))
|
||
(when pos (setq pos (web-mode-tag-end-position pos)))
|
||
)
|
||
)
|
||
((member (get-text-property pos 'tag-type) '(end void))
|
||
(setq pos (web-mode-tag-end-position pos))
|
||
)
|
||
((member (get-text-property pos 'tag-type) '(start))
|
||
(setq pos (web-mode-tag-match-position pos))
|
||
(when pos (setq pos (web-mode-tag-end-position pos))))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
pos)
|
||
|
||
(defun web-mode-element-child-position (&optional pos)
|
||
(save-excursion
|
||
(let (child close)
|
||
(unless pos (setq pos (point)))
|
||
(goto-char pos)
|
||
(cond
|
||
((eq (get-text-property pos 'tag-type) 'start)
|
||
(web-mode-tag-match)
|
||
(setq close (point))
|
||
(goto-char pos)
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'void)
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'end)
|
||
(web-mode-tag-beginning)
|
||
(setq close (point))
|
||
(web-mode-tag-match)
|
||
)
|
||
((web-mode-element-parent-position pos)
|
||
(setq pos (point))
|
||
(web-mode-tag-match)
|
||
(setq close (point))
|
||
(goto-char pos)
|
||
)
|
||
) ;cond
|
||
(when (and close
|
||
(web-mode-element-next)
|
||
(< (point) close))
|
||
(setq child (point))
|
||
)
|
||
child)))
|
||
|
||
(defun web-mode-element-parent-position (&optional pos)
|
||
(let (n tag-type tag-name (continue t) (tags (make-hash-table :test 'equal)))
|
||
(save-excursion
|
||
(if pos (goto-char pos))
|
||
(while (and continue (web-mode-tag-previous))
|
||
(setq pos (point)
|
||
tag-type (get-text-property pos 'tag-type)
|
||
tag-name (get-text-property pos 'tag-name)
|
||
n (gethash tag-name tags 0))
|
||
(when (member tag-type '(end start))
|
||
(if (eq tag-type 'end)
|
||
(puthash tag-name (1- n) tags)
|
||
(puthash tag-name (1+ n) tags)
|
||
(when (= n 0) (setq continue nil))
|
||
) ;if
|
||
) ;when
|
||
) ;while
|
||
) ;save-excursion
|
||
(if (null continue) pos nil)))
|
||
|
||
(defun web-mode-element-previous-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-min)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(let ((continue (not (bobp)))
|
||
(props '(start void comment)))
|
||
(while continue
|
||
(setq pos (web-mode-tag-previous))
|
||
(cond
|
||
((or (null pos) (< (point) limit))
|
||
(setq continue nil
|
||
pos nil))
|
||
((member (get-text-property (point) 'tag-type) props)
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
pos)))
|
||
|
||
(defun web-mode-element-next-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-max)))
|
||
(save-excursion
|
||
(goto-char pos)
|
||
(let ((continue (not (eobp)))
|
||
(props '(start void comment)))
|
||
(while continue
|
||
(setq pos (web-mode-tag-next))
|
||
(cond
|
||
((or (null pos) (> (point) limit))
|
||
(setq continue nil
|
||
pos nil))
|
||
((member (get-text-property (point) 'tag-type) props)
|
||
(setq continue nil))
|
||
)
|
||
) ;while
|
||
;; (message "pos=%S" pos)
|
||
pos)))
|
||
|
||
(defun web-mode-part-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((member web-mode-content-type web-mode-part-content-types)
|
||
(setq pos (point-max)))
|
||
((not (get-text-property pos 'part-side))
|
||
(setq pos nil))
|
||
((= pos (point-max))
|
||
(setq pos nil))
|
||
((not (get-text-property (1+ pos) 'part-side))
|
||
pos)
|
||
(t
|
||
(setq pos (next-single-property-change pos 'part-side)))
|
||
) ;cond
|
||
pos)
|
||
|
||
(defun web-mode-part-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((member web-mode-content-type web-mode-part-content-types)
|
||
(setq pos (point-min)))
|
||
((not (get-text-property pos 'part-side))
|
||
(setq pos nil))
|
||
((= pos (point-min))
|
||
(setq pos nil))
|
||
((not (get-text-property (1- pos) 'part-side))
|
||
pos)
|
||
(t
|
||
(setq pos (previous-single-property-change pos 'part-side)))
|
||
) ;cond
|
||
pos)
|
||
|
||
(defun web-mode-part-next-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((and (= pos (point-min)) (get-text-property pos 'part-side))
|
||
)
|
||
((not (get-text-property pos 'part-side))
|
||
(setq pos (next-single-property-change pos 'part-side)))
|
||
((and (setq pos (web-mode-part-end-position pos)) (>= pos (point-max)))
|
||
(setq pos nil))
|
||
((and (setq pos (1+ pos)) (not (get-text-property pos 'part-side)))
|
||
(setq pos (next-single-property-change pos 'part-side)))
|
||
) ;cond
|
||
pos)
|
||
|
||
(defun web-mode-block-match-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(save-excursion
|
||
(web-mode-block-match pos)
|
||
(if (= pos (point)) nil (point))))
|
||
|
||
(defun web-mode-block-control-previous-position (type &optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(let ((continue t) controls)
|
||
(while continue
|
||
(setq pos (web-mode-block-previous-position pos))
|
||
(cond
|
||
((null pos)
|
||
(setq continue nil
|
||
pos nil))
|
||
((and (setq controls (web-mode-block-controls-get pos))
|
||
(eq (car (car controls)) type))
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
;; (defun web-mode-block-opening-paren-position2 (pos limit)
|
||
;; (save-excursion
|
||
;; (when (> limit pos)
|
||
;; (message "block-opening-paren-position: limit(%S) > pos(%S)" limit pos))
|
||
;; (goto-char pos)
|
||
;; (let (c
|
||
;; n
|
||
;; pt
|
||
;; (continue (> pos limit))
|
||
;; (pairs '((")" . "(")
|
||
;; ("]" . "[")
|
||
;; ("}" . "{")))
|
||
;; (h (make-hash-table :test 'equal))
|
||
;; (regexp "[\]\[)(}{]"))
|
||
;; (while (and continue (re-search-backward regexp limit t))
|
||
;; (cond
|
||
;; ((web-mode-is-comment-or-string)
|
||
;; )
|
||
;; (t
|
||
;; (setq c (string (char-after)))
|
||
;; (cond
|
||
;; ((member c '("(" "{" "["))
|
||
;; (setq n (gethash c h 0))
|
||
;; (if (= n 0)
|
||
;; (setq continue nil
|
||
;; pt (point))
|
||
;; (puthash c (1+ n) h)
|
||
;; ))
|
||
;; (t
|
||
;; (setq c (cdr (assoc c pairs)))
|
||
;; (setq n (gethash c h 0))
|
||
;; (puthash c (1- n) h))
|
||
;; ) ;cond
|
||
;; ) ;t
|
||
;; ) ;cond
|
||
;; ) ;while
|
||
;; pt)))
|
||
|
||
(defun web-mode-block-opening-paren-position (pos limit)
|
||
(save-excursion
|
||
(when (> limit pos)
|
||
(message "block-opening-paren-position: limit(%S) > pos(%S)" limit pos))
|
||
(goto-char pos)
|
||
(let (c
|
||
n
|
||
pt
|
||
(continue (> pos limit))
|
||
(pairs '((?\) . ?\()
|
||
(?\] . ?\[)
|
||
(?\} . ?\{)))
|
||
(h (make-hash-table :test 'equal))
|
||
(regexp "[\]\[)(}{]"))
|
||
(while (and continue (re-search-backward regexp limit t))
|
||
(cond
|
||
((web-mode-is-comment-or-string)
|
||
)
|
||
(t
|
||
(setq c (char-after))
|
||
(cond
|
||
((member c '(?\( ?\{ ?\[))
|
||
(setq n (gethash c h 0))
|
||
(if (= n 0)
|
||
(setq continue nil
|
||
pt (point))
|
||
(puthash c (1+ n) h)
|
||
))
|
||
(t
|
||
(setq c (cdr (assoc c pairs)))
|
||
(setq n (gethash c h 0))
|
||
(puthash c (1- n) h))
|
||
) ;cond
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
pt)))
|
||
|
||
(defun web-mode-block-code-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(when (and (setq pos (web-mode-block-beginning-position pos))
|
||
(eq (get-text-property pos 'block-token) 'delimiter-beg))
|
||
(setq pos (next-single-property-change pos 'block-token)))
|
||
pos)
|
||
|
||
(defun web-mode-block-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((or (and (get-text-property pos 'block-side) (= pos (point-min)))
|
||
(get-text-property pos 'block-beg))
|
||
)
|
||
((and (> pos (point-min)) (get-text-property (1- pos) 'block-beg))
|
||
(setq pos (1- pos)))
|
||
((get-text-property pos 'block-side)
|
||
(setq pos (previous-single-property-change pos 'block-beg))
|
||
(setq pos (if (and pos (> pos (point-min))) (1- pos) (point-min))))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
pos)
|
||
|
||
(defun web-mode-block-string-beginning-position (pos &optional block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(let (char (ori pos) (continue (not (null pos))))
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((< pos block-beg)
|
||
(setq continue nil
|
||
pos block-beg))
|
||
((and (member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos))
|
||
)
|
||
((member char '(?\) ?\]))
|
||
(setq pos (web-mode-block-opening-paren-position pos block-beg))
|
||
(setq pos (1- pos))
|
||
)
|
||
((and (> ori pos) (member char '(?\( ?\= ?\[ ?\? ?\: ?\; ?\, ?\`)))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0))))
|
||
)
|
||
((web-mode-looking-back "\\_<\\(return\\|echo\\|include\\|print\\)[ \n\t]*" pos)
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "pos=%S" pos)
|
||
pos))
|
||
|
||
(defun web-mode-block-statement-beginning-position (pos &optional block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(setq pos (1- pos))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(let (char (continue (not (null pos))))
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((< pos block-beg)
|
||
(setq continue nil
|
||
pos block-beg))
|
||
((and (member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((member char '(?\) ?\] ?\}))
|
||
(setq pos (web-mode-block-opening-paren-position pos block-beg))
|
||
(setq pos (1- pos)))
|
||
((member char '(?\( ?\[ ?\{ ?\=))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((web-mode-looking-back "\\_<\\(return\\|echo\\|include\\|print\\)[ \n\t]*" pos)
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
(defun web-mode-block-args-beginning-position (pos &optional block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(setq pos (1- pos)) ; #512
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(let (char (continue (not (null pos))))
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((< pos block-beg)
|
||
(message "block-args-beginning-position ** failure **")
|
||
(setq continue nil
|
||
pos block-beg))
|
||
((and (member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((member char '(?\) ?\] ?\}))
|
||
(setq pos (web-mode-block-opening-paren-position pos block-beg))
|
||
(setq pos (1- pos)))
|
||
((member char '(?\( ?\[ ?\{))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((and (string= web-mode-engine "php")
|
||
(web-mode-looking-back "\\_<\\(extends\\|implements\\)[ \n\t]*" pos))
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
(defun web-mode-block-calls-beginning-position (pos &optional block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(let (char (continue (not (null pos))))
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((< pos block-beg)
|
||
(message "block-calls-beginning-position ** failure **")
|
||
(setq continue nil
|
||
pos block-beg))
|
||
((and (member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((member char '(?\) ?\]))
|
||
(setq pos (web-mode-block-opening-paren-position pos block-beg))
|
||
(setq pos (1- pos)))
|
||
((member char '(?\( ?\[ ?\{ ?\} ?\= ?\? ?\: ?\; ?\,))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((web-mode-looking-back "\\(return\\|else\\)[ \n\t]*" pos)
|
||
(setq ;;pos (point)
|
||
continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
(defun web-mode-javascript-string-beginning-position (pos &optional reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(let ((char nil)
|
||
(blockside (get-text-property pos 'block-side))
|
||
(i 0)
|
||
(continue (not (null pos))))
|
||
(unless reg-beg
|
||
(if blockside
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos)))
|
||
)
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((> (setq i (1+ i)) 20000)
|
||
(message "javascript-string-beginning-position ** warning (%S) **" pos)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null pos)
|
||
(message "javascript-string-beginning-position ** invalid pos **")
|
||
(setq continue nil))
|
||
((< pos reg-beg)
|
||
(message "javascript-string-beginning-position ** failure **")
|
||
(setq continue nil
|
||
pos reg-beg))
|
||
((and blockside
|
||
(member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(member (get-text-property pos 'part-token) '(string comment))
|
||
(eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token)))
|
||
(setq pos (web-mode-part-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(get-text-property pos 'block-side))
|
||
(when (setq pos (web-mode-block-beginning-position pos))
|
||
(setq pos (1- pos))))
|
||
((member char '(?\) ?\] ?\}))
|
||
(setq pos (web-mode-part-opening-paren-position pos reg-beg))
|
||
(setq pos (1- pos)))
|
||
((member char '(?\( ?\{ ?\[ ?\= ?\? ?\: ?\; ?\, ?\& ?\|))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((web-mode-looking-back "\\(return\\)[ \n\t]*" pos)
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "js-statement-beg:%S" pos)
|
||
pos))
|
||
|
||
;; TODO: reg-beg : jsx-beg
|
||
;; TODO: skipper les expr dont la depth est superieure
|
||
|
||
;; NOTE: blockside is useful for ejs
|
||
(defun web-mode-javascript-statement-beginning-position (pos &optional reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(setq pos (1- pos))
|
||
(let ((char nil)
|
||
(blockside (get-text-property pos 'block-side))
|
||
(i 0)
|
||
(is-jsx (string= web-mode-content-type "jsx"))
|
||
(depth-o nil) (depth-l nil)
|
||
(continue (not (null pos))))
|
||
(setq depth-o (get-text-property pos 'jsx-depth))
|
||
(unless reg-beg
|
||
(cond
|
||
(blockside
|
||
(setq reg-beg (web-mode-block-beginning-position pos)))
|
||
(is-jsx
|
||
(setq reg-beg (web-mode-jsx-depth-beginning-position pos)))
|
||
(t
|
||
(setq reg-beg (web-mode-part-beginning-position pos)))
|
||
) ;cond
|
||
) ;unless
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((> (setq i (1+ i)) 20000)
|
||
(message "javascript-statement-beginning-position ** warning (%S) **" pos)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null pos)
|
||
(message "javascript-statement-beginning-position ** invalid pos **")
|
||
(setq continue nil))
|
||
((< pos reg-beg)
|
||
(when (not is-jsx)
|
||
(message "javascript-statement-beginning-position ** failure **"))
|
||
(setq continue nil
|
||
pos reg-beg))
|
||
((and is-jsx
|
||
(progn (setq depth-l (get-text-property pos 'jsx-depth)))
|
||
(not (eq depth-l depth-o)))
|
||
;;(message "%S > depth-o(%S) depth-l(%S)" pos depth-o depth-l)
|
||
(setq pos (previous-single-property-change pos 'jsx-depth))
|
||
(setq pos (1- pos))
|
||
;;(message "--> %S %S" pos (get-text-property pos 'jsx-depth))
|
||
)
|
||
((and blockside
|
||
(member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(member (get-text-property pos 'part-token) '(string comment))
|
||
(eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token)))
|
||
(setq pos (web-mode-part-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(get-text-property pos 'block-side))
|
||
(when (setq pos (web-mode-block-beginning-position pos))
|
||
(setq pos (1- pos))))
|
||
((member char '(?\) ?\] ?\}))
|
||
(setq pos (web-mode-part-opening-paren-position pos reg-beg))
|
||
(setq pos (1- pos)))
|
||
((and (eq char ?\=)
|
||
(web-mode-looking-back "[<>!=]+" pos reg-beg t))
|
||
(setq pos (- pos 1 (length (match-string-no-properties 0))))
|
||
;;(setq pos (1- pos))
|
||
;;(message "%S pos=%S" (match-string-no-properties 0) pos)
|
||
)
|
||
((member char '(?\( ?\{ ?\[ ?\=))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((web-mode-looking-back "\\_<\\(return\\)[ \n\t]*" pos)
|
||
(setq continue nil)
|
||
(web-mode-looking-at "[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "%S -------" pos)
|
||
pos))
|
||
|
||
(defun web-mode-javascript-args-beginning-position (pos &optional reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(setq pos (1- pos))
|
||
(let ((char nil)
|
||
(blockside (get-text-property pos 'block-side))
|
||
(i 0)
|
||
(continue (not (null pos))))
|
||
(unless reg-beg
|
||
(if blockside
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos)))
|
||
)
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((> (setq i (1+ i)) 20000)
|
||
(message "javascript-args-beginning-position ** warning (%S) **" pos)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null pos)
|
||
(message "javascript-args-beginning-position ** invalid pos **")
|
||
(setq continue nil))
|
||
((< pos reg-beg)
|
||
(message "javascript-args-beginning-position ** failure **")
|
||
(setq continue nil
|
||
pos reg-beg))
|
||
((and blockside
|
||
(member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(member (get-text-property pos 'part-token) '(string comment))
|
||
(eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token)))
|
||
(setq pos (web-mode-part-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(get-text-property pos 'block-side))
|
||
(when (setq pos (web-mode-block-beginning-position pos))
|
||
(setq pos (1- pos)))
|
||
)
|
||
((member char '(?\) ?\] ?\}))
|
||
(when (setq pos (web-mode-part-opening-paren-position pos reg-beg))
|
||
(setq pos (1- pos))))
|
||
((member char '(?\( ?\[ ?\{))
|
||
;; (web-mode-looking-at ".[ \t\n]*" pos)
|
||
(web-mode-looking-at ".[ ]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))
|
||
continue nil)
|
||
;; (message "=>%S" pos)
|
||
)
|
||
((web-mode-looking-back "\\_<\\(var\\|let\\|return\\|const\\)[ \n\t]+" pos)
|
||
;; (web-mode-looking-at "[ \t\n]*" pos)
|
||
(web-mode-looking-at "[ \t]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))
|
||
continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
;;(message "=%S" pos)
|
||
pos))
|
||
|
||
(defun web-mode-javascript-calls-beginning-position (pos &optional reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(let ((char nil)
|
||
(blockside (get-text-property pos 'block-side))
|
||
(i 0)
|
||
(continue (not (null pos))))
|
||
(unless reg-beg
|
||
(if blockside
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos)))
|
||
)
|
||
(while continue
|
||
(setq char (char-after pos))
|
||
(cond
|
||
((> (setq i (1+ i)) 20000)
|
||
(message "javascript-calls-beginning-position ** warning (%S) **" pos)
|
||
(setq continue nil
|
||
pos nil))
|
||
((null pos)
|
||
(message "javascript-calls-beginning-position ** invalid pos **")
|
||
(setq continue nil))
|
||
((< pos reg-beg)
|
||
;;(message "pos(%S) reg-beg(%S)" pos reg-beg)
|
||
;;(message "javascript-calls-beginning-position ** failure **")
|
||
(setq continue nil
|
||
pos reg-beg))
|
||
((and blockside
|
||
(member (get-text-property pos 'block-token) '(string comment))
|
||
(eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token)))
|
||
(setq pos (web-mode-block-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(member (get-text-property pos 'part-token) '(string comment))
|
||
(eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token)))
|
||
(setq pos (web-mode-part-token-beginning-position pos)))
|
||
((and (not blockside)
|
||
(get-text-property pos 'block-side))
|
||
(when (setq pos (web-mode-block-beginning-position pos))
|
||
(setq pos (1- pos))))
|
||
((member char '(?\) ?\] ?\}))
|
||
(when (setq pos (web-mode-part-opening-paren-position pos reg-beg))
|
||
(setq pos (1- pos))))
|
||
((member char '(?\( ?\{ ?\[ ?\= ?\? ?\: ?\; ?\, ?\& ?\|))
|
||
(setq continue nil)
|
||
(web-mode-looking-at ".[ \t\n]*" pos)
|
||
(setq pos (+ pos (length (match-string-no-properties 0)))))
|
||
((web-mode-looking-back "\\_<\\(return\\|else\\)[ \n\t]*" pos)
|
||
(setq continue nil))
|
||
(t
|
||
(setq pos (1- pos)))
|
||
) ;cond
|
||
) ;while
|
||
pos))
|
||
|
||
(defun web-mode-part-token-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((not (get-text-property pos 'part-token))
|
||
nil)
|
||
((or (= pos (point-min))
|
||
(and (> pos (point-min))
|
||
(not (get-text-property (1- pos) 'part-token))))
|
||
pos)
|
||
(t
|
||
(setq pos (previous-single-property-change pos 'part-token))
|
||
(if (and pos (> pos (point-min))) pos (point-min)))
|
||
))
|
||
|
||
(defun web-mode-part-token-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((not (get-text-property pos 'part-token))
|
||
nil)
|
||
((or (= pos (point-max))
|
||
(not (get-text-property (1+ pos) 'part-token)))
|
||
pos)
|
||
(t
|
||
(1- (next-single-property-change pos 'part-token)))
|
||
))
|
||
|
||
(defun web-mode-block-token-beginning-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((not (get-text-property pos 'block-token))
|
||
nil)
|
||
((or (= pos (point-min))
|
||
(and (> pos (point-min))
|
||
(not (get-text-property (1- pos) 'block-token))))
|
||
pos)
|
||
(t
|
||
(setq pos (previous-single-property-change pos 'block-token))
|
||
(if (and pos (> pos (point-min))) pos (point-min)))
|
||
))
|
||
|
||
(defun web-mode-block-token-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((not (get-text-property pos 'block-token))
|
||
nil)
|
||
((or (= pos (point-max))
|
||
(not (get-text-property (1+ pos) 'block-token)))
|
||
pos)
|
||
(t
|
||
(1- (next-single-property-change pos 'block-token)))
|
||
))
|
||
|
||
(defun web-mode-block-code-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(setq pos (web-mode-block-end-position pos))
|
||
(cond
|
||
((not pos)
|
||
nil)
|
||
((and (eq (get-text-property pos 'block-token) 'delimiter-end)
|
||
(eq (get-text-property (1- pos) 'block-token) 'delimiter-end))
|
||
(previous-single-property-change pos 'block-token))
|
||
((= pos (1- (point-max))) ;; TODO: comparer plutot avec line-end-position
|
||
(point-max))
|
||
(t
|
||
pos)
|
||
))
|
||
|
||
(defun web-mode-block-end-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((get-text-property pos 'block-end)
|
||
pos)
|
||
((get-text-property pos 'block-side)
|
||
(or (next-single-property-change pos 'block-end)
|
||
(point-max)))
|
||
(t
|
||
nil)
|
||
))
|
||
|
||
(defun web-mode-block-previous-position (&optional pos)
|
||
(unless pos (setq pos (point)))
|
||
(cond
|
||
((= pos (point-min))
|
||
(setq pos nil))
|
||
((get-text-property pos 'block-side)
|
||
(setq pos (web-mode-block-beginning-position pos))
|
||
(cond
|
||
((or (null pos) (= pos (point-min)))
|
||
(setq pos nil)
|
||
)
|
||
((and (setq pos (previous-single-property-change pos 'block-beg))
|
||
(> pos (point-min)))
|
||
(setq pos (1- pos))
|
||
)
|
||
)
|
||
) ;block-side
|
||
((get-text-property (1- pos) 'block-side)
|
||
(setq pos (web-mode-block-beginning-position (1- pos)))
|
||
)
|
||
(t
|
||
(setq pos (previous-single-property-change pos 'block-side))
|
||
(cond
|
||
((and (null pos) (get-text-property (point-min) 'block-beg))
|
||
(setq pos (point-min)))
|
||
((and pos (> pos (point-min)))
|
||
(setq pos (web-mode-block-beginning-position (1- pos))))
|
||
)
|
||
)
|
||
) ;conf
|
||
pos)
|
||
|
||
(defun web-mode-block-next-position (&optional pos limit)
|
||
(unless pos (setq pos (point)))
|
||
(unless limit (setq limit (point-max)))
|
||
(cond
|
||
((and (get-text-property pos 'block-side)
|
||
(setq pos (web-mode-block-end-position pos))
|
||
(< pos (point-max))
|
||
(setq pos (1+ pos)))
|
||
(unless (get-text-property pos 'block-beg)
|
||
(setq pos (next-single-property-change pos 'block-side)))
|
||
)
|
||
(t
|
||
(setq pos (next-single-property-change pos 'block-side)))
|
||
) ;cond
|
||
(if (and pos (<= pos limit)) pos nil))
|
||
|
||
;;---- EXCURSION ---------------------------------------------------------------
|
||
|
||
(defun web-mode-backward-sexp (n)
|
||
(interactive "p")
|
||
(if (< n 0) (web-mode-forward-sexp (- n))
|
||
(let (pos)
|
||
(dotimes (_ n)
|
||
(skip-chars-backward "[:space:]")
|
||
(setq pos (point))
|
||
(cond
|
||
((bobp) nil)
|
||
((get-text-property (1- pos) 'block-end)
|
||
(backward-char 1)
|
||
(web-mode-block-beginning))
|
||
((get-text-property (1- pos) 'block-token)
|
||
(backward-char 1)
|
||
(web-mode-block-token-beginning))
|
||
((get-text-property (1- pos) 'part-token)
|
||
(backward-char 1)
|
||
(web-mode-part-token-beginning))
|
||
((get-text-property (1- pos) 'tag-end)
|
||
(backward-char 1)
|
||
(web-mode-element-beginning))
|
||
((get-text-property (1- pos) 'tag-attr)
|
||
(backward-char 1)
|
||
(web-mode-attribute-beginning))
|
||
((get-text-property (1- pos) 'tag-type)
|
||
(backward-char 1)
|
||
(web-mode-tag-beginning))
|
||
(t
|
||
(let ((forward-sexp-function nil))
|
||
(backward-sexp))
|
||
) ;case t
|
||
) ;cond
|
||
) ;dotimes
|
||
))) ;let if defun
|
||
|
||
(defun web-mode-forward-sexp (n)
|
||
(interactive "p")
|
||
(if (< n 0) (web-mode-backward-sexp (- n))
|
||
(let (pos)
|
||
(dotimes (_ n)
|
||
(skip-chars-forward "[:space:]")
|
||
(setq pos (point))
|
||
(cond
|
||
((eobp) nil)
|
||
((get-text-property pos 'block-beg)
|
||
(web-mode-block-end))
|
||
((get-text-property pos 'block-token)
|
||
(web-mode-block-token-end))
|
||
((get-text-property pos 'part-token)
|
||
(web-mode-part-token-end))
|
||
((get-text-property pos 'tag-beg)
|
||
(web-mode-element-end))
|
||
((get-text-property pos 'tag-attr)
|
||
(web-mode-attribute-end))
|
||
((get-text-property pos 'tag-type)
|
||
(web-mode-tag-end))
|
||
(t
|
||
(let ((forward-sexp-function nil))
|
||
(forward-sexp))
|
||
) ;case t
|
||
) ;cond
|
||
) ;dotimes
|
||
))) ;let if defun
|
||
|
||
(defun web-mode-comment-beginning ()
|
||
"Fetch current comment beg."
|
||
(interactive)
|
||
(web-mode-go (web-mode-comment-beginning-position (point))))
|
||
|
||
(defun web-mode-comment-end ()
|
||
"Fetch current comment end."
|
||
(interactive)
|
||
(web-mode-go (web-mode-comment-end-position (point)) 1))
|
||
|
||
(defun web-mode-tag-beginning ()
|
||
"Fetch current html tag beg."
|
||
(interactive)
|
||
(web-mode-go (web-mode-tag-beginning-position (point))))
|
||
|
||
(defun web-mode-tag-end ()
|
||
"Fetch current html tag end."
|
||
(interactive)
|
||
(web-mode-go (web-mode-tag-end-position (point)) 1))
|
||
|
||
(defun web-mode-tag-previous ()
|
||
"Fetch previous tag."
|
||
(interactive)
|
||
(web-mode-go (web-mode-tag-previous-position (point))))
|
||
|
||
(defun web-mode-tag-next ()
|
||
"Fetch next tag. Might be html comment or server tag (e.g. jsp)."
|
||
(interactive)
|
||
(web-mode-go (web-mode-tag-next-position (point))))
|
||
|
||
(defun web-mode-attribute-beginning ()
|
||
"Fetch html attribute beginning."
|
||
(interactive)
|
||
(web-mode-go (web-mode-attribute-beginning-position (point))))
|
||
|
||
(defun web-mode-attribute-end ()
|
||
"Fetch html attribute end."
|
||
(interactive)
|
||
(web-mode-go (web-mode-attribute-end-position (point)) 1))
|
||
|
||
(defun web-mode-attribute-next (&optional arg)
|
||
"Fetch next attribute."
|
||
(interactive "p")
|
||
(unless arg (setq arg 1))
|
||
(cond
|
||
((= arg 1) (web-mode-go (web-mode-attribute-next-position (point))))
|
||
((< arg 1) (web-mode-element-previous (* arg -1)))
|
||
(t
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-go (web-mode-attribute-next-position (point)))
|
||
)
|
||
)
|
||
)
|
||
)
|
||
|
||
(defun web-mode-attribute-previous (&optional arg)
|
||
"Fetch previous attribute."
|
||
(interactive "p")
|
||
(unless arg (setq arg 1))
|
||
(unless arg (setq arg 1))
|
||
(cond
|
||
((= arg 1) (web-mode-go (web-mode-attribute-previous-position (point))))
|
||
((< arg 1) (web-mode-element-next (* arg -1)))
|
||
(t
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-go (web-mode-attribute-previous-position (point)))
|
||
)
|
||
)
|
||
)
|
||
)
|
||
|
||
(defun web-mode-element-previous (&optional arg)
|
||
"Fetch previous element."
|
||
(interactive "p")
|
||
(unless arg (setq arg 1))
|
||
(cond
|
||
((= arg 1) (web-mode-go (web-mode-element-previous-position (point))))
|
||
((< arg 1) (web-mode-element-next (* arg -1)))
|
||
(t
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-go (web-mode-element-previous-position (point)))
|
||
) ;while
|
||
) ;t
|
||
) ;cond
|
||
)
|
||
|
||
(defun web-mode-element-next (&optional arg)
|
||
"Fetch next element."
|
||
(interactive "p")
|
||
(unless arg (setq arg 1))
|
||
(cond
|
||
((= arg 1) (web-mode-go (web-mode-element-next-position (point))))
|
||
((< arg 1) (web-mode-element-previous (* arg -1)))
|
||
(t
|
||
(while (>= arg 1)
|
||
(setq arg (1- arg))
|
||
(web-mode-go (web-mode-element-next-position (point)))
|
||
) ;while
|
||
) ;t
|
||
) ;cond
|
||
)
|
||
|
||
(defun web-mode-element-sibling-next ()
|
||
"Fetch next sibling element."
|
||
(interactive)
|
||
(let ((pos (point)))
|
||
(save-excursion
|
||
(cond
|
||
((not (get-text-property pos 'tag-type))
|
||
(if (and (web-mode-element-parent)
|
||
(web-mode-tag-match)
|
||
(web-mode-element-next))
|
||
(setq pos (point))
|
||
(setq pos nil))
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'start)
|
||
(if (and (web-mode-tag-match)
|
||
(web-mode-element-next))
|
||
(setq pos (point))
|
||
(setq pos nil))
|
||
)
|
||
((web-mode-element-next)
|
||
(setq pos (point)))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
) ;save-excursion
|
||
(web-mode-go pos)))
|
||
|
||
(defun web-mode-element-sibling-previous ()
|
||
"Fetch previous sibling element."
|
||
(interactive)
|
||
(let ((pos (point)))
|
||
(save-excursion
|
||
(cond
|
||
((not (get-text-property pos 'tag-type))
|
||
(if (and (web-mode-element-parent)
|
||
(web-mode-tag-previous)
|
||
(web-mode-element-beginning))
|
||
(setq pos (point))
|
||
(setq pos nil))
|
||
)
|
||
((eq (get-text-property pos 'tag-type) 'start)
|
||
(if (and (web-mode-tag-beginning)
|
||
(web-mode-tag-previous)
|
||
(web-mode-element-beginning))
|
||
(setq pos (point))
|
||
(setq pos nil))
|
||
)
|
||
((and (web-mode-element-beginning)
|
||
(web-mode-tag-previous)
|
||
(web-mode-element-beginning))
|
||
(setq pos (point)))
|
||
(t
|
||
(setq pos nil))
|
||
) ;cond
|
||
) ;save-excursion
|
||
(web-mode-go pos)))
|
||
|
||
(defun web-mode-element-beginning ()
|
||
"Move to beginning of element."
|
||
(interactive)
|
||
(web-mode-go (web-mode-element-beginning-position (point))))
|
||
|
||
(defun web-mode-element-end ()
|
||
"Move to end of element."
|
||
(interactive)
|
||
(web-mode-go (web-mode-element-end-position (point)) 1))
|
||
|
||
(defun web-mode-element-parent ()
|
||
"Fetch parent element."
|
||
(interactive)
|
||
(web-mode-go (web-mode-element-parent-position (point))))
|
||
|
||
(defun web-mode-element-child ()
|
||
"Fetch child element."
|
||
(interactive)
|
||
(web-mode-go (web-mode-element-child-position (point))))
|
||
|
||
(defun web-mode-dom-traverse ()
|
||
"Traverse html dom tree."
|
||
(interactive)
|
||
(cond
|
||
((web-mode-element-child)
|
||
)
|
||
((web-mode-element-sibling-next)
|
||
)
|
||
((and (web-mode-element-parent)
|
||
(not (web-mode-element-sibling-next)))
|
||
(goto-char (point-min)))
|
||
(t
|
||
(goto-char (point-min)))
|
||
) ;cond
|
||
)
|
||
|
||
(defun web-mode-closing-paren (limit)
|
||
(let ((pos (web-mode-closing-paren-position (point) limit)))
|
||
(if (or (null pos) (> pos limit))
|
||
nil
|
||
(goto-char pos)
|
||
pos)
|
||
))
|
||
|
||
(defun web-mode-part-next ()
|
||
"Move point to the beginning of the next part."
|
||
(interactive)
|
||
(web-mode-go (web-mode-part-next-position (point))))
|
||
|
||
(defun web-mode-part-beginning ()
|
||
"Move point to the beginning of the current part."
|
||
(interactive)
|
||
(web-mode-go (web-mode-part-beginning-position (point))))
|
||
|
||
(defun web-mode-part-end ()
|
||
"Move point to the end of the current part."
|
||
(interactive)
|
||
(web-mode-go (web-mode-part-end-position (point)) 1))
|
||
|
||
(defun web-mode-block-previous ()
|
||
"Move point to the beginning of the previous block."
|
||
(interactive)
|
||
(web-mode-go (web-mode-block-previous-position (point))))
|
||
|
||
(defun web-mode-block-next ()
|
||
"Move point to the beginning of the next block."
|
||
(interactive)
|
||
(web-mode-go (web-mode-block-next-position (point))))
|
||
|
||
(defun web-mode-block-beginning ()
|
||
"Move point to the beginning of the current block."
|
||
(interactive)
|
||
(web-mode-go (web-mode-block-beginning-position (point))))
|
||
|
||
(defun web-mode-block-end ()
|
||
"Move point to the end of the current block."
|
||
(interactive)
|
||
(web-mode-go (web-mode-block-end-position (point)) 1))
|
||
|
||
(defun web-mode-block-token-beginning ()
|
||
(web-mode-go (web-mode-block-token-beginning-position (point))))
|
||
|
||
(defun web-mode-block-token-end ()
|
||
(web-mode-go (web-mode-block-token-end-position (point)) 1))
|
||
|
||
(defun web-mode-part-token-beginning ()
|
||
(web-mode-go (web-mode-part-token-beginning-position (point))))
|
||
|
||
(defun web-mode-part-token-end ()
|
||
(web-mode-go (web-mode-part-token-end-position (point)) 1))
|
||
|
||
(defun web-mode-block-opening-paren (limit)
|
||
(web-mode-go (web-mode-block-opening-paren-position (point) limit)))
|
||
|
||
(defun web-mode-block-string-beginning (&optional pos block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(web-mode-go (web-mode-block-string-beginning-position pos block-beg)))
|
||
|
||
(defun web-mode-block-statement-beginning (&optional pos block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(web-mode-go (web-mode-block-statement-beginning-position pos block-beg)))
|
||
|
||
(defun web-mode-block-args-beginning (&optional pos block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(web-mode-go (web-mode-block-args-beginning-position pos block-beg)))
|
||
|
||
(defun web-mode-block-calls-beginning (&optional pos block-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless block-beg (setq block-beg (web-mode-block-beginning-position pos)))
|
||
(web-mode-go (web-mode-block-calls-beginning-position pos block-beg)))
|
||
|
||
(defun web-mode-javascript-string-beginning (&optional pos reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless reg-beg
|
||
(if (get-text-property pos 'block-side)
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos))))
|
||
(web-mode-go (web-mode-javascript-string-beginning-position pos reg-beg)))
|
||
|
||
(defun web-mode-javascript-statement-beginning (&optional pos reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless reg-beg
|
||
(if (get-text-property pos 'block-side)
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos))))
|
||
(web-mode-go (web-mode-javascript-statement-beginning-position pos reg-beg)))
|
||
|
||
(defun web-mode-javascript-args-beginning (&optional pos reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless reg-beg
|
||
(if (get-text-property pos 'block-side)
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos))))
|
||
(web-mode-go (web-mode-javascript-args-beginning-position pos reg-beg)))
|
||
|
||
(defun web-mode-javascript-calls-beginning (&optional pos reg-beg)
|
||
(unless pos (setq pos (point)))
|
||
(unless reg-beg
|
||
(if (get-text-property pos 'block-side)
|
||
(setq reg-beg (web-mode-block-beginning-position pos))
|
||
(setq reg-beg (web-mode-part-beginning-position pos))))
|
||
(web-mode-go (web-mode-javascript-calls-beginning-position pos reg-beg)))
|
||
|
||
(defun web-mode-go (pos &optional offset)
|
||
(unless offset (setq offset 0))
|
||
(when pos
|
||
(cond
|
||
((and (> offset 0) (<= (+ pos offset) (point-max)))
|
||
(setq pos (+ pos offset)))
|
||
((and (< offset 0) (>= (+ pos offset) (point-min)))
|
||
(setq pos (+ pos offset)))
|
||
) ;cond
|
||
(goto-char pos))
|
||
pos)
|
||
|
||
;;---- SEARCH ------------------------------------------------------------------
|
||
|
||
(defun web-mode-rsf-balanced (regexp-open regexp-close &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t)
|
||
(level 1)
|
||
(pos (point))
|
||
ret
|
||
(regexp (concat regexp-open "\\|" regexp-close)))
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit noerror))
|
||
(cond
|
||
((null ret)
|
||
(setq continue nil)
|
||
)
|
||
(t
|
||
(if (string-match-p regexp-open (match-string-no-properties 0))
|
||
(setq level (1+ level))
|
||
(setq level (1- level)))
|
||
(when (< level 1)
|
||
(setq continue nil)
|
||
)
|
||
) ;t
|
||
) ;cond
|
||
) ;while
|
||
(when (not (= level 0)) (goto-char pos))
|
||
ret))
|
||
|
||
(defun web-mode-block-sb (expr &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-block-beginning-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-backward expr limit noerror))
|
||
(when (or (null ret)
|
||
(not (get-text-property (point) 'block-token)))
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-block-sf (expr &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-block-end-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-forward expr limit noerror))
|
||
(when (or (null ret)
|
||
(not (get-text-property (point) 'block-token)))
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-block-rsb (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-block-beginning-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-backward regexp limit noerror))
|
||
(when (or (null ret)
|
||
(not (get-text-property (point) 'block-token)))
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-block-rsf (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-block-end-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit noerror))
|
||
(when (or (null ret)
|
||
(not (get-text-property (point) 'block-token)))
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-part-sb (expr &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-beginning-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-backward expr limit noerror))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-part-sf (expr &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-end-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-forward expr limit noerror))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-part-rsb (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-beginning-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-backward regexp limit noerror))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-part-rsf (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-end-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit t))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-javascript-rsb (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-beginning-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-backward regexp limit noerror))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side))
|
||
(not (get-text-property (point) 'jsx-depth)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-javascript-rsf (regexp &optional limit noerror)
|
||
(unless limit (setq limit (web-mode-part-end-position (point))))
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit t))
|
||
(when (or (null ret)
|
||
(and (not (get-text-property (point) 'part-token))
|
||
(not (get-text-property (point) 'block-side))
|
||
(not (get-text-property (point) 'jsx-depth)))
|
||
)
|
||
(setq continue nil)
|
||
) ;when
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-dom-sf (expr &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-forward expr limit noerror))
|
||
(if (or (null ret)
|
||
(not (get-text-property (- (point) (length expr)) 'block-side)))
|
||
(setq continue nil))
|
||
)
|
||
ret))
|
||
|
||
(defun web-mode-dom-rsf (regexp &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) (ret nil))
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit noerror))
|
||
;; (message "ret=%S point=%S limit=%S i=%S" ret (point) limit 0)
|
||
(cond
|
||
((null ret)
|
||
(setq continue nil))
|
||
((or (get-text-property (match-beginning 0) 'block-side)
|
||
(get-text-property (match-beginning 0) 'part-token))
|
||
)
|
||
(t
|
||
(setq continue nil))
|
||
) ;cond
|
||
) ;while
|
||
ret))
|
||
|
||
(defun web-mode-rsb (regexp &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-backward regexp limit noerror))
|
||
(if (or (null ret)
|
||
(not (web-mode-is-comment-or-string)))
|
||
(setq continue nil)))
|
||
ret))
|
||
|
||
(defun web-mode-rsf (regexp &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit noerror))
|
||
(if (or (null ret)
|
||
(not (web-mode-is-comment-or-string)))
|
||
(setq continue nil))
|
||
)
|
||
ret))
|
||
|
||
(defun web-mode-sb (expr &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-backward expr limit noerror))
|
||
(if (or (null ret)
|
||
(not (web-mode-is-comment-or-string)))
|
||
(setq continue nil)))
|
||
ret))
|
||
|
||
(defun web-mode-sf (expr &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret)
|
||
(while continue
|
||
(setq ret (search-forward expr limit noerror))
|
||
(if (or (null ret)
|
||
(not (web-mode-is-comment-or-string)))
|
||
(setq continue nil)))
|
||
ret))
|
||
|
||
(defun web-mode-content-rsf (regexp &optional limit noerror)
|
||
(unless noerror (setq noerror t))
|
||
(let ((continue t) ret beg end)
|
||
(while continue
|
||
(setq ret (re-search-forward regexp limit noerror)
|
||
beg (if (null ret) (point) (match-beginning 0))
|
||
end (if (null ret) (point) (1- (match-end 0))))
|
||
(if (or (null ret)
|
||
(and (web-mode-is-content beg)
|
||
(web-mode-is-content end)))
|
||
(setq continue nil)))
|
||
ret))
|
||
|
||
;;---- ADVICES -----------------------------------------------------------------
|
||
|
||
(defadvice ac-start (before web-mode-set-up-ac-sources activate)
|
||
"Set `ac-sources' based on current language before running auto-complete."
|
||
(when (equal major-mode 'web-mode)
|
||
;; set ignore each time to nil. User has to implement a hook to change it
|
||
;; for each completion
|
||
(setq web-mode-ignore-ac-start-advice nil)
|
||
(run-hooks 'web-mode-before-auto-complete-hooks)
|
||
(unless web-mode-ignore-ac-start-advice
|
||
(when web-mode-ac-sources-alist
|
||
(let ((new-web-mode-ac-sources
|
||
(assoc (web-mode-language-at-pos)
|
||
web-mode-ac-sources-alist)))
|
||
(setq ac-sources (cdr new-web-mode-ac-sources)))))))
|
||
|
||
;;---- MINOR MODE ADDONS -------------------------------------------------------
|
||
|
||
(defun web-mode-yasnippet-exit-hook ()
|
||
"Yasnippet exit hook"
|
||
(when (and (boundp 'yas-snippet-beg) (boundp 'yas-snippet-end))
|
||
(indent-region yas-snippet-beg yas-snippet-end)))
|
||
|
||
(defun web-mode-imenu-index ()
|
||
(interactive)
|
||
"Returns imenu items."
|
||
(let (toc-index
|
||
line)
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(while (not (eobp))
|
||
(setq line (buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position)))
|
||
(let (found
|
||
(i 0)
|
||
item
|
||
regexp
|
||
type
|
||
type-idx
|
||
content
|
||
content-idx
|
||
content-regexp
|
||
close-tag-regexp
|
||
concat-str
|
||
jumpto
|
||
str)
|
||
(while (and (not found ) (< i (length web-mode-imenu-regexp-list)))
|
||
(setq item (nth i web-mode-imenu-regexp-list))
|
||
(setq regexp (nth 0 item))
|
||
(setq type-idx (nth 1 item))
|
||
(setq content-idx (nth 2 item))
|
||
(setq concat-str (nth 3 item))
|
||
(when (not (numberp content-idx))
|
||
(setq content-regexp (nth 2 item)
|
||
close-tag-regexp (nth 4 item)
|
||
content-idx nil))
|
||
|
||
(when (string-match regexp line)
|
||
|
||
(cond
|
||
(content-idx
|
||
(setq type (match-string type-idx line))
|
||
(setq content (match-string content-idx line))
|
||
(setq str (concat type concat-str content))
|
||
(setq jumpto (line-beginning-position)))
|
||
(t
|
||
(let (limit)
|
||
(setq type (match-string type-idx line))
|
||
(goto-char (line-beginning-position))
|
||
(save-excursion
|
||
(setq limit (re-search-forward close-tag-regexp (point-max) t)))
|
||
|
||
(when limit
|
||
(when (re-search-forward content-regexp limit t)
|
||
(setq content (match-string 1))
|
||
(setq str (concat type concat-str content))
|
||
(setq jumpto (line-beginning-position))
|
||
)
|
||
)))
|
||
)
|
||
(when str (setq toc-index
|
||
(cons (cons str jumpto)
|
||
toc-index)
|
||
)
|
||
(setq found t))
|
||
)
|
||
(setq i (1+ i))))
|
||
(forward-line)
|
||
(goto-char (line-end-position)) ;; make sure we are at eobp
|
||
))
|
||
(nreverse toc-index)))
|
||
|
||
;;---- UNIT TESTING ------------------------------------------------------------
|
||
|
||
(defun web-mode-test ()
|
||
"Executes web-mode unit tests. See `web-mode-tests-directory'."
|
||
(interactive)
|
||
(let (files ret regexp)
|
||
(setq regexp "^[[:alnum:]][[:alnum:]._]+\\'")
|
||
(setq files (directory-files web-mode-tests-directory t regexp))
|
||
(dolist (file files)
|
||
(cond
|
||
((eq (string-to-char (file-name-nondirectory file)) ?\_)
|
||
(delete-file file))
|
||
(t
|
||
(setq ret (web-mode-test-process file)))
|
||
) ;cond
|
||
) ;dolist
|
||
))
|
||
|
||
(defun web-mode-test-process (file)
|
||
(with-temp-buffer
|
||
(let (out sig1 sig2 success err)
|
||
(setq-default indent-tabs-mode nil)
|
||
(if (string-match-p "sql" file)
|
||
(setq web-mode-enable-sql-detection t)
|
||
(setq web-mode-enable-sql-detection nil))
|
||
(insert-file-contents file)
|
||
(set-visited-file-name file)
|
||
(web-mode)
|
||
(setq sig1 (md5 (current-buffer)))
|
||
(delete-horizontal-space)
|
||
(while (not (eobp))
|
||
(forward-line)
|
||
(delete-horizontal-space)
|
||
(end-of-line))
|
||
(web-mode-buffer-indent)
|
||
(setq sig2 (md5 (current-buffer)))
|
||
(setq success (string= sig1 sig2))
|
||
(setq out (concat (if success "ok" "ko") " : " (file-name-nondirectory file)))
|
||
(message out)
|
||
(setq err (concat (file-name-directory file) "_err." (file-name-nondirectory file)))
|
||
(if success
|
||
(when (file-readable-p err)
|
||
(delete-file err))
|
||
(write-file err)
|
||
(message "[%s]" (buffer-string))
|
||
) ;if
|
||
out)))
|
||
|
||
;;---- MISC --------------------------------------------------------------------
|
||
|
||
(defun web-mode-set-engine (engine)
|
||
"Set the engine for the current buffer."
|
||
(interactive
|
||
(list (completing-read
|
||
"Engine: "
|
||
(let (engines)
|
||
(dolist (elt web-mode-engines)
|
||
(setq engines (append engines (list (car elt)))))
|
||
engines))))
|
||
(setq web-mode-content-type "html"
|
||
web-mode-engine (web-mode-engine-canonical-name engine)
|
||
web-mode-minor-engine engine)
|
||
(web-mode-on-engine-setted)
|
||
(web-mode-buffer-highlight))
|
||
|
||
(defun web-mode-set-content-type (content-type)
|
||
"Set the content-type for the current buffer"
|
||
(interactive (list (completing-read "Content-type: " web-mode-part-content-types)))
|
||
(setq web-mode-content-type content-type)
|
||
(when (called-interactively-p 'any)
|
||
)
|
||
(web-mode-buffer-highlight))
|
||
|
||
(defun web-mode-on-engine-setted ()
|
||
(let (elt elts engines)
|
||
|
||
(when (string= web-mode-engine "razor") (setq web-mode-enable-block-face t))
|
||
(setq web-mode-engine-attr-regexp (cdr (assoc web-mode-engine web-mode-engine-attr-regexps)))
|
||
(setq web-mode-engine-token-regexp (cdr (assoc web-mode-engine web-mode-engine-token-regexps)))
|
||
|
||
;;(message "%S %S" web-mode-engine-attr-regexp web-mode-engine)
|
||
|
||
(when (null web-mode-minor-engine)
|
||
(setq web-mode-minor-engine "none"))
|
||
|
||
(setq elt (assoc web-mode-engine web-mode-engine-open-delimiter-regexps))
|
||
(if elt
|
||
(setq web-mode-block-regexp (cdr elt))
|
||
(setq web-mode-engine "none"))
|
||
|
||
(unless (boundp 'web-mode-extra-auto-pairs)
|
||
(setq web-mode-extra-auto-pairs nil))
|
||
|
||
(setq web-mode-auto-pairs
|
||
(append
|
||
(cdr (assoc web-mode-engine web-mode-engines-auto-pairs))
|
||
(cdr (assoc nil web-mode-engines-auto-pairs))
|
||
(cdr (assoc web-mode-engine web-mode-extra-auto-pairs))
|
||
(cdr (assoc nil web-mode-extra-auto-pairs))))
|
||
|
||
(unless (boundp 'web-mode-extra-snippets)
|
||
(setq web-mode-extra-snippets nil))
|
||
|
||
(setq elts
|
||
(append
|
||
(cdr (assoc web-mode-engine web-mode-extra-snippets))
|
||
(cdr (assoc nil web-mode-extra-snippets))
|
||
(cdr (assoc web-mode-engine web-mode-engines-snippets))
|
||
(cdr (assoc nil web-mode-engines-snippets))))
|
||
|
||
(dolist (elt elts)
|
||
(unless (assoc (car elt) web-mode-snippets)
|
||
(setq web-mode-snippets (append (list elt) web-mode-snippets)))
|
||
)
|
||
|
||
(setq web-mode-engine-font-lock-keywords
|
||
(symbol-value (cdr (assoc web-mode-engine web-mode-engines-font-lock-keywords))))
|
||
|
||
(when (and (string= web-mode-minor-engine "jinja")
|
||
(not (member "endtrans" web-mode-django-control-blocks)))
|
||
(add-to-list 'web-mode-django-control-blocks "endtrans")
|
||
(setq web-mode-django-control-blocks-regexp
|
||
(regexp-opt web-mode-django-control-blocks t))
|
||
)
|
||
|
||
;; (message "%S" (symbol-value (cdr (assoc web-mode-engine web-mode-engines-font-lock-keywords))))
|
||
|
||
))
|
||
|
||
(defun web-mode-detect-engine ()
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(when (re-search-forward "-\\*- engine:[ ]*\\([[:alnum:]-]+\\)[ ]*-\\*-" web-mode-chunk-length t)
|
||
(setq web-mode-minor-engine (match-string-no-properties 1))
|
||
(setq web-mode-engine (web-mode-engine-canonical-name web-mode-minor-engine)))
|
||
web-mode-minor-engine))
|
||
|
||
(defun web-mode-guess-engine-and-content-type ()
|
||
(let (buff-name elt found)
|
||
|
||
(setq buff-name (buffer-file-name))
|
||
(unless buff-name (setq buff-name (buffer-name)))
|
||
(setq web-mode-is-scratch (string= buff-name "*scratch*"))
|
||
(setq web-mode-content-type nil)
|
||
|
||
(when (boundp 'web-mode-content-types-alist)
|
||
(setq found nil)
|
||
(dolist (elt web-mode-content-types-alist)
|
||
(when (and (not found) (string-match-p (cdr elt) buff-name))
|
||
(setq web-mode-content-type (car elt)
|
||
found t))
|
||
) ;dolist
|
||
) ;when
|
||
|
||
(unless web-mode-content-type
|
||
(setq found nil)
|
||
(dolist (elt web-mode-content-types)
|
||
(when (and (not found) (string-match-p (cdr elt) buff-name))
|
||
(setq web-mode-content-type (car elt)
|
||
found t))
|
||
) ;dolist
|
||
) ;unless
|
||
|
||
(when (boundp 'web-mode-engines-alist)
|
||
(setq found nil)
|
||
(dolist (elt web-mode-engines-alist)
|
||
(cond
|
||
((stringp (cdr elt))
|
||
(when (string-match-p (cdr elt) buff-name)
|
||
(setq web-mode-engine (car elt))))
|
||
((functionp (cdr elt))
|
||
(when (funcall (cdr elt))
|
||
(setq web-mode-engine (car elt))))
|
||
) ;cond
|
||
) ;dolist
|
||
) ;when
|
||
|
||
(unless web-mode-engine
|
||
(setq found nil)
|
||
(dolist (elt web-mode-engine-file-regexps)
|
||
;;(message "%S %S" (cdr elt) buff-name)
|
||
(when (and (not found) (string-match-p (cdr elt) buff-name))
|
||
(setq web-mode-engine (car elt)
|
||
found t))
|
||
)
|
||
)
|
||
|
||
(when (and (or (null web-mode-engine) (string= web-mode-engine "none"))
|
||
(string-match-p "php" (buffer-substring-no-properties
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
(setq web-mode-engine "php"))
|
||
|
||
(when (and (string= web-mode-content-type "javascript")
|
||
(string-match-p "@jsx"
|
||
(buffer-substring-no-properties
|
||
(point-min)
|
||
(if (< (point-max) web-mode-chunk-length)
|
||
(point-max)
|
||
web-mode-chunk-length)
|
||
)))
|
||
(setq web-mode-content-type "jsx"))
|
||
|
||
(when web-mode-engine
|
||
(setq web-mode-minor-engine web-mode-engine
|
||
web-mode-engine (web-mode-engine-canonical-name web-mode-engine))
|
||
)
|
||
|
||
(when (and (or (null web-mode-engine)
|
||
(string= web-mode-engine "none"))
|
||
web-mode-enable-engine-detection)
|
||
(web-mode-detect-engine))
|
||
|
||
(web-mode-on-engine-setted)
|
||
|
||
))
|
||
|
||
(defun web-mode-engine-canonical-name (name)
|
||
(let (engine)
|
||
(cond
|
||
((null name)
|
||
nil)
|
||
((assoc name web-mode-engines)
|
||
name)
|
||
(t
|
||
(dolist (elt web-mode-engines)
|
||
(when (and (null engine) (member name (cdr elt)))
|
||
(setq engine (car elt)))
|
||
) ;dolist
|
||
engine)
|
||
)))
|
||
|
||
(defun web-mode-on-after-save ()
|
||
(when web-mode-is-scratch
|
||
(web-mode-guess-engine-and-content-type)
|
||
(web-mode-buffer-highlight))
|
||
nil)
|
||
|
||
(defun web-mode-on-exit ()
|
||
(web-mode-with-silent-modifications
|
||
(put-text-property (point-min) (point-max) 'invisible nil)
|
||
(remove-overlays)
|
||
(remove-hook 'change-major-mode-hook 'web-mode-on-exit t)
|
||
))
|
||
|
||
(defun web-mode-reload ()
|
||
"Reload web-mode."
|
||
(interactive)
|
||
(web-mode-with-silent-modifications
|
||
(put-text-property (point-min) (point-max) 'invisible nil)
|
||
(remove-overlays)
|
||
(setq font-lock-unfontify-region-function 'font-lock-default-unfontify-region)
|
||
(load "web-mode.el")
|
||
(setq web-mode-change-beg nil
|
||
web-mode-change-end nil)
|
||
(web-mode)
|
||
))
|
||
|
||
(defun web-mode-trace (msg)
|
||
(let (sub)
|
||
;; (when (null web-mode-time) (setq web-mode-time (current-time)))
|
||
(setq sub (time-subtract (current-time) web-mode-time))
|
||
(when nil
|
||
(save-excursion
|
||
(let ((n 0))
|
||
(goto-char (point-min))
|
||
(while (web-mode-tag-next)
|
||
(setq n (1+ n))
|
||
)
|
||
(message "%S tags found" n)
|
||
)))
|
||
(message "%18s: time elapsed = %Ss %9Sµs" msg (nth 1 sub) (nth 2 sub))
|
||
))
|
||
|
||
(defun web-mode-reveal ()
|
||
"Display text properties at point."
|
||
(interactive)
|
||
(let (symbols out)
|
||
(setq out (format
|
||
"[point=%S engine=%S minor=%S content-type=%S language-at-pos=%S]\n"
|
||
(point)
|
||
web-mode-engine
|
||
web-mode-minor-engine
|
||
web-mode-content-type
|
||
(web-mode-language-at-pos (point))))
|
||
(setq symbols (append web-mode-scan-properties '(font-lock-face face)))
|
||
(dolist (symbol symbols)
|
||
(when symbol
|
||
(setq out (concat out (format "%s(%S) " (symbol-name symbol) (get-text-property (point) symbol)))))
|
||
)
|
||
(message "%s\n" out)
|
||
;;(message "syntax-class=%S" (syntax-class (syntax-after (point))))
|
||
(message nil)))
|
||
|
||
(defun web-mode-debug ()
|
||
"Display informations useful for debugging."
|
||
(interactive)
|
||
(let ((modes nil)
|
||
(customs '(web-mode-enable-current-column-highlight web-mode-enable-current-element-highlight indent-tabs-mode))
|
||
(ignore '(abbrev-mode auto-composition-mode auto-compression-mode auto-encryption-mode auto-insert-mode blink-cursor-mode column-number-mode delete-selection-mode display-time-mode electric-indent-mode file-name-shadow-mode font-lock-mode global-font-lock-mode global-hl-line-mode line-number-mode menu-bar-mode mouse-wheel-mode recentf-mode show-point-mode tool-bar-mode tooltip-mode transient-mark-mode)))
|
||
(message "\n")
|
||
(message "--- WEB-MODE DEBUG BEG ---")
|
||
(message "versions: emacs(%S.%S) web-mode(%S)"
|
||
emacs-major-version emacs-minor-version web-mode-version)
|
||
(message "vars: engine(%S) minor(%S) content-type(%S) file(%S)"
|
||
web-mode-engine
|
||
web-mode-minor-engine
|
||
web-mode-content-type
|
||
(or (buffer-file-name) (buffer-name)))
|
||
(message "system: window(%S) config(%S)" window-system system-configuration)
|
||
(message "colors: fg(%S) bg(%S) "
|
||
(cdr (assoc 'foreground-color default-frame-alist))
|
||
(cdr (assoc 'background-color default-frame-alist)))
|
||
(mapc (lambda (mode)
|
||
(condition-case nil
|
||
(if (and (symbolp mode) (symbol-value mode) (not (member mode ignore)))
|
||
(add-to-list 'modes mode))
|
||
(error nil))
|
||
) ;lambda
|
||
minor-mode-list)
|
||
(message "minor modes: %S" modes)
|
||
(message "vars:")
|
||
(dolist (custom customs)
|
||
(message (format "%s=%S " (symbol-name custom) (symbol-value custom))))
|
||
(message "--- WEB-MODE DEBUG END ---")
|
||
(switch-to-buffer "*Messages*")
|
||
(goto-char (point-max))
|
||
(recenter)
|
||
))
|
||
|
||
(provide 'web-mode)
|
||
|
||
;;; web-mode.el ends here
|
||
|
||
;; Local Variables:
|
||
;; coding: utf-8
|
||
;; indent-tabs-mode: nil
|
||
;; End:
|