gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add narf/smart-indent and narf/dumb-dedent

Browse Source
This commit is contained in:
Henrik Lissner 2016-01-07 01:01:03 -05:00
parent 643743b021
commit 8cd21a0fff
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
core/lib/defuns-whitespace.el
View File

@ -79,13 +79,31 @@ whitespace as possible, or just one char if that's not possible."
"Inserts a tab character (or spaces x tab-width). Checks if the
auto-complete window is open."
(interactive)
(if (or (and smart (looking-back "^[\s\t]*"))
indent-tabs-mode)
(insert "\t")
(let* ((movement (% (current-column) tab-width))
(if indent-tabs-mode
(insert "\t")
(let* ((movement (% (current-column) tab-width))
(spaces (if (zerop movement) tab-width (- tab-width movement))))
(insert (s-repeat spaces " ")))))
;;;###autoload
(defun narf/smart-indent ()
(interactive)
(save-excursion
(back-to-indentation)
(narf/dumb-indent)))
;;;###autoload
(defun narf/dumb-dedent ()
(interactive)
(if indent-tabs-mode
(delete-char -1)
(save-excursion
(unless (looking-back "^[\s\t]*")
(evil-first-non-blank))
(let* ((movement (% (current-column) tab-width))
(spaces (if (zerop movement) tab-width (- tab-width movement))))
(delete-char (- spaces))))))
;;;###autoload
(defun narf/inflate-space-maybe ()
"Checks if point is surrounded by {} [] () delimiters and adds a