awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Smarter scss toggle block/inline defun

Browse Source
This commit is contained in:
Henrik Lissner
2015-07-27 15:11:47 +02:00
parent 6e4cadd261
commit 7d2163c6b2
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
modules/lib/defuns-scss.el
View File

@ -6,16 +6,26 @@
(interactive)
(save-excursion
(let* ((bounds (ignore-errors (evil-a-curly)))
(beg (car bounds))
(end (cadr bounds)))
(goto-char beg)
beg end)
(unless bounds
(user-error "No block found"))
(setq beg (car bounds))
(setq end (cadr bounds))
(if (= (line-number-at-pos beg) (line-number-at-pos end))
(progn (replace-regexp ";[\s\t]*" ";\n" nil beg end)
(save-excursion (goto-char (1+ beg)) (insert "\n")
(evil-indent beg (+ 2 end))))
(evil-join beg end)))))
(save-excursion
(goto-char (1+ beg)) (insert "\n")
(unless (string-match ";[\s\t]*}$" (buffer-substring-no-properties beg (1+ end)))
(goto-char end) (insert "\n"))
(replace-regexp ";[\s\t]*" ";\n" nil beg (1+ end))
(setq end (cadr (evil-a-curly)))
(evil-indent beg end)
(delete-trailing-whitespace beg end))
(goto-char beg)
(evil-join beg end)
(goto-char (1+ beg))
(just-one-space)
(goto-char (cadr (evil-inner-curly)))
(just-one-space)))))
(provide 'defuns-scss)
;;; defuns-scss.el ends here