[nongnu] elpa/jade-mode 5752db7c36 012/128: added significant whitespace mode as sub-mode for jade-mode and (soon to be) stylus-mode

[ELPA Syncer]

branch: elpa/jade-mode
commit 5752db7c363bc20bf432af68b5b809a75f47bd85
Author: Brian Carlson <brian.m.carlson@gmail.com>
Commit: Brian Carlson <brian.m.carlson@gmail.com>

    added significant whitespace mode as sub-mode for jade-mode and (soon to 
be) stylus-mode
---
 sws-mode.el | 132 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 132 insertions(+)

diff --git a/sws-mode.el b/sws-mode.el
new file mode 100644
index 0000000000..18524022fe
--- /dev/null
+++ b/sws-mode.el
@@ -0,0 +1,132 @@
+(require 'font-lock)
+
+(defvar sws-tab-width 2)
+
+(defmacro sws-line-as-string ()
+  "Returns the current line as a string."
+  `(buffer-substring (point-at-bol) (point-at-eol)))
+
+(defun sws-previous-indentation ()
+  "Gets indentation of previous line"
+  (save-excursion
+    (previous-line)
+    (current-indentation)))
+
+(defun sws-max-indent ()
+  "Calculates max indentation"
+  (+ (sws-previous-indentation) sws-tab-width))
+
+(defun sws-empty-line-p ()
+  "If line is completely empty"
+  (= (point-at-bol) (point-at-eol)))
+
+(defun sws-point-to-bot ()
+  "Moves point to beginning of text"
+  (let ((ci (current-indentation)))
+    (beginning-of-line)
+    (delete-horizontal-space)
+    (indent-to ci)))
+
+(defun sws-do-indent-line ()
+  "Performs line indentation"
+  ;;if we are not tabbed out past max indent
+  (if (< (current-indentation) (sws-max-indent))
+      (indent-to (+ (current-indentation) sws-tab-width))
+    ;; if at max indent move text to beginning of line
+    (progn
+      (beginning-of-line)
+      (delete-horizontal-space))))
+
+(defun sws-indent-line ()
+  "Indents current line"
+  (interactive)
+  (if (region-active-p)
+      (sws-indent-region)
+    (if (sws-at-bot-p)
+        (sws-do-indent-line)
+      ;; instead of adjusting indent, move point to text
+      (sws-point-to-bot))))
+
+(defun sws-at-bol-p ()
+  "If point is at beginning of line"
+  (= (point) (point-at-bol)))
+
+(defun sws-at-bot-p ()
+  "If point is at beginning of text"
+  (= (point) (+ (current-indentation) (point-at-bol))))
+
+(defun sws-print-line-number ()
+  "Prints line number"
+  (sws-print-num (point)))
+
+(defun sws-print-num (arg)
+  "Prints line number"
+  (message (number-to-string arg)))
+
+(defun sws-indent-to (num)
+  "Force indentation to level including those below current level"
+  (save-excursion
+    (beginning-of-line)
+    (delete-horizontal-space)
+    (indent-to num)))
+
+(defun sws-move-region (begin end prog)
+  "Moves left is dir is null, otherwise right. prog is '+ or '-"
+  (save-excursion
+    (let (first-indent indent-diff)
+      (goto-char begin)
+      (setq first-indent (current-indentation))
+      (sws-indent-to     
+       (funcall prog first-indent sws-tab-width))
+      (setq indent-diff (- (current-indentation) first-indent))
+      ;; move other lines based on movement of first line
+      (while (< (point) end)
+        (forward-line 1)
+        (if (< (point) end)
+            (sws-indent-to (+ (current-indentation) indent-diff)))))))
+
+(defun sws-indent-region (begin end)
+  "Indents the selected region"
+  (interactive)
+  (sws-move-region begin end '+))
+
+
+(defun sws-dendent-line ()
+  "De-indents current line"
+  (interactive)
+  (if (region-active-p)
+      (sws-move-region (region-beginning) (region-end) '-)
+    (if (sws-at-bol-p)
+        (progn
+          (delete-horizontal-space)
+          (indent-to (sws-max-indent)))
+      (let ((ci (current-indentation)))
+        (beginning-of-line)
+        (delete-horizontal-space)
+        (indent-to (- ci sws-tab-width))))))
+
+(defvar sws-mode-map (make-sparse-keymap))
+(define-key sws-mode-map [S-tab] 'sws-dendent-line)
+
+(define-derived-mode sws-mode fundamental-mode
+  "sws"
+  "Major mode for editing significant whitespace files"
+  (kill-all-local-variables)
+
+  ;; default tab width
+  (setq sws-tab-width 2)
+  (make-local-variable 'indent-line-function)
+  (setq indent-line-function 'sws-indent-line)
+  (make-local-variable 'indent-region-function)
+
+  (setq indent-region-function 'sws-indent-region)
+
+  ;; TODO needed?
+  (setq indent-tabs-mode nil)
+
+  ;; keymap
+  (use-local-map sws-mode-map)
+
+  (setq major-mode 'sws-mode))
+
+(provide 'sws-mode)