From f76981a7b12b293828b0f71a62d92cb1d5f8317c Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 11 Jan 2017 23:56:12 +0100 Subject: [PATCH] Add command to toggle !important CSS flag --- emacs/.emacs.d/init/oni-css-mode-init.org | 41 +++++++++++++++++++++++ 1 file changed, 41 insertions(+) diff --git a/emacs/.emacs.d/init/oni-css-mode-init.org b/emacs/.emacs.d/init/oni-css-mode-init.org index e5531e3..447f9ec 100644 --- a/emacs/.emacs.d/init/oni-css-mode-init.org +++ b/emacs/.emacs.d/init/oni-css-mode-init.org @@ -45,3 +45,44 @@ regexps. (add-to-list 'compilation-error-regexp-alist (list oni:scss-error-regexp 2 1 nil 2 2))) #+END_SRC + +Add a command to toggle the =!important= flag on CSS properties. + +#+BEGIN_SRC emacs-lisp + (defun oni:css-property-important-p () + "Return whether or not the current property is important." + (save-excursion + (beginning-of-line) + (re-search-forward "!important" (line-end-position) :noerror))) + + (defun oni:css-add-important () + "Add an important flag to the property on the current line." + (interactive) + (unless (oni:css-property-important-p) + (save-excursion + (end-of-line) + (when (re-search-backward ";" (line-beginning-position) :noerror) + (insert " !important"))))) + + (defun oni:css-remove-important () + "Remove the important flag from the property on the current line." + (interactive) + (when (oni:css-property-important-p) + (save-excursion + (end-of-line) + (when (re-search-backward " !important" (line-beginning-position) :noerror) + (replace-match ""))))) + + (defun oni:css-toggle-important () + "Toggle the important flag on the property on the current line." + (interactive) + (if (oni:css-property-important-p) + (oni:css-remove-important) + (oni:css-add-important))) +#+END_SRC + +Add a keybinding to toggle the =!important= flag on the current line. + +#+BEGIN_SRC emacs-lisp + (global-set-key (kbd "C-c !") #'oni:css-toggle-important) +#+END_SRC