Add narf/scss-toggle-inline-or-block

modules/lib/defuns-scss.el

@@ -0,0 +1,21 @@
+;;; defuns-scss.el
+
+;;;###autoload
+(defun narf/scss-toggle-inline-or-block ()
+  "Toggles between a SCSS multiline block and one-line block."
+  (interactive)
+  (save-excursion
+    (let* ((bounds (ignore-errors (evil-a-curly)))
+           (beg (car bounds))
+           (end (cadr bounds)))
+      (goto-char beg)
+      (unless bounds
+        (user-error "No block found"))
+      (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)))))
+
+(provide 'defuns-scss)
+;;; defuns-scss.el ends here