1  ;;; css-mode-expansions.el --- CSS-specific expansions for expand-region  -*- lexical-binding: t; -*-
 2  
 3  ;; Copyright (C) 2011-2023  Free Software Foundation, Inc
 4  
 5  ;; Author: Magnar Sveen <magnars@gmail.com>
 6  ;; Keywords: marking region
 7  
 8  ;; This program is free software; you can redistribute it and/or modify
 9  ;; it under the terms of the GNU General Public License as published by
10  ;; the Free Software Foundation, either version 3 of the License, or
11  ;; (at your option) any later version.
12  
13  ;; This program is distributed in the hope that it will be useful,
14  ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15  ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  ;; GNU General Public License for more details.
17  
18  ;; You should have received a copy of the GNU General Public License
19  ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
20  
21  ;;; Commentary:
22  
23  ;; For now I have only found the need for mark-css-declaration.
24  ;;
25  ;; Feel free to contribute any other expansions for CSS at
26  ;;
27  ;;     https://github.com/magnars/expand-region.el
28  
29  ;;; Code:
30  
31  (require 'expand-region-core)
32  
33  (defun er/mark-css-declaration ()
34    "Marks one CSS declaration, eg. font-weight: bold;"
35    (interactive)
36    (search-backward-regexp "[;{] ?" (line-beginning-position))
37    (forward-char)
38    (set-mark (point))
39    (search-forward ";" (line-end-position))
40    (exchange-point-and-mark))
41  
42  (defun er/add-css-mode-expansions ()
43    "Adds CSS-specific expansions for buffers in css-mode"
44    (set (make-local-variable 'er/try-expand-list) (append
45                                                    er/try-expand-list
46                                                    '(er/mark-css-declaration))))
47  
48  (er/enable-mode-expansions 'css-mode #'er/add-css-mode-expansions)
49  
50  (provide 'css-mode-expansions)
51  
52  ;; css-mode-expansions.el ends here