branch: elpa/sass-mode
commit fb636bbef97e5194afa6b90d1f21480f7405ca84
Author: Daniel Luna <dancl...@gmail.com>
Commit: Daniel Luna <dancl...@gmail.com>
sass-output-region removing trailing indentation.
The previous version of this function did not work for this (valid) SASS
code:
```sass
@for $i from 1 through 13
$pixels_offset: ($i)px
.element:nth-child(#{$i * 7 + 1})
margin-left: ($pixels_offset + 3px)
```
This commit fixes that by introducing the sass-remove-trailing-indent
function, that removes trailing indent in a buffer containing the
region's SASS code.
---
sass-mode.el | 29 ++++++++++++++++++++++++-----
1 file changed, 24 insertions(+), 5 deletions(-)
diff --git a/sass-mode.el b/sass-mode.el
index 157d309..d0038ed 100644
--- a/sass-mode.el
+++ b/sass-mode.el
@@ -213,6 +213,20 @@ LIMIT is the limit of the search."
if (looking-at opener) return nil
finally return t))
+;; Utility
+
+(defun sass-remove-trailing-indent ()
+ "Removes the first n empty characters in every line, with n being the
trailing whitespace in the first line."
+ (interactive)
+ (let ((min-indent nil))
+ (goto-char (point-min))
+ (back-to-indentation)
+ (setq min-indent (1- (point)))
+ (while (not (equal (line-end-position) (point-max)))
+ (beginning-of-line)
+ (delete-forward-char min-indent)
+ (forward-line))))
+
;; Command
(defun sass-output-region (start end)
@@ -220,11 +234,16 @@ LIMIT is the limit of the search."
Called from a program, START and END specify the region to indent."
(interactive "r")
(let ((output-buffer "*sass-output*")
- (errors-buffer "*sass-errors*"))
- (shell-command-on-region start end "sass --stdin"
- output-buffer
- nil
- errors-buffer)
+ (errors-buffer "*sass-errors*")
+ (region-contents (buffer-substring start end)))
+ (with-temp-buffer
+ (insert region-contents)
+ (newline-and-indent)
+ (sass-remove-trailing-indent)
+ (shell-command-on-region (point-min) (point-max) "sass --stdin"
+ output-buffer
+ nil
+ errors-buffer))
(when (fboundp 'css-mode)
(with-current-buffer output-buffer
(css-mode)))
