0ee42c1df0
+ Enables web-mode's autopairing functionality + Prevents duplicate >'s after web-mode autopairing. + Leave longer-than-3-character pairs to smartparens (there was only <!-- -->) + Remove <?p -> <?php | ?> autopairer. Leave that to snippets (web-mode doesn't support prefixes longer than 3 letters, and <?php ?> is too much of a performance drain to have smartparens support it, so I added a "php" snippet that expands to <?php | ?>). + Tags now auto-close when you finish typing the opening tag. (web-mode-auto-close-style = 2)
118 lines
5.5 KiB
EmacsLisp
118 lines
5.5 KiB
EmacsLisp
;;; lang/web/+html.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! web-mode
|
|
:mode "\\.p?html?$"
|
|
:mode "\\.\\(?:tpl\\|blade\\)\\(\\.php\\)?$"
|
|
:mode "\\.erb$"
|
|
:mode "\\.jsp$"
|
|
:mode "\\.as[cp]x$"
|
|
:mode "\\.hbs$"
|
|
:mode "\\.mustache$"
|
|
:mode "\\.tsx$"
|
|
:mode "\\.vue$"
|
|
:mode "\\.twig$"
|
|
:mode "\\.jinja$"
|
|
:mode "wp-content/themes/.+/.+\\.php$"
|
|
:mode "templates/.+\\.php$"
|
|
:config
|
|
(setq web-mode-enable-html-entities-fontification t
|
|
web-mode-auto-close-style 2)
|
|
|
|
(after! smartparens
|
|
;; let smartparens handle these
|
|
(setq web-mode-enable-auto-quoting nil
|
|
web-mode-enable-auto-pairing t)
|
|
;; Remove web-mode auto pairs that end with >, because smartparens autopairs
|
|
;; them, causing duplicates. Also remove truncated autopairs, like <?p and
|
|
;; hp ?>.
|
|
(dolist (alist web-mode-engines-auto-pairs)
|
|
(setcdr alist (delq nil
|
|
(mapcar (lambda (pair)
|
|
(unless (string-match-p "^[a-z-]" (cdr pair))
|
|
(cons (car pair)
|
|
(if (equal (substring (cdr pair) -1) ">")
|
|
(substring (cdr pair) 0 -1)
|
|
(cdr pair)))))
|
|
(cdr alist)))))
|
|
(setf (alist-get nil web-mode-engines-auto-pairs) nil))
|
|
|
|
(map! :map web-mode-map
|
|
(:localleader
|
|
:desc "Rehighlight buffer" :n "h" #'web-mode-buffer-highlight
|
|
:desc "Indent buffer" :n "i" #'web-mode-buffer-indent
|
|
|
|
(:desc "attribute" :prefix "a"
|
|
:desc "Beginning" :n "b" #'web-mode-attribute-beginning
|
|
:desc "End" :n "e" #'web-mode-attribute-end
|
|
:desc "Insert" :n "i" #'web-mode-attribute-insert
|
|
:desc "Next" :n "n" #'web-mode-attribute-next
|
|
:desc "Select" :n "s" #'web-mode-attribute-select
|
|
:desc "Kill" :n "k" #'web-mode-attribute-kill
|
|
:desc "Previous" :n "p" #'web-mode-attribute-previous
|
|
:desc "Transpose" :n "p" #'web-mode-attribute-transpose)
|
|
|
|
(:desc "block" :prefix "b"
|
|
:desc "Beginning" :n "b" #'web-mode-block-beginning
|
|
:desc "Close" :n "c" #'web-mode-block-close
|
|
:desc "End" :n "e" #'web-mode-block-end
|
|
:desc "Kill" :n "k" #'web-mode-block-kill
|
|
:desc "Next" :n "n" #'web-mode-block-next
|
|
:desc "Previous" :n "p" #'web-mode-block-previous
|
|
:desc "Select" :n "s" #'web-mode-block-select)
|
|
|
|
(:desc "dom" :prefix "d"
|
|
:desc "Replace apostrophes" :n "a" #'web-mode-dom-apostrophes-replace
|
|
:desc "Show errors" :n "d" #'web-mode-dom-errors-show
|
|
:desc "Replace entities" :n "e" #'web-mode-dom-entities-encode
|
|
:desc "Normalize" :n "n" #'web-mode-dom-normalize
|
|
:desc "Replace quotes" :n "q" #'web-mode-dom-quotes-replace
|
|
:desc "Traverse" :n "t" #'web-mode-dom-traverse
|
|
:desc "XPath" :n "x" #'web-mode-dom-xpath)
|
|
|
|
(:desc "element" :prefix "e"
|
|
:desc "Close" :n "/" #'web-mode-element-close
|
|
:desc "Select content" :n "a" #'web-mode-element-content-select
|
|
:desc "Beginning" :n "b" #'web-mode-element-beginning
|
|
:desc "Close" :n "c" #'web-mode-element-clone
|
|
:desc "Child" :n "d" #'web-mode-element-child
|
|
:desc "End" :n "e" #'web-mode-element-end
|
|
:desc "Toggle fold" :n "f" #'web-mode-element-children-fold-or-unfold
|
|
:desc "Insert" :n "i" #'web-mode-element-insert
|
|
:desc "Kill" :n "k" #'web-mode-element-kill
|
|
:desc "Mute blanks" :n "m" #'web-mode-element-mute-blanks
|
|
:desc "Next" :n "n" #'web-mode-element-next
|
|
:desc "Previous" :n "p" #'web-mode-element-previous
|
|
:desc "Rename" :n "r" #'web-mode-element-rename
|
|
:desc "Select" :n "s" #'web-mode-element-select
|
|
:desc "Transpose" :n "t" #'web-mode-element-transpose
|
|
:desc "Parent" :n "u" #'web-mode-element-parent
|
|
:desc "Vanish" :n "v" #'web-mode-element-vanish
|
|
:desc "Wrap" :n "w" #'web-mode-element-wrap)
|
|
|
|
(:desc "tag" :prefix "t"
|
|
:desc "Sort attributes" :n "a" #'web-mode-tag-attributes-sort
|
|
:desc "Beginning" :n "b" #'web-mode-tag-beginning
|
|
:desc "End" :n "e" #'web-mode-tag-end
|
|
:desc "Match" :n "m" #'web-mode-tag-match
|
|
:desc "Next" :n "n" #'web-mode-tag-next
|
|
:desc "Previous" :n "p" #'web-mode-tag-previous
|
|
:desc "Select" :n "s" #'web-mode-tag-select))
|
|
|
|
"M-/" #'web-mode-comment-or-uncomment
|
|
:i "SPC" #'self-insert-command
|
|
:n "za" #'web-mode-fold-or-unfold
|
|
:nv "]a" #'web-mode-attribute-next
|
|
:nv "[a" #'web-mode-attribute-previous
|
|
:nv "]t" #'web-mode-tag-next
|
|
:nv "[t" #'web-mode-tag-previous
|
|
:nv "]T" #'web-mode-element-child
|
|
:nv "[T" #'web-mode-element-parent))
|
|
|
|
|
|
;;
|
|
(after! pug-mode
|
|
(set-company-backend! 'pug-mode 'company-web-jade))
|
|
(after! web-mode
|
|
(set-company-backend! 'web-mode 'company-web-html))
|
|
(after! slim-mode
|
|
(set-company-backend! 'slim-mode 'company-web-slim))
|