awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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 " ")))))