doomemacs/modules/lang/web/+html.el

142 lines
5.3 KiB
EmacsLisp
Raw Normal View History

;;; lang/web/+html.el -*- lexical-binding: t; -*-
2017-02-19 18:57:16 -05:00
(def-package! web-mode
:mode "\\.p?html?$"
2018-05-07 18:18:07 +02:00
:mode "\\.\\(?:tpl\\|blade\\)\\(\\.php\\)?$"
:mode "\\.erb$"
:mode "\\.jsp$"
:mode "\\.as[cp]x$"
2018-05-25 18:13:28 +01:00
:mode "\\.hbs$"
:mode "\\.mustache$"
:mode "\\.tsx$"
:mode "\\.vue$"
:mode "\\.twig$"
2018-05-17 12:26:42 +02:00
:mode "\\.jinja$"
:mode "wp-content/themes/.+/.+\\.php$"
:mode "templates/.+\\.php$"
2017-02-19 18:57:16 -05:00
:config
(set-docsets! 'web-mode "HTML" "CSS" "Twig" "WordPress")
;; tidy is already defined by the format-all package. We redefine it to add
;; more sensible arguments to the tidy command.
(set-formatter! 'html-tidy
'("tidy" "-q" "-indent"
"--tidy-mark" "no"
"--drop-empty-elements" "no"
"--show-body-only" "auto" ; don't inject html/body tags
("--indent-spaces" "%d" tab-width)
("--indent-with-tabs" "%s" (if indent-tabs-mode "yes" "no"))
("-xml" (memq major-mode '(nxml-mode xml-mode))))
:ok-statuses '(0 1))
(setq web-mode-enable-html-entities-fontification t
web-mode-auto-close-style 2)
(after! smartparens
(defun +web-is-auto-close-style-3 (_id action _context)
(and (eq action 'insert)
(eq web-mode-auto-close-style 3)))
(sp-local-pair 'web-mode "<" nil :unless '(:add +web-is-auto-close-style-3))
;; let smartparens handle these
(setq web-mode-enable-auto-quoting nil
web-mode-enable-auto-pairing t)
;; 1. Remove web-mode auto pairs whose end pair starts with a latter
;; (truncated autopairs like <?p and hp ?>). Smartparens handles these
;; better.
;; 2. Strips out extra closing pairs to prevent redundant characters
;; inserted by smartparens.
(dolist (alist web-mode-engines-auto-pairs)
(setcdr alist
(cl-loop for pair in (cdr alist)
unless (string-match-p "^[a-z-]" (cdr pair))
collect (cons (car pair)
;; TODO Replace with `string-trim-right' (Emacs 26+)
2018-08-16 02:18:44 +02:00
(let ((string (cdr pair)))
(if (string-match "\\(?:>\\|]\\|}\\)+\\'" string)
(replace-match "" t t string)
string))))))
(delq (assq nil web-mode-engines-auto-pairs) web-mode-engines-auto-pairs))
2017-02-19 18:57:16 -05:00
(map! :map web-mode-map
(:localleader
:desc "Rehighlight buffer" :n "h" #'web-mode-buffer-highlight
:desc "Indent buffer" :n "i" #'web-mode-buffer-indent
(:prefix "a"
:n "b" #'web-mode-attribute-beginning
:n "e" #'web-mode-attribute-end
:n "i" #'web-mode-attribute-insert
:n "n" #'web-mode-attribute-next
:n "s" #'web-mode-attribute-select
:n "k" #'web-mode-attribute-kill
:n "p" #'web-mode-attribute-previous
:n "p" #'web-mode-attribute-transpose)
(:prefix "b"
:n "b" #'web-mode-block-beginning
:n "c" #'web-mode-block-close
:n "e" #'web-mode-block-end
:n "k" #'web-mode-block-kill
:n "n" #'web-mode-block-next
:n "p" #'web-mode-block-previous
:n "s" #'web-mode-block-select)
(:prefix "d"
:n "a" #'web-mode-dom-apostrophes-replace
:n "d" #'web-mode-dom-errors-show
:n "e" #'web-mode-dom-entities-encode
:n "n" #'web-mode-dom-normalize
:n "q" #'web-mode-dom-quotes-replace
:n "t" #'web-mode-dom-traverse
:n "x" #'web-mode-dom-xpath)
(:prefix "e"
:n "/" #'web-mode-element-close
:n "a" #'web-mode-element-content-select
:n "b" #'web-mode-element-beginning
:n "c" #'web-mode-element-clone
:n "d" #'web-mode-element-child
:n "e" #'web-mode-element-end
:n "f" #'web-mode-element-children-fold-or-unfold
:n "i" #'web-mode-element-insert
:n "k" #'web-mode-element-kill
:n "m" #'web-mode-element-mute-blanks
:n "n" #'web-mode-element-next
:n "p" #'web-mode-element-previous
:n "r" #'web-mode-element-rename
:n "s" #'web-mode-element-select
:n "t" #'web-mode-element-transpose
:n "u" #'web-mode-element-parent
:n "v" #'web-mode-element-vanish
:n "w" #'web-mode-element-wrap)
(:prefix "t"
:n "a" #'web-mode-tag-attributes-sort
:n "b" #'web-mode-tag-beginning
:n "e" #'web-mode-tag-end
:n "m" #'web-mode-tag-match
:n "n" #'web-mode-tag-next
:n "p" #'web-mode-tag-previous
: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))
2017-02-19 18:57:16 -05:00
;;
(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))