kotovalexarian-likes-github/haml--haml
1
0
Fork 0
mirror of https://github.com/haml/haml.git synced 2022-11-09 12:33:31 -05:00
Code Releases Activity

Add a custom indent-region function for haml-mode.

Browse source 
The most common use of indent-region is to re-indent a region of code
that's been moved from some other document/location. Since Haml
indentation isn't deterministic, indenting each line doesn't work all
the time, so instead we assume the the relative indentation of the
region is correct. This means that only the first line needs to be
indented using haml-compute-indentation, and the rest of the region
can be indented with the same relative indentation.
This commit is contained in:
Nathan Weizenbaum 2008-04-22 13:11:21 -07:00
parent 1375eff365
commit 57d05a1222
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
extra/haml-mode.el
View file

@ -14,6 +14,8 @@
;;; Code:
(eval-when-compile (require 'cl))
;; User definable variables
(defgroup haml nil
@ -51,7 +53,8 @@
(concat str (string-* str (- n 1)))))
(defun find-if (f lst)
"Returns the first element of a list for which a function returns a non-nil value, or nil if no such element is found."
"Returns the first element of a list for which a function
returns a non-nil value, or nil if no such element is found."
(while (not (or (null lst)
(apply f (list (car lst)))))
(setq lst (cdr lst)))
@ -161,6 +164,7 @@
\\{haml-mode-map}"
(set-syntax-table haml-mode-syntax-table)
(set (make-local-variable 'indent-line-function) 'haml-indent-line)
(set (make-local-variable 'indent-region-function) 'haml-indent-region)
(set (make-local-variable 'font-lock-defaults)
'((haml-font-lock-keywords-1)
nil
@ -186,6 +190,35 @@
(looking-at haml-block-re))
haml-indent-offset 0)))))
(defun haml-indent-region (start end)
"Indent each nonblank line in the region.
This is done by indenting the first line based on
`haml-compute-indentation' and preserving the relative
indentation of the rest of the region."
(save-excursion
(goto-char end)
(setq end (point-marker))
(goto-char start)
;; Don't start in the middle of a line
(unless (bolp) (forward-line 1))
(let (this-line-column current-column
(next-line-column (haml-compute-indentation)))
(while (< (point) end)
(setq this-line-column next-line-column
current-column (current-indentation))
;; Delete whitespace chars at beginning of line
(delete-horizontal-space)
(unless (eolp)
(setq next-line-column (save-excursion
(loop do (forward-line 1)
while (and (not (eobp)) (looking-at "^[ \t]*$")))
(+ this-line-column
(- (current-indentation) current-column))))
;; Don't indent an empty line
(unless (eolp) (indent-to this-line-column)))
(forward-line 1)))
(move-marker end nil)))
(defun haml-indent-line ()
"Indent the current line.
The first time this command is used, the line will be indented to the