26 lines
910 B
EmacsLisp
26 lines
910 B
EmacsLisp
;;; lang/web/autoload/css.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
;; TODO (defun +css/scss-build ())
|
|
|
|
;;;###autoload
|
|
;; TODO (defun +css/sass-build ())
|
|
|
|
;;;###autoload
|
|
(defun +css/toggle-inline-or-block ()
|
|
"Toggles between a bracketed block and inline block."
|
|
(interactive)
|
|
(let ((inhibit-modification-hooks t))
|
|
(cl-destructuring-bind (&key beg end op cl &allow-other-keys)
|
|
(sp-get-thing)
|
|
(when (or (string-empty-p op) (string-empty-p cl))
|
|
(user-error "No block found"))
|
|
(with-no-warnings
|
|
(if (= (line-number-at-pos beg) (line-number-at-pos end))
|
|
(progn
|
|
(goto-char end) (insert "\n")
|
|
(goto-char (1+ beg)) (insert "\n")
|
|
(replace-regexp ";\\s-+" ";\n" nil beg end)
|
|
(indent-region beg end))
|
|
(replace-regexp "\n" " " nil beg end)
|
|
(replace-regexp " +" " " nil beg end))))))
|