[nongnu] elpa/sass-mode 28dd06b 14/31: Merge remote-tracking branch 'refs/remotes/nex3/pr/1'

[ELPA Syncer]

branch: elpa/sass-mode
commit 28dd06ba642620c76e38f8b60b06718fcdfd9f29
Merge: bf846d6 3930ddc
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Merge remote-tracking branch 'refs/remotes/nex3/pr/1'
---
 sass-mode.el | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/sass-mode.el b/sass-mode.el
index 3c94cea..662b2ff 100644
--- a/sass-mode.el
+++ b/sass-mode.el
@@ -182,9 +182,17 @@ LIMIT is the limit of the search."
 
 ;; Mode setup
 
+(defvar sass-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-c\C-r" 'sass-output-region)
+    (define-key map "\C-c\C-l" 'sass-output-buffer)
+    map))
+
 ;;;###autoload
 (define-derived-mode sass-mode haml-mode "Sass"
-  "Major mode for editing Sass files."
+  "Major mode for editing Sass files.
+
+\\{sass-mode-map}"
   (set-syntax-table sass-syntax-table)
   (setq font-lock-extend-region-functions
         '(font-lock-extend-region-wholelines 
font-lock-extend-region-multiline))
@@ -202,6 +210,24 @@ LIMIT is the limit of the search."
         if (looking-at opener) return nil
         finally return t))
 
+;; Command
+
+(defun sass-output-region (start end)
+  "Displays the CSS output for the current block of Sass code.
+Called from a program, START and END specify the region to indent."
+  (interactive "r")
+  (let* ((text (buffer-substring-no-properties start end))
+         (command (format "ruby -rubygems -e \"require 'sass'; puts 
Sass::Engine.new('%s').render\"" text)))
+  (kill-new text)
+  (with-temp-buffer
+    (yank)
+    (shell-command-on-region (point-min) (point-max) command "sass-output"))))
+
+(defun sass-output-buffer ()
+  "Displays the CSS output for entire buffer."
+  (interactive)
+  (sass-output-region (point-min) (point-max)))
+
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.sass\\'" . sass-mode))