emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Smarter dumb indentation

Browse source
This commit is contained in:
Henrik Lissner 2015-07-24 13:06:19 +02:00
parent 628e495536
commit 22c82d63e6
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/lib/defuns-whitespace.el
View file

@ -75,13 +75,14 @@ whitespace as possible, or just one char if that's not possible."
(t (backward-delete-char-untabify 1))))
;;;###autoload
(defun narf/dumb-indent ()
(defun narf/dumb-indent (&optional smart)
"Inserts a tab character (or spaces x tab-width). Checks if the
auto-complete window is open."
(interactive)
(if indent-tabs-mode
(insert "\t")
(let* ((movement (% (current-column) tab-width))
(if (or (and smart (looking-back "^[\s\t]*"))
indent-tabs-mode)
(insert "\t")
(let* ((movement (% (current-column) tab-width))
(spaces (if (zerop movement) tab-width (- tab-width movement))))
(insert (s-repeat spaces " ")))))