css-mode-expansions.el (1832B)
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