1  ;;; web-mode-expansions.el --- Thin layer for adapting fxbois's web-mode-mark-and-expand function  -*- lexical-binding: t; -*-
 2  ;;; to expand-region
 3  
 4  ;; Copyright (C) 2012-2023  Free Software Foundation, Inc
 5  
 6  ;; Authors: Rotem Yaari
 7  ;; Based on, and makes use of web-mode.el by fxbois
 8  
 9  ;; This program is free software; you can redistribute it and/or modify
10  ;; it under the terms of the GNU General Public License as published by
11  ;; the Free Software Foundation, either version 3 of the License, or
12  ;; (at your option) any later version.
13  
14  ;; This program is distributed in the hope that it will be useful,
15  ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16  ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  ;; GNU General Public License for more details.
18  
19  ;; You should have received a copy of the GNU General Public License
20  ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
21  
22  ;;; Code:
23  
24  (require 'expand-region-core)
25  
26  (defun er/add-web-mode-expansions ()
27    (set (make-local-variable 'er/try-expand-list)
28         (cons 'web-mode-mark-and-expand er/try-expand-list)))
29  
30  (er/enable-mode-expansions 'web-mode #'er/add-web-mode-expansions)
31  
32  (provide 'web-mode-expansions)