diff --git a/modules/lang/web/autoload/html.el b/modules/lang/web/autoload/html.el
index 4afdb1cb6..cd9093fb5 100644
--- a/modules/lang/web/autoload/html.el
+++ b/modules/lang/web/autoload/html.el
@@ -105,3 +105,18 @@ function @ http://ergoemacs.org/emacs/elisp_replace_html_entities_command.html"
"Decode HTML entities in region."
(interactive "r")
(+web--entities-region beg end t))
+
+;;;###autoload
+(defun +web/indent-or-yas-or-emmet-expand ()
+ "Invoke `indent-for-tab-command' if at or before text bol, `yas-expand' if on
+a snippet, or `emmet-expand-yas'/`emmet-expand-line', depending on whether
+`yas-minor-mode' is enabled or not."
+ (interactive)
+ (call-interactively
+ (cond ((<= (current-column) (current-indentation))
+ #'indent-for-tab-command)
+ ((bound-and-true-p yas-minor-mode)
+ (if (yas--templates-for-key-at-point)
+ #'yas-expand
+ #'emmet-expand-yas))
+ (#'emmet-expand-line))))
diff --git a/modules/lang/web/config.el b/modules/lang/web/config.el
index a539e3185..e6aebcfa5 100644
--- a/modules/lang/web/config.el
+++ b/modules/lang/web/config.el
@@ -16,14 +16,15 @@
(def-package! emmet-mode
:commands emmet-mode
:preface (defvar emmet-mode-keymap (make-sparse-keymap))
- :hook (css-mode web-mode html-mode haml-mode nxml-mode rjsx-mode)
+ :hook (css-mode web-mode html-mode haml-mode nxml-mode rjsx-mode reason-mode)
:config
+ (when (require 'yasnippet nil t)
+ (add-hook 'emmet-mode-hook #'yas-minor-mode-on))
(setq emmet-move-cursor-between-quotes t)
- (add-hook! 'rjsx-mode-hook
- (setq-local emmet-expand-jsx-className? t))
+ (setq-hook! 'rjsx-mode-hook emmet-expand-jsx-className? t)
(map! :map emmet-mode-keymap
- :v "M-e" #'emmet-wrap-with-markup
- :i "M-e" #'emmet-expand-yas
+ :v [tab] #'emmet-wrap-with-markup
+ :i [tab] #'+web/indent-or-yas-or-emmet-expand
:i "M-E" #'emmet-expand-line))